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

これで、2 つの重要な行が書かれました。

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="ユーロ" ; Range("CombinedRange").NumberFormat= €

于 2013-02-12T12:31:33.230 に答える