NumberFormat VBA函数Chr转义序列

Question

Dim HKD As String
HKD = "K[$$-409] #,##0.00;[Red]-(K[$$-409] #,##0.00)"
Range("CurrencyFormat_FF_ResourceTable").NumberFormat = HKD 

CurrencyFormat_FF_ResourceTable=K$0.00

HKD = "HK[$$-409] #,##0.00;[Red]-(HK[$$-409] #,##0.00)" 
Range("CurrencyFormat_FF_ResourceTable").NumberFormat = HKD

CurrencyFormat_FF_ResourceTable=旧值

想要CurrencyFormat_FF_ResourceTable=0.00港元

Answer 1

将文本用引号括起来：

HKD = """HK""[$$-409] #,##0.00;[Red]-(""HK""[$$-409] #,##0.00)"