Макросы в excel число с нулями

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 добавится функция, которая автоматически будет прописывать числа с нулями.

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

How to enter number starting with zero in Excel

Having trouble with entering values that start with zero? By default, Excel removes any leading zeros in front of a number when you type in such a value and press enter. So, this behavior makes it a bit hard to enter some phone numbers or ZIP codes, like those starting with a zero. In this guide, we’re going to show you how to enter number starting with zero in Excel.

Download Workbook

You have 3 options for enter number starting with zero in Excel:

1. Using an apostrophe (‘)
2. Using either Text or Special number formats
3. Using a custom number format

Let’s see each method in more detail.

Apostrophe (‘)

Excel evaluates any value that starts with an apostrophe as text, and text values can start with zero (0). That’s it! Excel will not show the leading apostrophe character in the beginning when displaying the cell value. You can still see and adjust it when editing the cell value.

Instead of entering an extra character every time, the downside of this method is the fact that you will see an erroneous error indicator for that cell. To get rid of this warning, click the icon on the right-side of the cell, and select Ignore Error item in the list. Please note that choosing Convert to Number here will remove any leading zeros.

Another note regarding this method is that if you want to enter a text that starts with an apostrophe, you may want to consider beginning the text with double apostrophe characters (‘’).

Text and Special Number Formats

Alternatively, you can use Excel’s built-in format options like Text and Special number formats. Number formats alter the display of the values without changing the actual value.

Text number format essentially tells Excel to accept everything inside the cell as a part of a text sting. As a result, Excel doesn’t care whether your number starts with a zero or not.

1. To change the number formatting of a cell, first, select the cell or cells you want to update.
2. Next, either press the Ctrl + 1 combination or use the right-click (context) menu to open the Format Cells dialog
3. Activate the Number tab if it isn’t
4. Select Text in the right panel
5. Click OK to apply

You can now enter any value without «auto-correct».

If you want to enter values in a more specialized format, check out the options under the Special category. You can select between 4 pre-defined options:

• Zip Code
• Zip Code + 4
• Phone Number
• Social Security Number

The difference between Text and Special number formats is that the Special formats have a fixed structure and number of digits they will accept. This means that you do not need to enter a leading zero because Excel will fill it based on number format. For example, if you select ZIP Code number format and type 123, Excel displays the value as 00123.

Note that in this method, Excel is not actually adding zeros, it;s just altering how you see the value.

Custom Number Format to enter number starting with zero

The final approach is the advanced version of number format method. Excel allows you to code your custom number formatt. So, if the existing formats do not fit your needs, try to creating your own.

To code a custom formatting, open the Format Cell dialog again, and select Custom from the left pane. You need to enter the format code in the Type box and click OK.

Here is a cheat sheet for custom formatting codes:

• 0 represents digits can be filled by a leading zero if there isn’t a number. For example, if you want to a 3-digit number which should have leading zeros, you should use 000.
  • If you enter 1, you will see 001.
  • 12 will be 012.
  • 123 will be 123.
• # represents digits can be filled by a leading zero. For example, if your number format is 0##, leading zero will be added only one time.
  • 1 will be 01
  • 12 will 012
  • 123 will be 123

One more example: Excel’s Special – ZIP number format uses 00000. You can learn more about custom number formats in Number Formatting in Excel – All You Need to Know.