如何使用Excel VBA按照貨幣標准格式化列中的數字？

Question

我想格式化一列的所有單元格。 數據是一個數字，我想在左側添加一個小數，之后僅保留兩位數字。 然后按照貨幣標准對其進行格式化。 例如：

Data:       Output:
10000       100.00
112233      1,122.33
123456789   1,234,567.89

要求是正常的，輸出以斜體顯示。

Answer 1

下面將給定的列格式化為貨幣：

Sheets("Sheet1").Columns("A").NumberFormat = "£#,##0.00"

Answer 2

在這種情況下，宏記錄器會有些危險，因為如果使用它，您的代碼將看起來像這樣（來自其他答案）：

Sheets("Sheet1").Columns("A").NumberFormat = "£#,##0.00"

但是，這僅在英國可以。 如果要編寫代碼，該代碼根據PC的本地設置來格式化貨幣，那么最好在此處使用貨幣：

Sheets("Sheet1").Columns("A").Style = "Currency"

然后，一個英國人將得到英鎊格式和一美元。