Как отформатировать числа в столбце по валютным стандартам с помощью 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"

Однако, это нормально только в Великобритании. Если вы хотите написать код, который форматирует валюту в соответствии с локальными настройками ПК, то лучше использовать там валюту:

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

Тогда британец получит формат в фунтах, а доллар - в долларах.

Answer 2

Следующий форматирует данный столбец как Валюта:

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