货币兑换从一个下拉
我有一个$C$4的下拉列表，您可以在表格中select所需的货币（£，€，$）。 我正在寻找一段代码，以确定工作表内的单元格是上述所有内容之一，并将其更改为所选货币。
例如，当前所有的单元格都包含美元符号（以会计格式），并且您从下拉列表中select€，现在所有美元单元格都变为欧元。
下面的代码适用于A1我需要对包含会计格式的表单中的所有单元格进行testing。 （有些号码单元不）
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then Select Case Target.Value Case Is = "US Dollars" Range("A1").NumberFormat = "$#,##0.00" Case Is = "British Pounds" Range("A1").NumberFormat = "[$£-809]#,##0.00" Case Else Range("A1").NumberFormat = "general" End Select End If End Sub
你的想法，谢谢
我现在写了两行重要的文字：
Application.Union(["CPC"], ["heading"], ["final4"], ["single"]).Name = "CombinedRange" Range("CombinedRange").NumberFormat= _ "_-[$$-1004]* #,##0_ ;_-[$$-1004]* -#,##0 ;_-[$$-1004]* ""-""_ ;_-@_ " Range("CombinedRange").NumberFormat= _ "_-[$$-1004]* #,##0_ ;_-[$$-1004]* -#,##0 ;_-[$$-1004]* ""-""_ ;_-@_ " Range("CombinedRange").NumberFormat= _ "_-[$€-2] * #,##0_-;-[$€-2] * #,##0_-;_-[$€-2] * ""-""_-;_-@_-"
我需要一段代码，说如果C4 =“美元”：范围（“CombinedRange”）。NumberFormat = $
否则如果… c4 =“欧元”; 范围（“CombinedRange”）。NumberFormat =€