Excel宏將單元格格式更改為貨幣

Question

我有一個文件，其中一列有數字，第二列有每個數字的相應貨幣。 我有USD, EUR, CHF, and GBP 。

我想創建一個宏，將數字列從數字格式化為貨幣，然后應用第二列中的貨幣。

這樣做的訣竅是我希望數字列中仍有數字，因為數字可以加或減。 因此，我不希望兩列的簡單連接，因為這會使字段成為文本，並且無法在數學方程中使用。

如果你知道如何，請幫忙。

謝謝！

Answer 1

我不確定我是否理解您的確切問題，但這將采用A列中的所有值，並根據B列中的貨幣值將其格式化為C列中的貨幣：

Sub Macro1()

Dim cl As Range

For Each cl In Intersect(ActiveSheet.Range("A:A"), ActiveSheet.UsedRange)
   cl.Offset(0, 2).Value = cl.Value
   Select Case cl.Offset(0, 1).Value
      Case "USD"
         cl.Offset(0, 2).NumberFormat = "$#,##0.00"
      Case "EUR"
         cl.Offset(0, 2).NumberFormat = "[$€-2] #,##0.00"
      Case "GBP"
         cl.Offset(0, 2).NumberFormat = "[$£-809]#,##0.00"
      Case "CHF"
         cl.Offset(0, 2).NumberFormat = "[$CHF] #,##0.00"
   End Select

Next cl

End Sub

如果要更改貨幣類型，請記錄將單元格設置為正確貨幣的宏，然后根據需要復制並粘貼該數字格式。