Excel 2007 - 條件貨幣格式

Question

是否可以根據單元格的值設置列的貨幣（£/€/ $）？

例如，如果我確定工作簿中使用的地址是美國，工作簿貨幣將設置爲美元。

這樣可以節省爲不同貨幣制作多個電子表格的時間。

在此先感謝任何可以幫助的人。

諾埃爾

Answer 1

任何人誰可能有興趣，我想出了以下，如果搞清楚了這一點的一個更好的方法請告訴

' 
' Set the Currency of the worksheet 
' 
Public Sub setCurrency() 

Dim eurFormat As String 
Dim strFormat As String 
' Euro currency format 
eurFormat = "[$€-1809]#,##0.00" 
' Sterling currency format 
strFormat = "[$£-809]#,##0.00" 


If Worksheets("ws-with-cell-value").Cells(1, 2).Value = "GBP £" Then 
    Worksheets("ws1").Columns("C:C").NumberFormat = strFormat 
    Worksheets("ws2").Columns("I:J").NumberFormat = strFormat 
End If 

If Worksheets("ws-with-cell-value").Cells(1, 2).Value = "EUR €" Then 
    Worksheets("w1").Columns("C:C").NumberFormat = eurFormat 
    Worksheets("ws2").Columns("I:J").NumberFormat = eurFormat 
End If 

End Sub 

然後呼籲workbook_activate此子例程（）和Sub Worksheet_Change for「ws-with-cell-value」

希望這可以幫助那裏的人