Добавить нули перед числом в excel vba

Skip to content

Sub Macro51()
'Шаг 1: Объявляем переменные
Dim MyRange As Range
Dim MyCell As Range
'‘Шаг 2: Сохранить книгу прежде, чем изменить ячейки?
Select Case MsgBox("Перед изменением ячеек. " & _
"Сохранить книгу?", vbYesNoCancel)
Case Is = vbYes
ThisWorkbook.Save
Case Is = vbCancel
Exit Sub
End Select
'Шаг 3: Определяем целевой диапазон
Set MyRange = Selection
'‘Шаг 4: Запускаем цикл по диапазону
For Each MyCell In MyRange
'Шаг 5: Добавляем нули и берем 10 знаков справа
If Not IsEmpty(MyCell) Then
MyCell.NumberFormat = "@"
MyCell = "0000000000" & MyCell
MyCell = Right(MyCell, 10)
End If
'Шаг 6: Получаем следующую ячейку в диапазоне
Next MyCell
End Sub

Иногда, необходимо сделать так, чтобы нули в начале чисел автоматически не удалялись программой Excel. Например, вы составляете таблицу с артикулами и вам просто необходимо, чтобы числа отображались полностью.

Грубо говоря, нужно чтобы числа прописывались так же, как на картинке ниже.

Итак, я продемонстрирую вам несколько способов, как можно привести числа в такой вид.

У каждого способа, естественно, есть свои плюсы и минусы, подробнее об этом я расскажу в самой статье.

Способ 1: изменяем формат ячейки

у нас есть «ID» товаров магазина, как на картинке ниже.

И нам нужно записывать эти самые «ID», например, как 00001, а Excel автоматически переписывает его в 1.

Дело в том, что Excel пытается привести числа в простой вид. Он сравнивает числа, к примеру, 00002 и 2, понимает что они одинаковые (именно как числа) и преобразовывает 00002 в простой вид 2.

Но нам все равно необходимо записать 00002, тогда мы можем изменить формат ячейки в текстовый.

Пошаговая инструкция:

• Выделите ячейки с числами, которые нужно записать с нулями;

• Щелкните в раздел «Главная» и в формате выберите «Текстовый»;

В принципе все, теперь попробуйте заново записать ваши числа (нужно именно еще раз их прописать. Числа которые Excel уже преобразовал в «простой» вид, обратно не изменятся).

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

Способ 2: указываем формат отображения чисел

Этот способ позволит вам, в дальнейшем, использовать записанные числа в расчетах.

В чем суть:

Число вы можете записать по-разному, например, 2000 и 2000.00 это одно и то же, по этой логике, мы можем просто изменить формат отображения числа. То есть придать именно отображению другой вид, при этом формат ячейки останется числовым.

Таким образом содержимое ячейки не изменится.

Пошаговая инструкция:

• Выделите нужные ячейки;

• Щелкните «Главная» и нажмите на стрелочку, смотрящую вниз, в разделе «Число»;

• В открывшемся окне, во вкладке «Число», щелкните на «(все форматы)»;

• В поле «Тип» (где сейчас написано «Основной») напишите «00000»;

• Подтвердите.

Итак, что произошло: мы поменяли вид отображения всех чисел в выделенных ячейках на пятизначный. Это значит, что все числа в этих ячейках будут отображаться, минимум, в пятизначном формате. Например, число «2» будет отображаться как «00002». А число «372847» будет отображаться как «372847».

В общем, тут все зависит от вашей ситуации, нулей в поле «Тип» можно вписать столько, сколько вам нужно. Можно сделать десятизначный формат отображения и так далее.

Важная информация: этот способ работает только с ячейками формата «Число», если у вашей ячейки будет текстовый формат, этот вариант не сработает.

Способ 3: с помощью функции ТЕКСТ

Итак, важно понимать, что функция ТЕКСТ изменяет формат самого значения, а не всей ячейки.

Но в целом, этот способ подходит если вам просто нужно сделать, чтобы число отображалось так, как вы хотите.

Но не забывайте, что использование этой функции превратит значение в текст. Это значит что для Excel ваше число (например, 00002) будет считаться обычным текстом, т.е. в расчетах его использовать будет невозможно.

Формула:

=ТЕКСТ(A2, “00000”)

Для числа, хранящегося в ячейке «A2».

Итак, число будет записываться в пятизначном формате(если число было «3», то станет «00003»).

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

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

Способ 4: изменяем длину строки

Минус способа с использованием функции ТЕКСТ является то, что она не способна изменять формат чисел на текст тогда, когда эти числа находятся в комбинации с текстом. Она просто не будет работать.

Но в такой ситуации можно использовать метод с функциями ПОВТОР и ДЛСТР.

Формула:

=ПОВТОР(0;5-ДЛСТР(A2))&A2

При вызове такой функции, длина строки изменится на пятизначную. Это значит, что все числа будут записаны в пятизначном формате (например, число «3» будет записано как «00003»).

Что делает эта функция:

• Функция ДЛСТР(A2) возвращает длину нашей строки с числом.
• Функция =ПОВТОР(0;5-ДЛСТР(A2)) считает сколько нулей необходимо добавить к началу нашего числа. И так для каждой новой строки.

Грубо говоря, эта функция просто посчитает сколько нулей нужно добавить к началу числа чтобы в нем, в общем, получилось 5 знаков (т.к. в формуле мы указали 5).

Способ 5: используем Visual Basic

Способ с использованием Visual Basic отлично подойдет тем, кому очень часто нужно записывать числа определенным образом.

Этот код создает вашу собственную функцию для такого рода задачи:

Function AddLeadingZeroes(ref As Range, Length As Integer) 
Dim i As Integer 
Dim Result As String 
Dim StrLen As Integer 
StrLen = Len(ref) 
For i = 1 To Length 
If i <= StrLen Then 
Result = Result & Mid(ref, i, 1) 
Else 
Result = "0" & Result 
End If 
Next i 
AddLeadingZeroes = Result 
End Function

Нужно поместить код, данный выше, в Visual Basic модуль и тогда в вашем Excel добавится функция, которая автоматически будет прописывать числа с нулями.

А еще можно поделиться этой функцией с коллегами.