Как добавить в ячейку недостающие нули

Многие системы требуют идентификаторы (например, номер клиента, табельный номер, номер заказа, или номер продукта), чтобы иметь фиксированное количество символов. Например, табельный номер, который выглядит следующим образом: 0000000008. Число дополняется нулями для достижения предварительных условий количества знаков. 

Все табельные номера должны быть более 10 символов. Таким образом, для каждого табельного номера необходимо раздуть число с нулями, чтобы получить всего 10 символов. Этот макрос делает это. 

1. Шаг 1 объявляет две переменные объекта Range. 

2. При выполнении макрос уничтожает стек отката. Это означает, что вы не сможете отменить изменения, поэтому нужно сохранить книгу перед запуском макроса. Это делает Шаг 2.

3. Шаг 3 заполняет переменную MyRange с целевым диапазоном. 

4. Шаг 4 начинает цикл через каждую ячейку в целевом диапазоне. После того, как клетка активируется.  

5. Шаг 5 использует функцию IsEmpty, чтобы убедиться, что ячейка не пуста. Мы делаем это, чтобы немного сэкономить на производительности. На следующей строке, мы используем свойство NumberFormat, чтобы указать, что формат @. Этот символ указывает на форматирование содержимого ячейки как текста. Затем макрос вводит 10 нулей и с помощью амперсанд (&) объединяет их со значением ячейки. И, наконец, макрос использует функцию для извлечения 10 символов. Это фактически дает нам значение ячейки, с достаточным количеством нулей, чтобы получить 10 символов. 

6. Шаг 6 повторяет цикл, чтобы получить следующую ячейку. После просмотра всех ячеек в целевом диапазоне макрос заканчивается. 

Для реализации этого макроса, вы можете скопировать и вставить его в стандартный модуль:

1. Активируйте редактор Visual Basic, нажав ALT + F11. 
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. 
3. Выберите Insert➜Module. 
4. Введите или вставьте код во вновь созданном модуле.