Question

我在$C$4中有一个下拉列表，您可以在其中为表格选择所需的货币（£，€，$）。我正在寻找一段代码，用于识别工作表中的单元格是上述所有单元格，并将其更改为您选择的货币。

例如，目前的单元格都包含美元符号（在会计格式中），您从下拉列表中选择€，现在所有美元单元格都成为欧元。

以下代码适用于A1。但我需要对包含会计格式的工作表中的所有单元格进行测试。（某些数字单元格没有）

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

你的想法，谢谢

Answer 1

我现在写了两行重要的内容：

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 =“USD”：Range（“CombinedRange”）。NumberFormat = $

否则如果...... c4 =“欧元”;范围（“CombinedRange”）。NumberFormat =€

货币兑换商从下拉列表

1 个答案: