1

我有一个下拉列表$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

你的想法，谢谢

4

1 回答 1

0

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

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] * ""-""_-;_-@_-"

我需要一段代码来说明 if C4="USD": Range("CombinedRange").NumberFormat= $

否则如果... c4="Euro" ; Range("CombinedRange").NumberFormat= €

于 2013-02-12T12:31:33.230 回答