Как я могу отформатировать выбранные ячейки (столбец) в 9-значное число

Question

Я пытаюсь создать макрос для изменения выбранного столбца, содержащего 7-значные числа на 9-значные (2 начальных нуля).Я не знаю VBA.Я пытаюсь учиться, но терминология настолько обширна.В то же время я использую код, который я нашел в Интернете, чтобы удовлетворить свои потребности.Например, код, который я использую для выбора, выглядит следующим образом:

Sub SelectDn()

SelectDn Macro

Range(ActiveCell, ActiveCell.End(xlDown)).Select

End Sub

Поэтому я использую это для выбора данных, которые я хочу отформатировать.

Мои коллеги на работе делают много ручных манипуляций с их электронными таблицами Excel, чтобы создавать отчеты, и я хочу сделать процесс проще для них.Я знаю, что это просто щелчок правой кнопкой мыши, Format cells, Custom, 000000000, но хотел бы сделать это с меньшим количеством шагов.

Есть ли способ сделать это?Буду признателен за любую помощь.

Я попробовал это:

Selection.NumberFormat = "000000000"
Selection.TextToColumns

Я использовал макро-рекордер и отформатировал 7-значное число в 9-значное.Код, который он сгенерировал, был:

Sub Macro14()
    Selection.NumberFormat = "000000000"
End Sub

Но когда я снова пытаюсь запустить макрос, я получаю сообщение об ошибке компиляции: ожидаемая функция или переменная, и слово "Selection" в Selection.NumberFormat подсвечивается.Я хотел бы изменить номер с 9983743 на 009983743.

Answer 1

Вы можете связать столбец с какой-либо ячейкой с помощью EntireColumn.Здесь вы хотите применить свой формат, чтобы .....

Sub Digits()

    Selection.EntireColumn.NumberFormat = "000000000"

End Sub

---

Кроме того, .Selection обычно не лучший способ для ссылки на диапазон.Есть ли какой-то другой, более систематический способ обращения к целевым столбцам?Если это так, я бы рассмотрел пересмотр этого, чтобы сделать это.Может быть InputBox или предварительно кодировать столбцы, в которых вы ожидаете применения этого формата.