Программно изменить формат ячейки в excel

Formatting Numbers in Excel VBA

Numbers come in all kinds of formats in Excel worksheets. You may already be familiar with the pop-up window in Excel for making use of different numerical formats:

Formatting of numbers make the numbers easier to read and understand. The Excel default for numbers entered into cells is ‘General’ format, which means that the number is displayed exactly as you typed it in.

For example, if you enter a round number e.g. 4238, it will be displayed as 4238 with no decimal point or thousands separators. A decimal number such as 9325.89 will be displayed with the decimal point and the decimals. This means that it will not line up in the column with the round numbers, and will look extremely messy.

Also, without showing the thousands separators, it is difficult to see how large a number actually is without counting the individual digits.  Is it in millions or tens of millions?

From the point of view of a user looking down a column of numbers, this makes it quite difficult to read and compare.

In VBA you have access to exactly the same range of formats that you have on the front end of Excel. This applies to not only an entered value in a cell on a worksheet, but also things like message boxes, UserForm controls, charts and graphs, and the Excel status bar at the bottom left hand corner of the worksheet.

The Format function is an extremely useful function in VBA in presentation terms, but it is also very complex in terms of the flexibility offered in how numbers are displayed.

How to Use the Format Function in VBA

If you are showing a message box, then the Format function can be used directly:

MsgBox Format(1234567.89, "#,##0.00")

This will display a large number using commas to separate the thousands and to show 2 decimal places.  The result will be 1,234,567.89.  The zeros in place of the hash ensure that decimals will be shown as 00 in whole numbers, and that there is a leading zero for a number which is less than 1

The hashtag symbol (#) represents a digit placeholder which displays a digit if it is available in that position, or else nothing.

You can also use the format function to address an individual cell, or a range of cells to change the format:

Sheets("Sheet1").Range("A1:A10").NumberFormat = "#,##0.00"

This code will set the range of cells (A1 to A10) to a custom format which separates the thousands with commas and shows 2 decimal places.

If you check the format of the cells on the Excel front end, you will find that a new custom format has been created.

You can also format numbers on the Excel Status Bar at the bottom left hand corner of the Excel window:

Application.StatusBar = Format(1234567.89, "#,##0.00")

You clear this from the status bar by using:

Application.StatusBar = ""

Creating a Format String

This example will add the text ‘Total Sales’ after each number, as well as including a thousands separator

Sheets("Sheet1").Range("A1:A6").NumberFormat = "#,##0.00"" Total Sales"""

This is what your numbers will look like:

Note that cell A6 has a ‘SUM’ formula, and this will include the ‘Total Sales’ text without requiring formatting.  If the formatting is applied, as in the above code, it will not put an extra instance of ‘Total Sales’ into cell A6

Although the cells now display alpha numeric characters, the numbers are still present in numeric form. The ‘SUM’ formula still works because it is using the numeric value in the background, not how the number is formatted.

The comma in the format string provides the thousands separator. Note that you only need to put this in the string once.  If the number runs into millions or billions, it will still separate the digits into groups of 3

The zero in the format string (0) is a digit placeholder. It displays a digit if it is there, or a zero. Its positioning is very important to ensure uniformity with the formatting

In the format string, the hash characters (#) will display nothing if there is no digit.  However, if there is a number like .8 (all decimals), we want it to show as 0.80 so that it lines up with the other numbers.

By using a single zero to the left of the decimal point and two zeros to the right of the decimal point in the format string, this will give the required result (0.80).

If there was only one zero to the right of the decimal point, then the result would be ‘0.8’ and everything would be displayed to one decimal place.

Using a Format String for Alignment

We may want to see all the decimal numbers in a range aligned on their decimal points, so that all the decimal points are directly under each other, however many places of decimals there are on each number.

You can use a question mark (?) within your format string to do this.  The ‘?’ indicates that a number is shown if it is available, or a space

Sheets("Sheet1").Range("A1:A6").NumberFormat = "#,##0.00??"

This will display your numbers as follows:

All the decimal points now line up underneath each other.  Cell A5 has three decimal places and this would throw the alignment out normally, but using the ‘?’ character aligns everything perfectly.

Using Literal Characters Within the Format String

You can add any literal character into your format string by preceding it with a backslash ().

Suppose that you want to show a particular currency indicator for your numbers which is not based on your locale.  The problem is that if you use a currency indicator, Excel automatically refers to your local and changes it to the one appropriate for the locale that is set on the Windows Control Panel.  This could have implications if your Excel application is being distributed in other countries and you want to ensure that whatever the locale is, the currency indicator is always the same.

You may also want to indicate that the numbers are in millions in the following example:

Sheets("Sheet1").Range("A1:A6").NumberFormat = "$#,##0.00 m"

This will produce the following results on your worksheet:

In using a backslash to display literal characters, you do not need to use a backslash for each individual character within a string. You can use:

Sheets("Sheet1").Range("A1:A6").NumberFormat = "$#,##0.00 mill"

This will display ‘mill’ after every number within the formatted range.

You can use most characters as literals, but not reserved characters such as 0, #,?

Use of Commas in a Format String

We have already seen that commas can be used to create thousands separators for large numbers, but they can also be used in another way.

By using them at the end of the numeric part of the format string, they act as scalers of thousands. In other words, they will divide each number by 1,000 every time there is a comma.

In the example data, we are showing it with an indicator that it is in millions. By inserting one comma into the format string, we can show those numbers divided by 1,000.

Sheets("Sheet1").Range("A1:A6").NumberFormat = "$#,##0.00,m"

This will show the numbers divided by 1,000 although the original number will still be in background in the cell.

If you put two commas in the format string, then the numbers will be divided by a million

Sheets("Sheet1").Range("A1:A6").NumberFormat = "$#,##0.00,,m"

This will be the result using only one comma (divide by 1,000):

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro — A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

Learn More

Creating Conditional Formatting within the Format String

You could set up conditional formatting on the front end of Excel, but you can also do it within your VBA code, which means that you can manipulate the format string programmatically to make changes.

You can use up to four sections within your format string.  Each section is delimited by a semicolon (;). The four sections correspond to positive, negative, zero, and text

Range("A1:A7").NumberFormat = "#,##0.00;[Red]-#,##0.00;[Green] #,##0.00;[Blue]”

In this example, we use the same hash, comma, and zero characters to provide thousand separators and two decimal points, but we now have different sections for each type of value.

The first section is for positive numbers and is no different to what we have already seen previously in terms of format.

The second section for negative numbers introduces a color (Red) which is held within a pair of square brackets. The format is the same as for positive numbers except that a minus (-) sign has been added in front.

The third section for zero numbers uses a color (Green) within square brackets with the numeric string the same as for positive numbers.

The final section is for text values, and all that this needs is a color (Blue) again within square brackets

This is the result of applying this format string:

You can go further with conditions within the format string.  Suppose that you wanted to show every positive number above 10,000 as green, and every other number as red you could use this format string:

Range("A1:A7").NumberFormat = "[>=10000][Green]#,##0.00;[<10000][Red]#,##0.00"

This format string includes conditions for >=10000 set in square brackets so that green will only be used where the number is greater than or equal to 10000

This is the result:

Using Fractions in Formatting Strings

Fractions are not often used in spreadsheets, since they normally equate to decimals which everyone is familiar with.

However, sometimes they do serve a purpose. This example will display dollars and cents:

Range("A1:A7").NumberFormat = "#,##0 "" dollars and "" 00/100 ""  cents """

This is the result that will be produced:

Remember that in spite of the numbers being displayed as text, they are still there in the background as numbers and all the Excel formulas can still be used on them.

Date and Time Formats

Dates are actually numbers and you can use formats on them in the same way as for numbers.  If you format a date as a numeric number, you will see a large number to the left of the decimal point and a number of decimal places. The number to the left of the decimal point shows the number of days starting at 01-Jan-1900, and the decimal places show the time based on 24hrs

MsgBox Format(Now(), "dd-mmm-yyyy")

This will format the current date to show ’08-Jul-2020’. Using ‘mmm’ for the month displays the first three characters of the month name.  If you want the full month name then you use ‘mmmm’

You can include times in your format string:

MsgBox Format(Now(), "dd-mmm-yyyy hh:mm AM/PM")

This will display ’08-Jul-2020 01:25 PM’

‘hh:mm’ represents hours and minutes and AM/PM uses a 12-hour clock as opposed to a 24-hour clock.

You can incorporate text characters into your format string:

MsgBox Format(Now(), "dd-mmm-yyyy hh:mm AM/PM"" today""")

This will display ’08-Jul-2020 01:25 PM today’

You can also use literal characters using a backslash in front in the same way as for numeric format strings.

VBA Programming | Code Generator does work for you!

Predefined Formats

Excel has a number of built-in formats for both numbers and dates that you can use in your code.  These mainly reflect what is available on the number formatting front end, although some of them go beyond what is normally available on the pop-up window.  Also, you do not have the flexibility over number of decimal places, or whether thousands separators are used.

General Number

This format will display the number exactly as it is

MsgBox Format(1234567.89, "General Number")

The result will be 1234567.89

Currency

MsgBox Format(1234567.894, "Currency")

This format will add a currency symbol in front of the number e.g. $, £ depending on your locale, but it will also format the number to 2 decimal places and will separate the thousands with commas.

The result will be $1,234,567.89

Fixed

MsgBox Format(1234567.894, "Fixed")

This format displays at least one digit to the left but only two digits to the right of the decimal point.

The result will be 1234567.89

Standard

MsgBox Format(1234567.894, "Standard")

This displays the number with the thousand separators, but only to two decimal places.

The result will be 1,234,567.89

AutoMacro | Ultimate VBA Add-in | Click for Free Trial!

Percent

MsgBox Format(1234567.894, "Percent")

The number is multiplied by 100 and a percentage symbol (%) is added at the end of the number.  The format displays to 2 decimal places

The result will be 123456789.40%

Scientific

MsgBox Format(1234567.894, "Scientific")

This converts the number to Exponential format

The result will be 1.23E+06

Yes/No

MsgBox Format(1234567.894, "Yes/No")

This displays ‘No’ if the number is zero, otherwise displays ‘Yes’

The result will be ‘Yes’

True/False

MsgBox Format(1234567.894, "True/False")

This displays ‘False’ if the number is zero, otherwise displays ‘True’

The result will be ‘True’

AutoMacro | Ultimate VBA Add-in | Click for Free Trial!

On/Off

MsgBox Format(1234567.894, "On/Off")

This displays ‘Off’ if the number is zero, otherwise displays ‘On’

The result will be ‘On’

General Date

MsgBox Format(Now(), "General Date")

This will display the date as date and time using AM/PM notation.  How the date is displayed depends on your settings in the Windows Control Panel (Clock and Region | Region). It may be displayed as ‘mm/dd/yyyy’ or ‘dd/mm/yyyy’

The result will be ‘7/7/2020 3:48:25 PM’

Long Date

MsgBox Format(Now(), "Long Date")

This will display a long date as defined in the Windows Control Panel (Clock and Region | Region).  Note that it does not include the time.

The result will be ‘Tuesday, July 7, 2020’

Medium Date

MsgBox Format(Now(), "Medium Date")

This displays a date as defined in the short date settings as defined by locale in the Windows Control Panel.

The result will be ’07-Jul-20’

AutoMacro | Ultimate VBA Add-in | Click for Free Trial!

Short Date

MsgBox Format(Now(), "Short Date")

Displays a short date as defined in the Windows Control Panel (Clock and Region | Region). How the date is displayed depends on your locale. It may be displayed as ‘mm/dd/yyyy’ or ‘dd/mm/yyyy’

The result will be ‘7/7/2020’

Long Time

MsgBox Format(Now(), "Long Time")

Displays a long time as defined in Windows Control Panel (Clock and Region | Region).

The result will be ‘4:11:39 PM’

Medium Time

MsgBox Format(Now(), "Medium Time")

Displays a medium time as defined by your locale in the Windows Control Panel. This is usually set as 12-hour format using hours, minutes, and seconds and the AM/PM format.

The result will be ’04:15 PM’

Short Time

MsgBox Format(Now(), "Short Time")

Displays a medium time as defined in Windows Control Panel (Clock and Region | Region). This is usually set as 24-hour format with hours and minutes

The result will be ’16:18’

AutoMacro | Ultimate VBA Add-in | Click for Free Trial!

Dangers of Using Excel’s Pre-Defined Formats in Dates and Times

The use of the pre-defined formats for dates and times in Excel VBA is very dependent on the settings in the Windows Control Panel and also what the locale is set to

Users can easily alter these settings, and this will have an effect on how your dates and times are displayed in Excel

For example, if you develop an Excel application which uses pre-defined formats within your VBA code, these may change completely if a user is in a different country or using a different locale to you.  You may find that column widths do not fit the date definition, or on a user form the Active X control such as a combo box (drop down) control is too narrow for the dates and times to be displayed properly.

You need to consider where the audience is geographically when you develop your Excel application

User-Defined Formats for Numbers

There are a number of different parameters that you can use when defining your format string:

Character	Description
Null String	No formatting
0	Digit placeholder. Displays a digit or a zero. If there is a digit for that position then it displays the digit otherwise it displays 0. If there are fewer digits than zeros, then you will get leading or trailing zeros. If there are more digits after the decimal point than there are zeros, then the number is rounded to the number of decimal places shown by the zeros. If there are more digits before the decimal point than zeros these will be displayed normally.
#	Digit placeholder. This displays a digit or nothing. It works the same as the zero placeholder above, except that leading and trailing zeros are not displayed. For example 0.75 would be displayed using zero placeholders, but this would be .75 using # placeholders.
. Decimal point.	Only one permitted per format string. This character depends on the settings in the Windows Control Panel.
%	Percentage placeholder. Multiplies number by 100 and places % character where it appears in the format string
, (comma)	Thousand separator. This is used if 0 or # placeholders are used and the format string contains a comma. One comma to the left of the decimal point indicates round to the nearest thousand. E.g. ##0, Two adjacent commas to the left of the thousand separator indicate rounding to the nearest million. E.g. ##0,,
E- E+	Scientific format. This displays the number exponentially.
: (colon)	Time separator – used when formatting a time to split hours, minutes and seconds.
/	Date separator – this is used when specifying a format for a date
– + £ $ ( )	Displays a literal character. To display a character other than listed here, precede it with a backslash ()

User-Defined Formats for Dates and Times

These characters can all be used in you format string when formatting dates and times:

Character	Meaning
c	Displays the date as ddddd and the time as ttttt
d	Display the day as a number without leading zero
dd	Display the day as a number with leading zero
ddd	Display the day as an abbreviation (Sun – Sat)
dddd	Display the full name of the day (Sunday – Saturday)
ddddd	Display a date serial number as a complete date according to Short Date in the International settings of the windows Control Panel
dddddd	Displays a date serial number as a complete date according to Long Date in the International settings of the Windows Control Panel.
w	Displays the day of the week as a number (1 = Sunday)
ww	Displays the week of the year as a number (1-53)
m	Displays the month as a number without leading zero
mm	Displays the month as a number with leading zeros
mmm	Displays month as an abbreviation (Jan-Dec)
mmmm	Displays the full name of the month (January – December)
q	Displays the quarter of the year as a number (1-4)
y	Displays the day of the year as a number (1-366)
yy	Displays the year as a two-digit number
yyyy	Displays the year as four-digit number
h	Displays the hour as a number without leading zero
hh	Displays the hour as a number with leading zero
n	Displays the minute as a number without leading zero
nn	Displays the minute as a number with leading zero
s	Displays the second as a number without leading zero
ss	Displays the second as a number with leading zero
ttttt	Display a time serial number as a complete time.
AM/PM	Use a 12-hour clock and display AM or PM to indicate before or after noon.
am/pm	Use a 12-hour clock and use am or pm to indicate before or after noon
A/P	Use a 12-hour clock and use A or P to indicate before or after noon
a/p	Use a 12-hour clock and use a or p to indicate before or after noon

Преобразование чисел, дат и строк в настраиваемый текстовый формат из кода VBA Excel с помощью функции Format. Синтаксис, параметры, символы, примеры.

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

Синтаксис и параметры

Format(Expression, [FormatExpression], [FirstDayOfWeek], [FirstWeekOfYear])

• Expression – любое допустимое выражение (переменная), возвращающее числовое значение или строку (обязательный параметр).
• FormatExpression – выражение формата, именованное или содержащее инструкции из специальных символов (необязательный параметр).
• FirstDayOfWeek – константа, задающая первый день недели (необязательный параметр).
• FirstWeekOfYear – константа, задающая первую неделю года (необязательный параметр).

Именованные выражения форматов

Именные форматы даты и времени

Имя формата	Описание
General Date	Стандартное отображение даты и времени в соответствии с параметрами системы.
Long Date	Длинный формат даты.
Medium Date	Средний формат даты.
Short Date	Краткий формат даты.
Long Time	Длинный формат времени.
Medium Time	Средний формат времени.
Short Time	Краткий формат времени.

Проверьте отображение даты и времени с использованием именованных форматов на вашем компьютере при помощи следующего кода VBA Excel:

Sub FormatDateTime() MsgBox «General Date:  « & Format(Now, «General Date») & vbNewLine _ & vbNewLine & «Long Date:  « & Format(Now, «Long Date») & vbNewLine _ & vbNewLine & «Medium Date:  « & Format(Now, «Medium Date») & vbNewLine _ & vbNewLine & «Short Date:  « & Format(Now, «Short Date») & vbNewLine _ & vbNewLine & «Long Time:  « & Format(Now, «Long Time») & vbNewLine _ & vbNewLine & «Medium Time:  « & Format(Now, «Medium Time») & vbNewLine _ & vbNewLine & «Short Time:  « & Format(Now, «Short Time») End Sub

Скорее всего, результат будет таким:

Именованные форматы чисел

Имя формата	Описание
General Number	Стандартное отображение числа без знака разделителя групп разрядов.
Currency	Денежный формат.
Fixed	Отображение числа без знака разделителя групп разрядов с двумя цифрами после разделителя целой и дробной части.
Standard	Отображение числа со знаком разделителя групп разрядов и с двумя цифрами после разделителя целой и дробной части.
Percent	Процентный формат: отображение числа, умноженного на 100, со знаком процента (%), добавленного справа.
Scientific	Отображение числа в экспоненциальном виде.
Yes/No	Возвращается «Нет», если число равно 0, иначе отображается «Да».
True/False	Возвращается «Ложь», если число равно 0, иначе отображается «Истина».
On/Off	Возвращается «Выкл», если число равно 0, иначе отображается «Вкл».

Проверяем работу именованных форматов на числах 2641387.7381962 и 0 с помощью кода VBA Excel:

Sub FormatNumber() Dim n As Double n = 2641387.7381962 ‘n = 0 MsgBox «Форматируемое число = « & n & vbNewLine _ & vbNewLine & «General Number:  « & Format(n, «General Number») & vbNewLine _ & vbNewLine & «Currency:  « & Format(n, «Currency») & vbNewLine _ & vbNewLine & «Fixed:  « & Format(n, «Fixed») & vbNewLine _ & vbNewLine & «Standard:  « & Format(n, «Standard») & vbNewLine _ & vbNewLine & «Percent:  « & Format(n, «Percent») & vbNewLine _ & vbNewLine & «Scientific:  « & Format(n, «Scientific») & vbNewLine _ & vbNewLine & «Yes/No:  « & Format(n, «Yes/No») & vbNewLine _ & vbNewLine & «True/False:  « & Format(n, «True/False») & vbNewLine _ & vbNewLine & «On/Off:  « & Format(n, «On/Off») End Sub

Получаем следующий результат:

 

Вместо вопросительного знака в отображении числа в формате Currency, по идее, должен быть знак валюты (₽ или руб.).

Специальные символы для выражений форматов

Символы для форматов даты и времени

Символ	Описание
Точка (.)	Разделитель компонентов даты (день, месяц, год). Используется при отображении месяца в виде числа.
Пробел	Разделитель компонентов даты (день, месяц, год). Используется при отображении месяца прописью.
Двоеточие (:)	Разделитель компонентов времени (часы, минуты, секунды).
d	День в виде числа без нуля в начале (1–31).
dd	День в виде числа с нулем в начале (01–31).
m	Месяц в виде числа без нуля в начале (1–12). Если (m) следует после (h) или (hh), отображаются минуты (0–59).
mm	Месяц в виде числа с нулем в начале (01–12). Если (mm) следует после (h) или (hh), отображаются минуты (00–59).
mmm	Месяц прописью в сокращенном виде (янв–дек).
mmmm	Полное название месяца (январь–декабрь).
y	День года в виде числа (1–366).
yy	Год в виде 2-значного числа (00–99).
yyyy	Год в виде 4-значного числа (1900–9999).
h	Часы в виде числа без нуля в начале (0–23).
hh	Часы в виде числа с нулем в начале (00–23).
n (m)	Минуты в виде числа без нуля в начале (0–59).
nn (mm)	Минуты в виде числа с нулем в начале (00–59).
s	Секунды в виде числа без нуля в начале (0–59).
ss	Секунды в виде числа с нулем в начале (00–59).

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

Примеры отображения даты с помощью разных по количеству наборов символа d:

Sub DataIsD() MsgBox «d:  « & Format(Now, «d») & vbNewLine _ & vbNewLine & «dd:  « & Format(Now, «dd») & vbNewLine _ & vbNewLine & «ddd:  « & Format(Now, «ddd») & vbNewLine _ & vbNewLine & «dddd:  « & Format(Now, «dddd») & vbNewLine _ & vbNewLine & «ddddd:  « & Format(Now, «ddddd») & vbNewLine _ & vbNewLine & «dddddd:  « & Format(Now, «dddddd») End Sub

Символы для числовых форматов

Символ	Описание
Точка (.)	Десятичный разделитель.
Запятая (,)	Разделитель групп разрядов. В отображаемых числах заполняется пробелом.
(0)	Заполнитель, который отображает цифру или ноль. Используется, когда нужны ведущие нули или нули в конце числа.
(#)	Заполнитель, который отображает цифру или ничего не отображает. Используется, когда не нужны ведущие нули или нули в конце числа.
(%)	Заполнитель процента. Выражение умножается на 100, а знак процента (%) вставляется на той позиции, где он указан в строке формата.
(E- E+ e- e+)	Экспоненциальный формат.

Примеры использования символов в выражениях числовых форматов VBA Excel:

Sub FormatNumber2() Dim n As Double n = 2641387.7381962 ‘n = 0.2397842 MsgBox «Форматируемое число = « & n & vbNewLine _ & vbNewLine & «0.##:  « & Format(n, «0.##») & vbNewLine _ & vbNewLine & «000.###:  « & Format(n, «000.###») & vbNewLine _ & vbNewLine & «#,###.###:  « & Format(n, «#,###.###») & vbNewLine _ & vbNewLine & «0 %:  « & Format(n, «0 %») & vbNewLine _ & vbNewLine & «0.### E-:  « & Format(n, «0.### E-«) & vbNewLine _ & vbNewLine & «0.### E+:  « & Format(n, «0.### E+») End Sub

 

Символы для текстовых форматов

Символ	Описание
At-символ (@)	Заполнитель для символов, отображающий знак или пробел.
Амперсанд (&)	Заполнитель для символов, отображающий знак или ничего (пустая строка).
Меньше (<)	Принудительный перевод всех буквенных символов в нижний регистр.
Больше (>)	Принудительный перевод всех буквенных символов в верхний регистр.

Примеры использования символов в выражениях строковых форматов VBA Excel:

Sub FormatString() MsgBox «Номер телефона:  « & Format(«1234567890», «+7 (@@@) @@@-@@-@@») & vbNewLine _ & vbNewLine & «Серия и номер паспорта:  « & Format(«1234567890», «&& && &&&&») & vbNewLine _ & vbNewLine & «Нижний регистр:  « & Format(«Нижний регистр», «<«) & vbNewLine _ & vbNewLine & «Верхний регистр: « & Format(«Верхний регистр», «>») End Sub

Форматы для различных значений одного выражения

Различные форматы для разных числовых значений

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

Количество разделов	Результат форматирования
Один раздел	Выражение формата применяется ко всем значениям.
Два раздела	Первый раздел применяется к положительным значениям и нулям, второй – к отрицательным значениям.
Три раздела	Первый раздел применяется к положительным значениям, второй – к отрицательным значениям, третий – к нулям.
Четыре раздела	Первый раздел применяется к положительным значениям, второй – к отрицательным значениям, третий – к нулям, четвертый – к значениям Null.

Пример использования четырех разделов в выражении формата числовых значений:

Sub FormatDifferentValues() MsgBox «Число 1234,5678:  « & _ Format(1234.5678, «#,##0.00 руб.;Отрицательное число;Ноль рублей;Значение Null») _ & vbNewLine & vbNewLine & «Число -25:  « & _ Format(—25, «#,##0.00 руб.;Отрицательное число;Ноль рублей;Значение Null») _ & vbNewLine & vbNewLine & «Число 0:  « & _ Format(0, «#,##0.00 руб.;Отрицательное число;Ноль рублей;Значение Null») _ & vbNewLine & vbNewLine & «Null:  « & _ Format(Null, «#,##0.00 руб.;Отрицательное число;Ноль рублей;Значение Null») End Sub

Различные форматы для разных строковых значений

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

Количество разделов	Результат форматирования
Один раздел	Выражение формата применяется ко всем строковым данным.
Два раздела	Первый раздел применяется к строковым данным, второй – к значениям Null и пустым строкам («»).

Пример использования двух разделов в выражении формата строк:

Sub FormatString2() MsgBox «Строка «Белка»:  « & _ Format(«Белка», «@;Пустая строка или Null») _ & vbNewLine & vbNewLine & «Пустая строка:  « & _ Format(«», «@;Пустая строка или Null») _ & vbNewLine & vbNewLine & «Строка «Null»:  « & _ Format(«Null», «@;Пустая строка или Null») _ & vbNewLine & vbNewLine & «Значение Null:  « & _ Format(Null, «@;Пустая строка или Null») End Sub

В данном примере описаны макросы для автоматического форматирования или спроса формата для ячеек таблиц Excel средствами VBA.

VBA-макрос: заливка, шрифт, линии границ, ширина столбцов и высота строк

В процессе запыления данных сотрудниками отдела на некоторых листах были изменены форматы ячеек:

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

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

Макросы Excel прекрасно справляются с форматированием ячеек на рабочих листах. Кроме того, делают это быстро и в полностью автоматическом режиме. Воспользуемся этими преимуществами и для решения данной задачи напишем свой код VBA-макроса. Он поможет нам быстро и безопасно сбрасывать форматы на исходный предварительно заданный в шаблоне главной таблицы.

Чтобы написать свой код макроса откройте специальный VBA-редактор в Excel: «РАЗРАБОТЧИК»-«Код»-«Visual Basic» или нажмите комбинацию клавиш ALT+F11:

В редакторе создайте новый модуль выбрав инструмент «Insert»-«Module» и введите в него такой VBA-код макроса:

Sub SbrosFormat()
If TypeName(Selection) <> "Range" Then Exit Sub
With Selection
.HorizontalAlignment = xlVAlignCenter
.VerticalAlignment = xlVAlignCenter
.WrapText = True
.Borders.LineStyle = xlContinuous
.Borders.Weight = xlThin
.Font.ColorIndex = xlColorIndexAutomatic
.Interior.ColorIndex = xlColorIndexAutomatic
.Columns.AutoFit
.Rows.AutoFit
End With
End Sub


Теперь если нам нужно сбросить форматирование таблицы на исходный формат отображения ее данных, выделите диапазон ячеек A1:E20 и запустите макрос: «РАЗРАБОЧТИК»-«Код»-«Макросы»-«SbrosFormat»-«Выполнить». Результат работы макроса изображен ниже на рисунке:

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



Описание VBA-макроса для формата ячеек таблицы Excel

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

1. Текст в значениях ячеек выравнивается по центру горизонтально и вертикально.
2. Включен построчный перенос текста.
3. Все границы ячеек получают черную обычной толщины непрерывную линию с черным цветом.
4. Сброс цвета шрифта на авто.
5. Удаляется любая заливка ячеек.
6. Ширина столбцов автоматически настраивается под текст в ячейках.
7. Автоматически настроить высоту строк по содержимому ячеек.

Модификация исходного кода макроса для форматирования

Если необходимо сделать так чтобы текст выравнивался не по центру относительно горизонтали, а по правую сторону ячейки, тогда измените константу xlHAlignCenter на xlHAlignRight. Она находиться в свойстве .HorizontalAlignment. Сделайте это следующим образом:

.HorizontalAlignment = xlHAlignRight.

Таким же образом можно выровнять текст по левую сторону изменив значение константы на xlHAlignLeft. Или можно выровнять положение текста по ширине ячейки используя константу xlHAlignJustify.

Чтобы макрос выравнивал текст в ячейках по вертикали к низу, измените строку кода, отвечающую за данную настройку форматирования. Измените константу, которая присваивается к свойству VerticalAlignment в следующий способ:

Если хотите выровнять текс к верху ячейки, тогда воспользуйтесь константой xlHAlignTop.

Если нужно применить для границ ячеек толстую и пунктирную линию в синем цвете, смодифицируйте инструкцию, отвечающую за формат линий:

.Borders.LineStyle = xlDash

.Borders.Color = vbBlue

.Borders.Weight = xlMedium

Описание настройки форматирования для линий границ ячеек. Мы будем получать разные дополнительные типы линий границ если для свойства LineStyle присваивать такие константы:

• xlDoshDot – применяется для рисования пунктирных линий в границах ячеек;
• xlDouble – рисует двойную линию;
• xlHairLine – рисует тонкую линию;
• xlThick – для рисования очень толстой линии.

Для настройки цвета линий Excel предлагает всего 8 констант для определенных цветов. Константы для настройки цвета линий границ для свойства Color:

• vbBlack – черный;
• vbWhite – белый;
• vbRed – красный;
• vbGreen –зеленый;
• vbBlue – синий;
• vbYellow – желтый;
• vbMagenta – алый;
• vbCyan – голубой.

Но при необходимости присвоить линиям границ другие цвета можно вместо константы для свойства Color записать функцию RGB(). Достаточно лишь в аргументе этой функции указать код цвета по шкале от 0 и до 255.

Если нужно применить толстую линию только для границ выделенного диапазона, тогда перед инструкцией End With добавьте следующую строку кода:

.BorderAround xlContinuous, xlMedium, vbBlack

Описание: В первом аргументе для метода BorderAround можно записать также другой стиль линии. Во втором – толщину линии, а в третьем – цвет. Константы, которые можно присвоить в качестве значений для этих аргументов можно использовать те же, которые мы использовали для свойств: LineStyle, Weight, Color.

Если нужно экспонировать первую строку для выделенного диапазона с помощью жирного и курсивного шрифта значений ячеек. А также заполнить ячейки первой строки заливкой с голубым цветом, тогда в самом конце кода макроса перед последней инструкцией End Sub следует добавить несколько строк с VBA-кодом:

.Rows(1).Font.Bold = True

.Rows(1).Font.Italic = True

.Rows(1).Interior.Color = vbCyan

Если хотите присвоить такой же формат для не только для первой строки, но и для первого столбца выделенного диапазона, тогда скопируйте и вставьте ниже эти 3 строчки кода. После в последних трех строках измените свойство Rows на Columns.

.Columns (1).Font.Bold = True

.Columns (1).Font.Italic = True

.Columns (1).Interior.Color = vbCyan

Если нужно задать особенный формат для экспонирования последней строки выделенного диапазона, тогда измените число 1 в аргументе свойства Rows на число всех выделенных строк .Rows.Count. Например, добавьте в конец кода еще такую строку:

.Rows(.Rows.Count).Font.Bold = True

Полная версия модифицированного кода макроса выглядит так:

Sub SbrosFormat()
If TypeName(Selection) <> "Range" Then Exit Sub
With Selection
.HorizontalAlignment = xlVAlignCenter
.VerticalAlignment = xlVAlignCenter
.WrapText = True
.Borders.LineStyle = xlDash
.Borders.Color = vbBlue
.Borders.Weight = xlMedium
.Font.ColorIndex = xlColorIndexAutomatic
.Interior.ColorIndex = xlColorIndexAutomatic
.Columns.AutoFit
.Rows.AutoFit
.BorderAround xlContinuous, xlMedium, vbBlack
.Rows(1).Font.Bold = True
.Rows(1).Font.Italic = True
.Rows(1).Interior.Color = vbCyan
.Columns(1).Font.Bold = True
.Columns(1).Font.Italic = True
.Columns(1).Interior.Color = vbCyan
.Rows(.Rows.Count).Font.Bold = True
End With
End Sub


Пример работы измененного кода VBA-макроса:

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

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

Форматирование чисел упрощает чтение и понимание чисел. По умолчанию в Excel для чисел, вводимых в ячейки, используется «Общий» формат, что означает, что число отображается точно так, как вы его ввели.

Например, если вы введете круглое число, например 4238, он будет отображаться как 4238 без десятичной точки и разделителей тысяч. Десятичное число, такое как 9325,89, будет отображаться с десятичной точкой и десятичными знаками. Это означает, что он не выровняется в столбце с круглыми числами и будет выглядеть очень неаккуратно.

Кроме того, не показывая разделителей тысяч, трудно увидеть, насколько большое число на самом деле, без подсчета отдельных цифр. Это миллионы или десятки миллионов?

С точки зрения пользователя, просматривающего столбец чисел, это затрудняет чтение и сравнение.

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

Функция форматирования — чрезвычайно полезная функция в VBA с точки зрения представления, но она также очень сложна с точки зрения гибкости, предлагаемой в способе отображения чисел.

Как использовать функцию форматирования в VBA

Если вы показываете окно сообщения, то функцию форматирования можно использовать напрямую:

1	Формат MsgBox (1234567,89, «#, ## 0,00»)

Это отобразит большое число с использованием запятых для разделения тысяч и отображения 2 десятичных знаков. Результат будет 1 234 567,89. Нули вместо хэша гарантируют, что десятичные дроби будут отображаться как 00 в целых числах, и что есть начальный ноль для числа, которое меньше 1

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

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

1	Листы («Лист1»). Диапазон («A1: A10»). NumberFormat = «#, ## 0.00»

Этот код установит диапазон ячеек (от A1 до A10) в настраиваемый формат, который разделяет тысячи запятыми и показывает 2 десятичных знака.

Если вы проверите формат ячеек в интерфейсе Excel, вы обнаружите, что был создан новый настраиваемый формат.

Вы также можете форматировать числа в строке состояния Excel в нижнем левом углу окна Excel:

1	Application.StatusBar = Format (1234567,89, «#, ## 0,00»)

Вы очищаете это в строке состояния, используя:

1	Application.StatusBar = «»

Создание строки формата

В этом примере после каждого числа будет добавлен текст «Общий объем продаж», а также будет включен разделитель тысяч.

1	Таблицы («Лист1»). Диапазон («A1: A6»). NumberFormat = «#, ## 0.00» «Общий объем продаж» «»

Вот как будут выглядеть ваши числа:

Обратите внимание, что в ячейке A6 есть формула «СУММ», и она будет включать текст «Общий объем продаж» без необходимости форматирования. Если применяется форматирование, как в приведенном выше коде, он не помещает дополнительный экземпляр «Всего продаж» в ячейку A6.

Хотя в ячейках теперь отображаются буквенно-цифровые символы, числа по-прежнему представлены в числовой форме. Формула «СУММ» по-прежнему работает, потому что в ней используется числовое значение в фоновом режиме, а не способ форматирования числа.

Запятая в строке формата обеспечивает разделитель тысяч. Обратите внимание, что вам нужно ввести это в строку только один раз. Если число достигает миллионов или миллиардов, оно все равно разделит цифры на группы по 3

Ноль в строке формата (0) — это цифра-заполнитель. Он отображает цифру, если она есть, или ноль. Его расположение очень важно для обеспечения единообразия с форматированием.

В строке формата символы решетки (#) ничего не отображают, если нет цифры. Однако, если есть число вроде 0,8 (все десятичные дроби), мы хотим, чтобы оно отображалось как 0,80, чтобы оно совпадало с другими числами.

Использование одного нуля слева от десятичной точки и двух нулей справа от десятичной точки в строке формата дает требуемый результат (0,80).

Если бы справа от десятичной точки был только один ноль, то результатом было бы «0,8», и все отображалось бы с точностью до одного десятичного знака.

Использование строки формата для выравнивания

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

Для этого вы можете использовать вопросительный знак (?) В строке формата. Знак «?» Указывает на то, что отображается номер, если он доступен, или пробел.

1	Листы («Лист1»). Диапазон («A1: A6»). NumberFormat = «#, ## 0.00 ??»

Это отобразит ваши числа следующим образом:

Все десятичные точки теперь выстраиваются друг под другом. В ячейке A5 есть три десятичных разряда, и это нормально выровняло бы выравнивание, но использование символа «?» Выравнивает все идеально.

Использование буквенных символов в строке формата

Вы можете добавить любой буквальный символ в строку формата, поставив перед ним обратную косую черту ().

Предположим, вы хотите отобразить конкретный индикатор валюты для ваших чисел, который не зависит от вашего региона. Проблема в том, что если вы используете индикатор валюты, Excel автоматически ссылается на ваш локальный язык и меняет его на тот, который соответствует языку, установленному на панели управления Windows. Это может иметь последствия, если ваше приложение Excel распространяется в других странах, и вы хотите убедиться, что независимо от языкового стандарта индикатор валюты всегда один и тот же.

Вы также можете указать, что числа указаны в миллионах в следующем примере:

1	Листы («Лист1»). Диапазон («A1: A6″). NumberFormat = » $ #, ## 0.00 m»

Это даст следующие результаты на вашем листе:

При использовании обратной косой черты для отображения буквальных символов нет необходимости использовать обратную косую черту для каждого отдельного символа в строке. Вы можете использовать:

1	Листы («Лист1»). Диапазон («A1: A6″). NumberFormat = » $ #, ## 0.00 mill»

После каждого числа в пределах отформатированного диапазона будет отображаться «мельница».

В качестве литералов можно использовать большинство символов, но не зарезервированные символы, такие как 0, # ,?

Использование запятых в строке формата

Мы уже видели, что запятые можно использовать для создания разделителей тысяч для больших чисел, но их можно использовать и по-другому.

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

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

1	Листы («Лист1»). Диапазон («A1: A6″). NumberFormat = » $ #, ## 0.00, m»

Это покажет числа, разделенные на 1000, хотя исходное число все еще будет в ячейке на заднем плане.

Если в строке формата поставить две запятые, то числа будут разделены на миллион

1	Листы («Лист1»). Диапазон («A1: A6″). NumberFormat = » $ #, ## 0,00 ,, m»

Это будет результат с использованием только одной запятой (разделите на 1000):

Создание условного форматирования в строке формата

Вы можете настроить условное форматирование во внешнем интерфейсе Excel, но вы также можете сделать это в своем коде VBA, что означает, что вы можете программно управлять строкой формата для внесения изменений.

Вы можете использовать до четырех разделов в строке формата. Каждый раздел отделяется точкой с запятой (;). Четыре раздела соответствуют положительным, отрицательным, нулевым и текстовым

1	Диапазон («A1: A7»). NumberFormat = «#, ## 0,00; [Красный] — #, ## 0,00; [Зеленый] #, ## 0,00; [Синий]»

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

Первый раздел предназначен для положительных чисел и не отличается по формату от того, что мы уже видели ранее.

Во втором разделе для отрицательных чисел вводится цвет (красный), заключенный в пару квадратных скобок. Формат такой же, как и для положительных чисел, за исключением того, что перед ним был добавлен знак минус (-).

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

Последний раздел предназначен для текстовых значений, и все, что для этого нужно, это снова цвет (синий) в квадратных скобках.

Это результат применения этой строки формата:

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

1	Диапазон («A1: A7»). NumberFormat = «[> = 10000] [Зеленый] #, ## 0,00; [<10000] [Красный] #, ## 0,00»

Эта строка формата включает условия для> = 10000, указанные в квадратных скобках, поэтому зеленый цвет будет использоваться только там, где число больше или равно 10000.

Вот результат:

Использование дробей в строках форматирования

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

Однако иногда они служат определенной цели. В этом примере будут отображаться доллары и центы:

1	Диапазон («A1: A7»). NumberFormat = «#, ## 0» «долларов и» «00/100» «центов» «»

Вот результат, который будет получен:

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

Форматы даты и времени

Даты на самом деле являются числами, и вы можете использовать их форматы так же, как и числа. Если вы отформатируете дату как числовое число, вы увидите большое число слева от десятичной точки и количество десятичных знаков. Число слева от десятичной точки показывает количество дней, начиная с 01 января 1900 года, а десятичные разряды показывают время, основанное на 24 часах.

1	Формат MsgBox (Сейчас (), «дд-ммм-гггг»)

Это отформатирует текущую дату так, чтобы показать ’08 -Июль-2020 ‘. При использовании «ммм» для месяца отображаются первые три символа названия месяца. Если вам нужно полное название месяца, используйте «мммм».

Вы можете включить время в строку формата:

1	Формат MsgBox (Сейчас (), «дд-ммм-гггг чч: мм AM / PM»)

Будет отображаться ’08 -Июль-2020 13:25 ‘.

«Чч: мм» представляет часы и минуты, а AM / PM использует 12-часовой формат времени, а не 24-часовой формат.

Вы можете включить текстовые символы в строку формата:

1	Формат MsgBox (Сейчас (), «дд-ммм-гггг чч: мм AM / PM» «сегодня» «»)

Будет отображаться «08-июл-2020 13:25 сегодня».

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

Предопределенные форматы

В Excel есть несколько встроенных форматов чисел и дат, которые вы можете использовать в своем коде. В основном они отражают то, что доступно во внешнем интерфейсе форматирования чисел, хотя некоторые из них выходят за рамки того, что обычно доступно во всплывающем окне. Кроме того, у вас нет гибкости в отношении количества десятичных знаков или использования разделителей тысяч.

Общий номер

В этом формате число будет отображаться точно так, как оно есть.

1	Формат MsgBox (1234567,89, «Общий номер»)

Результат будет 1234567,89

Валюта

1	Формат MsgBox (1234567,894, «Валюта»)

В этом формате перед числом будет добавлен символ валюты, например $, £ в зависимости от вашего языкового стандарта, но он также отформатирует число до двух десятичных знаков и разделит тысячи запятыми.

Результат будет 1234567,89 $.

Фиксированный

1	Формат MsgBox (1234567.894, «Фиксированный»)

Этот формат отображает по крайней мере одну цифру слева, но только две цифры справа от десятичной точки.

Результат будет 1234567,89

Стандарт

1	Формат MsgBox (1234567.894, «Стандартный»)

Это отображает число с разделителями тысяч, но только с двумя десятичными знаками.

Результат будет 1234567,89

Процентов

1	Формат MsgBox (1234567,894, «Процент»)

Число умножается на 100, и в конце числа добавляется символ процента (%). Формат отображается с точностью до 2 знаков после запятой.

Результат будет 123456789,40%

Научный

1	Формат MsgBox (1234567.894, «Научный»)

Это преобразует число в экспоненциальный формат.

Результат будет 1.23E + 06

Да нет

1	Формат MsgBox (1234567.894, «Да / Нет»)

Отображается «Нет», если число равно нулю, в противном случае отображается «Да».

Результатом будет «Да».

Верно / неверно

1	Формат MsgBox (1234567,894, «Истина / Ложь»)

Отображается «False», если число равно нулю, в противном случае отображается «True».

Результатом будет «True».

Вкл выкл

1	Формат MsgBox (1234567.894, «Вкл. / Выкл.»)

Отображается «Выкл.», Если число равно нулю, в противном случае отображается «Вкл.».

Результат будет «Вкл».

Общая дата

1	Формат MsgBox (Сейчас (), «Общая дата»)

Дата будет отображаться как дата и время в формате AM / PM. Отображение даты зависит от ваших настроек в Панели управления Windows (Часы и регион | Регион). Может отображаться как «мм / дд / гггг» или «дд / мм / гггг».

Результатом будет «07.07.2020 15:48:25».

Длинное свидание

1	Формат MsgBox (Сейчас (), «Длинная дата»)

Это будет отображать длинную дату, как определено на панели управления Windows (Часы и регион | Регион). Обратите внимание, что это не включает время.

Результатом будет «Вторник, 7 июля 2022 г.».

Средняя дата

1	Формат MsgBox (Сейчас (), «Средняя дата»)

При этом отображается дата, определенная в параметрах краткой даты, как определено языковым стандартом в Панели управления Windows.

Результат будет ’07 -Июль-20 ‘.

Короткое свидание

1	Формат MsgBox (Сейчас (), «Краткая дата»)

Отображает короткую дату, как определено на панели управления Windows (Часы и регион | Регион). Отображение даты зависит от вашего региона. Может отображаться как «мм / дд / гггг» или «дд / мм / гггг».

Результатом будет «07.07.2020».

Много времени

1	Формат MsgBox (Сейчас (), «Долгое время»)

Отображает долгое время, как определено в Панели управления Windows (Часы и регион | Регион).

Результатом будет «16:11:39 PM».

Среднее время

1	Формат MsgBox (Сейчас (), «Среднее время»)

Отображает среднее время, определенное вашим языком в Панели управления Windows. Обычно это 12-часовой формат с использованием часов, минут и секунд, а также формат AM / PM.

Результат будет «04:15».

Короткое время

1	Формат MsgBox (Сейчас (), «Кратковременное»)

Отображает среднее время, определенное в Панели управления Windows (Часы и регион | Регион). Обычно это 24-часовой формат с часами и минутами.

Результат будет ’16: 18 ‘.

Опасности использования предварительно определенных форматов Excel в датах и ​​времени

Использование предопределенных форматов даты и времени в Excel VBA очень зависит от настроек в Панели управления Windows, а также от того, какой языковой стандарт установлен на

Пользователи могут легко изменить эти параметры, и это повлияет на отображение даты и времени в Excel.

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

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

Определяемые пользователем форматы чисел

Существует ряд различных параметров, которые вы можете использовать при определении строки формата:

Характер	Описание
Нулевая строка	Без форматирования
0	Заполнитель цифры. Отображает цифру или ноль. Если для этой позиции есть цифра, она отображает цифру, в противном случае отображается 0. Если цифр меньше, чем нулей, вы получите начальные или конечные нули. Если после десятичной точки больше цифр, чем нулей, то число округляется до количества десятичных разрядов, отображаемых нулями. Если перед десятичной точкой больше цифр, чем нулей, они будут отображаться нормально.
#	Заполнитель цифры. Это отображает цифру или ничего. Он работает так же, как и заполнитель нуля выше, за исключением того, что начальные и конечные нули не отображаются. Например, 0,75 будет отображаться с нулевыми заполнителями, но это будет 0,75 с использованием # заполнителей.
. Десятичная точка.	Только один разрешен на строку формата. Этот символ зависит от настроек в Панели управления Windows.
%	Заполнитель процента. Умножает число на 100 и помещает символ% там, где он появляется в строке формата.
, (запятая)	Разделитель тысяч. Это используется, если используются заполнители 0 или #, а строка формата содержит запятую. Одна запятая слева от десятичной точки означает округление до ближайшей тысячи. Например. ## 0, Две соседние запятые слева от разделителя тысяч означают округление до ближайшего миллиона. Например. ## 0 ,,
E- E +	Научный формат. Это отображает число экспоненциально.
: (двоеточие)	Разделитель времени — используется при форматировании времени для разделения часов, минут и секунд.
/	Разделитель даты — используется при указании формата даты.
— + £ $ ( )	Отображает буквальный символ.Чтобы отобразить символ, отличный от указанного здесь, поставьте перед ним обратную косую черту ()

Пользовательские форматы даты и времени

Все эти символы могут использоваться в строке формата при форматировании даты и времени:

Характер	Имея в виду
c	Отображает дату как ддддд и время как тттт
d	Отображение дня в виде числа без нуля в начале
дд	Отображение дня в виде числа с нулем в начале
ддд	Отображение дня в виде аббревиатуры (вс — сб)
дддд	Отображение полного названия дня (воскресенье — суббота)
ддддд	Отображение серийного номера даты как полной даты в соответствии с краткой датой в международных настройках панели управления Windows
дддддд	Отображает серийный номер даты как полную дату в соответствии с длинной датой в международных настройках панели управления Windows.
ш	Отображает день недели в виде числа (1 = воскресенье)
ww	Отображает неделю года в виде числа (1-53)
м	Отображает месяц в виде числа без нуля в начале
мм	Отображает месяц в виде числа с ведущими нулями
М-м-м	Отображает месяц в виде сокращения (январь-декабрь)
мммм	Отображает полное название месяца (январь — декабрь)
q	Отображает квартал года в виде числа (1-4)
у	Отображает день года в виде числа (1-366)
гг	Отображает год в виде двузначного числа
гггг	Отображает год в виде четырехзначного числа
час	Отображает час в виде числа без нуля в начале
чч	Отображает час в виде числа с нулем в начале
п	Отображает минуты в виде числа без нуля в начале
nn	Отображает минуты в виде числа с нулем в начале
s	Отображает секунду как число без нуля в начале
SS	Отображает секунду в виде числа с нулем в начале
тттт	Отображение серийного номера времени как полного времени.
ДО ПОЛУДНЯ ПОСЛЕ ПОЛУДНЯ	Используйте 12-часовые часы и отображайте AM или PM, чтобы указать до или после полудня.
до полудня после полудня	Используйте 12-часовые часы и используйте am или pm, чтобы указать до или после полудня.
A / P	Используйте 12-часовые часы и используйте A или P, чтобы указать до или после полудня.
а / п	Используйте 12-часовые часы и используйте a или p, чтобы указать до или после полудня.

Добрый день, Столкнулся тут с проблемой, пытаюсь на работе написать макрос, чтобы из файла выгруженного из 1с в xls (value.xls), подтянулись данные в екселевский прайс (price-zakaz.xls) (оформленный, с картинками, структурой и т.п.) Хочу использовать связку ПОИСКПОЗ и ИНДЕКС, и по Артикулу, разнести штрих-коды, цены и остатки. И вот собственно суть проблемы, Артикулы бывают разного вида и чтобы они автоматически не форматировались (в дату и т.п.) стоит формат — текстовый Так вот формула не срабатывает, пока не нажмешь на ячейку с неправильным форматом, как только туда нажал — срабатывает и считает, но не будешь же тыкать во все ячейки в столбце (2000+ шт) и уж тем более не понятно как это сделать макросом, да и думаю есть более элегантное решение, ибо задача довольно стандартная и повседневная, просто я только начал осваивать макросы и VBA

	Александр Шайтар, пример приложите. Не бойтесь совершенства. Вам его не достичь.

Александр Шайтар Пользователь Сообщений: 18 Регистрация: 01.01.1970

#3 31.07.2018 15:28:06 Цитата a.i.mershik написал: Александр Шайтар , пример приложите. https://yadi.sk/d/qW08Qguc3Zkveo макрос правда пока написан частично, но суть того что хочу сделать думаю понятна, там есть пару строк.. в начале отключение ошибок и потом изменение формата, но они не помогли…. но если после срабатывания макроса 2 раза нажать в артикул, в строке где штрих-код не подставился, то он отработает… Изменено: Александр Шайтар — 31.07.2018 15:33:36

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	1. Название темы должно отражать суть задачи. Предложите новое. Модераторы заменят. 2. Пример желательно прикреплять к теме, чтбы не заставлять помогающих бегать по ссылкам. 3. Кнопка цитирования не для ответа

1. (Альтернативное название темы) Как изменить через VBA формат ячеек на текстовый и сделать чтобы он «применился»? 2. Файлы оригинальные и не влазили по размерам в разрешенный лимит. 3. Понятия не имел, на других форумах как раз человек понимает, что ему ответили. По сути проблемы, видел обратную ситуацию, там наоборот делали формат из текстового числовым и умножали на 1, чтобы «пробежаться» по ячейкам).

БМВ Модератор Сообщений: 21385 Регистрация: 28.12.2016 Excel 2013, 2016

#6 31.07.2018 18:49:26 Цитата Александр Шайтар написал: 3. Понятия не имел вы на совещанти и вашу сторону идет реплика, которая звучит так — Александр,  вы сказали … и далее следует текст Вашего последнего выступления. Вы на первом предложении скажете, что не дурак и помните, что и кому говорили. по существу, на форуме полно примеров перевода из чтсел в текст и обратно использования разных форматов при поиске.  Ищите. По вопросам из тем форума, личку не читаю.

	7 строчек упреков и ни одного дельного совета или ссылки…

Nordheim Пользователь Сообщений: 3154 Регистрация: 18.04.2017

#8 01.08.2018 09:26:08 Цитата Александр Шайтар написал: 7 строчек упреков и ни одного дельного совета или ссылки Вам в первой строчке написали приложите файл пример. Цитата Александр Шайтар написал: но суть того что хочу сделать думаю понятна Кому Вам? А на счет ссылок, у многих на работе ссылки не работаю, поэтому кто то и рад помочь, но не зная полностью задачи не хочет терять времени. Да и никто не требует Ваши оригинальные файлы, сделайте небольшой пример и приложите. Изменено: Nordheim — 01.08.2018 09:26:33 «Все гениальное просто, а все простое гениально!!!»

Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14182 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	#9 01.08.2018 09:38:36 На вскидку: Код 'сначала присваиваем ячейкам формат общий: Range("A1:A20").NumberFormat = "General" 'теперь вписываем формулу - для примера формула СЕГОДНЯ() Range("A1:A20").Formula = "=NOW()" Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Александр Шайтар Пользователь Сообщений: 18 Регистрация: 01.01.1970

#10 01.08.2018 09:59:36 Код ' артикулы в текстовый формат     Range("E12").Select     Range(Selection, Selection.End(xlDown)).Select     Selection.NumberFormat = "@" ' поискпоз     Range("A12").Select     Selection.FormulaArray = "=MATCH(RC[4],[value.xls]Лист1!R1C1:R4622C1,0)"     Selection.AutoFill Destination:=Range("A12:A2160") вот что есть в макросе в результате часть значений в столбце А12 выводится как #н/д (там где артикул число оформленное как текст) но если в столбце E12, 2 раза нажать на значение (зайти как бы в редактирование и выйти), то вместо н/д появляется необходимое значение. т.е. формат текстовый как нужно применился, но из-за того, что появляется зеленая стрелка с ошибкой что «число оформлено как текст», формула не обрабатывает Изменено: Александр Шайтар — 01.08.2018 10:00:55

Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14182 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	#11 01.08.2018 10:34:44 Код Selection.FormulaArray = "=MATCH(--RC[4],[value.xls]Лист1!R1C1:R4622C1,0)" Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

	стало везде н/д, но чую ответ где-то блико

Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14182 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office

#13 01.08.2018 10:52:19 Цитата Александр Шайтар написал: стало везде н/д значит у Вас в «[value.xls]Лист1!» данные текстовые, а не числовые. Код Selection.FormulaArray = "=MATCH(RC[4]&"""",[value.xls]Лист1!R1C1:R4622C1,0)" кстати, почему формула массива? Не вижу причин для массивного ввода в этой формуле. Можно просто Formula. И еще вдогонку: а может у Вас в обоих массивах чисел есть нормальные числа и числа как текст? Тогда, возможно, будет иметь смысл использовать формулу массива типа такой: Код Selection.FormulaArray = "=MATCH(RC[4]&"""",[value.xls]Лист1!R1C1:R4622C1&"""",0)" Изменено: Дмитрий(The_Prist) Щербаков — 01.08.2018 10:54:43 Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Александр Шайтар Пользователь Сообщений: 18 Регистрация: 01.01.1970

#14 01.08.2018 10:58:27 там просто дальше из файла value извлекаются значения и разносятся в поля прайса Код ' штрихкод     Range("B12").Select     Range(Selection, Selection.End(xlDown)).Select     Selection.NumberFormat = "@"     Range("B12").Select     Selection.FormulaArray = "=INDEX([value.xls]Лист1!R1C1:R4622C4,RC[-1],2)"     Selection.AutoFill Destination:=Range("B12:B2160") а артикул в файле value предварительно тоже переводится в текстовый формат Код ' открываем данные и делаем форматы     Workbooks.Open Filename:="Z:Прайс-листыvalue.xls"     Range("A1").Select     Range(Selection, Selection.End(xlDown)).Select     Selection.NumberFormat = "@" Изменено: Александр Шайтар — 01.08.2018 10:59:47

Александр Шайтар Пользователь Сообщений: 18 Регистрация: 01.01.1970

#15 01.08.2018 11:04:30 Цитата Дмитрий(The_Prist) Щербаков написал: Selection.FormulaArray = «=MATCH(RC[4]&»»»»,[value.xls]Лист1!R1C1:R4622C1&»»»»,0)» а вот это помогло!!! УРА!!!! просто артикулы у нас совершенно разные , присутствуют всякие 02344322424 и 33.33.3333 и 12 000 232322 и т.п. поэтому и там и там приходится использовать текстовый формат может тогда подскажите что это за модификаторы? и как они так повлияли на работу? или ссылку дадите где почитать что это такое и как использовать?

	Это не модификаторы, это простая логика. Добавляя к значению пустую строку(«») через амперсанд(&) мы заставляем это число стать не числом, а текстом. Вот и все. по сути мы это делаем для всех чисел: и искомых, и для тех, среди которых ищем. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

	блин, есть все же парочка н/д… видимо еще какой-то тип данных не учтен, точно видно, что если артикул начинается с 0, то н/д, и видимо в парочке есть какие-то невидимые символы…

Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14182 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	#18 01.08.2018 11:27:12 Цитата Александр Шайтар написал: видимо еще какой-то тип данных не учтен это какой? Есть текст и числа, других нет. поэтому различия ищите в пробелах, переносах строк и т.п. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Александр Шайтар Пользователь Сообщений: 18 Регистрация: 01.01.1970

#19 01.08.2018 13:53:38 собственно согласен, все на 90% работает, но есть проблемы с артикулами начинающимися на 0 и с теми артикулами в которых есть русские буквы вместо английских… нашел на форуме макрос Код Sub Repair_LAT()   ' заменить русские буквы такими же по начертанию латинскими       If TypeName(Selection) <> "Range" Then Exit Sub     Dim arrENG(): arrENG = Array("C", "c", "E", "e", "T", "O", "o", "p", "P", "A", "a", "H", "K", "k", "X", "x", "B", "M")     Dim arrRUS(): arrRUS = Array("С", "с", "Е", "е", "Т", "О", "о", "р", "Р", "А", "а", "Н", "К", "к", "Х", "х", "В", "М")     Dim i%     For i = 0 To UBound(arrENG)        Intersect(Selection, ActiveSheet.UsedRange).Replace _              What:=arrRUS(i), _              Replacement:=arrENG(i), _              LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True     Next i   End Sub Как мне его внедрить в свой, чтобы он сработал для заранее заданного диапазона, типо Range(«E12:E2160»).Select Что нужно изменить во второй строчке? Изменено: Александр Шайтар — 01.08.2018 13:55:16

Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14182 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	#20 01.08.2018 15:53:11 Замените везде в коде Selection на Range(«E12:E2160») и все. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…