Преобразование чисел, дат и строк в настраиваемый текстовый формат из кода 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 |
VBA Format function in Excel is categorized as a Text/String function in VBA. It is a built-in function in MS Office Excel. VBA Format function returns a formatted string from a string expression. This function has one required parameter and three optional parameters. If Format argument is left blank, then the function behaves like the CSTR function.
This function use as a VBA function and can’t use as a Excel Worksheet function. The VBA Format function can be used in either procedure or function in a VBA editor window in Excel. We can use this VBA Format function any number of times in any number of procedures or functions. In the following section we learn what is the syntax and parameters of the Format function, where we can use this Format function and real-time examples in VBA.
Table of Contents:
- Overview
- Syntax of VBA Format Function
- Parameters or Arguments
- VBA Date Formats
- VBA Number Formats
- VBA Text Formats
- Enumeration values of the FirstDayOfWeek
- Enumeration values of the FirstWeekOfYear
- Where we can apply or use the VBA Format Function?
- Example 1: Format Date and Time
- Example 2: Format Numbers and currency
- Example 3: Format Text/String
- Example 4: User Defined Format
- Instructions to Run VBA Macro Code
- Other Useful Resources
The syntax of the VBA Format function is
Format(Expression, [Format], [FirstDayOfWeek],[FirstWeekOfYear])
Note: This Format function returns a string.
Parameters or Arguments
This function has one mandatory parameter and three optional parameters for the Format Function.
Where
Expression: The Expression is a mandatory argument. It represents an expression which you want to format.
Format: The Format is an optional argument. It represents the user defined or below specified built-in format. It is applied to an Expression.
VBA Date Formats: Here are the following list of built-in Date formats.
Format | Description |
---|---|
General Date | It displays date as defined in your system general Date settings. It displays short date and short time. |
Long Date | It displays date as defined in your system Long Date settings |
Medium Date | It displays date as defined in your system Medium Date settings |
Short Date | It displays date as defined in your system Short Date settings |
Long Time | It displays time as defined in your system Long time settings |
Medium Time | It displays time as defined in your system Medium time settings |
Short Time | It displays time as defined in your system Short time settings |
VBA Number Formats: Here are the following list of built-in Number formats.
Format | Description |
---|---|
General Number | It displays a number without any thousand separators. |
Currency | It displays a number with thousand separators and two decimal places. |
Euro | It displays a number with the euro currency symbol. |
Fixed | It displays at least one integer digit and two decimal places number. |
Standard | It displays a number with thousand separators, at least one integer digit and two decimal places. |
Percent | It displays the number to the percentage form and adds % sign and rounds it up to two decimal places. |
Scientific | It displays a number in scientific notation. |
Yes/No | It displays No if the number is equal to zero or Yes otherwise. |
True/False | It displays False if the number is equal to zero or True otherwise. |
On/Off | It displays Off if the number is equal to zero or On otherwise. |
VBA Text Formats: Here are the following list of Text and Memo formats.
Format Symbol | Description |
---|---|
@ | Text character is required. |
& | Text character is not required. |
< | Convert all characters to lowercase. |
> | Convert all characters to uppercase. |
FirstDayOfWeek: The FirstDayOfWeek is an optional argument. It represents the first day of week. This argument uses the default value vbSunday (Sunday).
VBA Constant | Value | Description |
---|---|---|
vbUseSystem | 0 | Uses the NLS API setting (The first day of the week specified in system settings) |
VbSunday | 1 | Sunday |
vbMonday | 2 | Monday |
vbTuesday | 3 | Tuesday |
vbWednesday | 4 | Wednesday |
vbThursday | 5 | Thursday |
vbFriday | 6 | Friday |
vbSaturday | 7 | Saturday |
FirstWeekOfYear: The FirstWeekOfYear is an optional argument. It represents the first week of the year. This argument uses the default value vbFirstJan1 (1st January).
VBA Constant | Value | Description |
---|---|---|
vbUseSystem | 0 | Uses the NLS API setting. |
vbFirstJan1 | 1 | The week that conatins 1st Jan in the year. |
vbFirstFourDays | 2 | The first week that conatins atleast 4 days in the year. |
vbFirstFullWeek | 3 | The first full week of the year. |
Where we can apply or use the VBA Format Function?
We can use this VBA Format function in MS Office 365, MS Excel 2016, MS Excel 2013, 2011, Excel 2010, Excel 2007, Excel 2003, Excel 2016 for Mac, Excel 2011 for Mac, Excel Online, Excel for iPhone, Excel for iPad, Excel for Android tablets and Excel for Android Mobiles.
Example 1: Format Date and Time
Here is a simple example of the VBA Format function. Here you can see multiple examples of VBA Date and Time Format function.
'Format Date and Time Sub VBA_Format_Function_Ex1() Dim sDate As String, sTime As String Dim sDateTime As String Dim sOutput As String, sOutput1 As String, sOutput2 As String sDate = Date: sTime = Time sDateTime = sDate & " " & sTime sOutput = Format(sDateTime) MsgBox "General Date & Time Format : " & vbCrLf & sOutput, vbInformation, "VBA Format Function" '-------------------------------------------------------------------------------------- sOutput1 = Format(sDate, "Medium Date") sOutput2 = Format(sTime, "Medium time") MsgBox "Medium Date Format : " & sOutput1 & vbCrLf & "Medium Time Format : " & sOutput2, vbInformation, "VBA Format Function" '-------------------------------------------------------------------------------------- sOutput1 = Format(sDate, "Long Date") sOutput2 = Format(sTime, "Long time") MsgBox "Long Date Format : " & sOutput1 & vbCrLf & "Long Time Format : " & sOutput2, vbInformation, "VBA Format Function" '-------------------------------------------------------------------------------------- sOutput1 = Format(sDate, "dddd mm/dd/yyyy") sOutput2 = Format(sTime, "hh:mm:ss AMPM") MsgBox "User defined Date Format : " & sOutput1 & vbCrLf & "User defined Time Format : " & sOutput2, vbInformation, "VBA Format Function" End Sub
Output: Here is the screen shot of the first example output.
Example 2: Format Numbers and Currency
Here is a simple example of the VBA Format function. Here you can see multiple examples of VBA Number and Currency Format function.
'Format Numbers and currencies Sub VBA_Format_Function_Ex2() Dim sValue As String, sValue1 As String Dim sOutput As String sValue = 0.1234: sValue1 = 12345 sOutput = Format(sValue) ' General Number Format MsgBox "General Number Format : " & sOutput, vbInformation, "VBA Format Function" '-------------------------------------------------------------------------------------- sOutput = Format(sValue1, "Standard") ' MsgBox "Standard Format : " & sOutput, vbInformation, "VBA Format Function" '-------------------------------------------------------------------------------------- sOutput = Format(sValue1, "Fixed") ' MsgBox "Fixed Format : " & sOutput, vbInformation, "VBA Format Function" '-------------------------------------------------------------------------------------- sOutput = Format(sValue, "Currency") ' MsgBox "Currency Format : " & sOutput, vbInformation, "VBA Format Function" '-------------------------------------------------------------------------------------- sOutput = Format(sValue, "Percent") ' MsgBox "Percent Format : " & sOutput, vbInformation, "VBA Format Function" End Sub
Output: Here is the screen shot of the second example output.
Example 3: Format Text/String
Here is a simple example of the VBA Format function. Here you can see multiple examples of VBA Text/String Format function.
'Format Text/String Sub VBA_Format_Function_Ex3() Dim sValue As String, sValue1 As String Dim sOutput As String sValue = "Welcome to VBAF1": sValue1 = "999999999" sOutput = Format(sValue, ">") MsgBox "User defined Format : " & sOutput, vbInformation, "VBA Format Function" '-------------------------------------------------------------------------------------- sOutput = Format(sValue, "<") MsgBox "User defined Format : " & sOutput, vbInformation, "VBA Format Function" '-------------------------------------------------------------------------------------- sOutput = Format(sValue1, "@@@@@@@@@") MsgBox "User defined Format : " & sOutput, vbInformation, "VBA Format Function" '-------------------------------------------------------------------------------------- sOutput = Format(sValue1, "@@@-@@@-@@@") MsgBox "User defined Format : " & sOutput, vbInformation, "VBA Format Function" '-------------------------------------------------------------------------------------- sOutput = Format(sValue1, "@@@") MsgBox "User defined Format : " & sOutput, vbInformation, "VBA Format Function" '-------------------------------------------------------------------------------------- sOutput = Format(sValue1, "@@@-&&&-@@@") MsgBox "User defined Format : " & sOutput, vbInformation, "VBA Format Function" End Sub
Output: Here is the screen shot of the third example output.
Example 4: User Defined Format
Here is a simple example of the VBA Format function. Here you can see multiple examples of VBA User Defined Format function.
'User Defined Format Sub VBA_Format_Function_Ex4() Dim sValue As String, sValue1 As String Dim sOutput As String sValue = 12345.678: sValue1 = 0.1357 sOutput = Format(sValue, "0.000") MsgBox "User defined Format : " & sOutput, vbInformation, "VBA Format Function" '-------------------------------------------------------------------------------------- sOutput = Format(sValue, "##,##0") ' MsgBox "User defined Format : " & sOutput, vbInformation, "VBA Format Function" '-------------------------------------------------------------------------------------- sOutput = Format(sValue, "$##,##0.00") ' MsgBox "User defined Format : " & sOutput, vbInformation, "VBA Format Function" '-------------------------------------------------------------------------------------- sOutput = Format(sValue, "£##,##0.00") ' MsgBox "User defined Format : " & sOutput, vbInformation, "VBA Format Function" '-------------------------------------------------------------------------------------- sOutput = Format(sValue1, "0%") ' MsgBox "User defined Format : " & sOutput, vbInformation, "VBA Format Function" '-------------------------------------------------------------------------------------- sOutput = Format(sValue1, "0.00%") ' MsgBox "User defined Format : " & sOutput, vbInformation, "VBA Format Function" End Sub
Output: Here is the screen shot of the fourth example output.
Instructions to Run VBA Macro Code or Procedure:
You can refer the following link for the step by step instructions.
Instructions to run VBA Macro Code
Other Useful Resources:
Click on the following links of the useful resources. These helps to learn and gain more knowledge.
VBA Tutorial VBA Functions List VBA Arrays in Excel Blog
VBA Editor Keyboard Shortcut Keys List VBA Interview Questions & Answers
This Excel tutorial explains how to use the Excel FORMAT function (as it applies to string values) with syntax and examples.
Description
The Microsoft Excel FORMAT function takes a string expression and returns it as a formatted string.
The FORMAT function is a built-in function in Excel that is categorized as a String/Text Function. It can be used as a VBA function (VBA) in Excel. As a VBA function, you can use this function in macro code that is entered through the Microsoft Visual Basic Editor.
Syntax
The syntax for the FORMAT function in Microsoft Excel is:
Format ( expression, [ format ] )
Parameters or Arguments
- expression
- The string value to format.
- format
-
Optional. It is the format to apply to the expression. You can either define your own format or use one of the named formats that Excel has predefined such as:
Format Explanation General Number Displays a number without thousand separators. Currency Displays thousand separators as well as two decimal places. Fixed Displays at least one digit to the left of the decimal place and two digits to the right of the decimal place. Standard Displays the thousand separators, at least one digit to the left of the decimal place, and two digits to the right of the decimal place. Percent Displays a percent value — that is, a number multiplied by 100 with a percent sign. Displays two digits to the right of the decimal place. Scientific Scientific notation. Yes/No Displays No if the number is 0. Displays Yes if the number is not 0. True/False Displays False if the number is 0. Displays True if the number is not 0. On/Off Displays Off if the number is 0. Displays On is the number is not 0. General Date Displays date based on your system settings Long Date Displays date based on your system’s long date setting Medium Date Displays date based on your system’s medium date setting Short Date Displays date based on your system’s short date setting Long Time Displays time based on your system’s long time setting Medium Time Displays time based on your system’s medium time setting Short Time Displays time based on your system’s short time setting
Returns
The FORMAT function returns a string value.
Applies To
- Excel for Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2011 for Mac, Excel 2010, Excel 2007, Excel 2003, Excel XP, Excel 2000
Type of Function
- VBA function (VBA)
Example (as VBA Function)
The FORMAT function can only be used in VBA code in Microsoft Excel.
Let’s look at some Excel FORMAT function examples and explore how to use the FORMAT function in Excel VBA code:
Format("210.6", "#,##0.00") Result: '210.60' Format("210.6", "Standard") Result: '210.60' Format("0.981", "Percent") Result: '98.10%' Format("1267.5", "Currency") Result: '$1,267.50' Format("Sep 3, 2003", "Short Date") Result: '9/3/2003'
For example:
Dim LValue As String LValue = Format("0.981", "Percent")
In this example, the variable called LValue would now contain the value of ‘98.10%’.
Return to VBA Code Examples
This tutorial will demonstrate how to use the Text Function in VBA.
The Text function is used in an Excel worksheet to return a portion of a string in a specified format. The Text function is not a VBA function, but can be used in VBA by referring to the Worksheet Function object.
WorksheetFunction.Text
The syntax in VBA would therefore be as follows:
=WorksheetFunction.Text (Arg1, Arg2)
where Arg1 is the original string and Arg2 is the format of the string we want returned.
Sub TestWSFunction()
Dim dte As String
Dim strD As String
dte = "08/05/2021"
strD= WorksheetFunction.Text(dte, "mmmm")
MsgBox strD
End Sub
In the above example, the string variable dte is storing a date. The Text function then returns the month portion of the date.
Formatting Numbers with the Text Function
We can use the text function to format numbers in our VBA code.
Sub FormatCurrency()
Dim strNum As String
Dim strFormat As String
strNum = "75896.125"
strFormat = WorksheetFunction.Text(strNum, "$#,##0.00")
MsgBox strFormat
End Sub
The string returned in the above example would be $75,896.13.
Other examples of number formatting using the Text Function are:
=WorksheetFunction.Text(75896.125, "0")
this will return: "75896"
=WorksheetFunction.Text(75896.125, "0.0")
this will return: "75896.1"
=WorksheetFunction.Text(75896.125, "#,##0")
this will return: "75,896"
However, Excel does have a built in VBA function that we can use instead of the Text function if we wish to format dates and numbers within VBA. This is known as the Format function.
The VBA Format Function
Taking the example above, rather than using WorksheetFunction.Text, we can just use the Format Function to achieve the same results.
=Format(75896.125, "0")
this will return: "75896"
=Format(75896.125, "0.0")
this will return: "75896.1"
=Format(75896.125, "#,##0")
this will return: "75,896"
Similarly, we can use the Format Function to format date portions of a string.
Sub TestFormatFunction()
Dim dte As String
Dim strD As String
dte = "08/05/2021"
strD= Format(dte, "mmmm")
MsgBox strD
End Sub
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!
Содержание
- VBA Format Function in Excel
- Syntax of VBA Format Function
- Parameters or Arguments
- Where we can apply or use the VBA Format Function?
- Example 1: Format Date and Time
- Example 2: Format Numbers and Currency
- Example 3: Format Text/String
- Example 4: User Defined Format
- Instructions to Run VBA Macro Code or Procedure:
- Other Useful Resources:
- Format function
- Syntax
- Settings
- Remarks
- Date symbols
- Time symbols
- Example
- Different formats for different numeric values
- Different formats for different string values
- Named date/time formats
- Named numeric formats
- User-defined string formats
- User-defined date/time formats
- User-defined numeric formats
- See also
- Support and feedback
VBA Format Function in Excel
VBA Format function in Excel is categorized as a Text/String function in VBA. It is a built-in function in MS Office Excel. VBA Format function returns a formatted string from a string expression. This function has one required parameter and three optional parameters. If Format argument is left blank, then the function behaves like the CSTR function.
This function use as a VBA function and can’t use as a Excel Worksheet function. The VBA Format function can be used in either procedure or function in a VBA editor window in Excel. We can use this VBA Format function any number of times in any number of procedures or functions. In the following section we learn what is the syntax and parameters of the Format function, where we can use this Format function and real-time examples in VBA.
Syntax of VBA Format Function
The syntax of the VBA Format function is
Note: This Format function returns a string.
Parameters or Arguments
This function has one mandatory parameter and three optional parameters for the Format Function.
Where
Expression: The Expression is a mandatory argument. It represents an expression which you want to format.
Format: The Format is an optional argument. It represents the user defined or below specified built-in format. It is applied to an Expression.
VBA Date Formats: Here are the following list of built-in Date formats.
Format | Description |
---|---|
General Date | It displays date as defined in your system general Date settings. It displays short date and short time. |
Long Date | It displays date as defined in your system Long Date settings |
Medium Date | It displays date as defined in your system Medium Date settings |
Short Date | It displays date as defined in your system Short Date settings |
Long Time | It displays time as defined in your system Long time settings |
Medium Time | It displays time as defined in your system Medium time settings |
Short Time | It displays time as defined in your system Short time settings |
VBA Number Formats: Here are the following list of built-in Number formats.
Format | Description |
---|---|
General Number | It displays a number without any thousand separators. |
Currency | It displays a number with thousand separators and two decimal places. |
Euro | It displays a number with the euro currency symbol. |
Fixed | It displays at least one integer digit and two decimal places number. |
Standard | It displays a number with thousand separators, at least one integer digit and two decimal places. |
Percent | It displays the number to the percentage form and adds % sign and rounds it up to two decimal places. |
Scientific | It displays a number in scientific notation. |
Yes/No | It displays No if the number is equal to zero or Yes otherwise. |
True/False | It displays False if the number is equal to zero or True otherwise. |
On/Off | It displays Off if the number is equal to zero or On otherwise. |
VBA Text Formats: Here are the following list of Text and Memo formats.
Format Symbol | Description |
---|---|
@ | Text character is required. |
& | Text character is not required. |
Convert all characters to uppercase. |
FirstDayOfWeek: The FirstDayOfWeek is an optional argument. It represents the first day of week. This argument uses the default value vbSunday (Sunday).
VBA Constant | Value | Description |
---|---|---|
vbUseSystem | 0 | Uses the NLS API setting (The first day of the week specified in system settings) |
VbSunday | 1 | Sunday |
vbMonday | 2 | Monday |
vbTuesday | 3 | Tuesday |
vbWednesday | 4 | Wednesday |
vbThursday | 5 | Thursday |
vbFriday | 6 | Friday |
vbSaturday | 7 | Saturday |
FirstWeekOfYear: The FirstWeekOfYear is an optional argument. It represents the first week of the year. This argument uses the default value vbFirstJan1 (1st January).
VBA Constant | Value | Description |
---|---|---|
vbUseSystem | 0 | Uses the NLS API setting. |
vbFirstJan1 | 1 | The week that conatins 1st Jan in the year. |
vbFirstFourDays | 2 | The first week that conatins atleast 4 days in the year. |
vbFirstFullWeek | 3 | The first full week of the year. |
Where we can apply or use the VBA Format Function?
We can use this VBA Format function in MS Office 365, MS Excel 2016, MS Excel 2013, 2011, Excel 2010, Excel 2007, Excel 2003, Excel 2016 for Mac, Excel 2011 for Mac, Excel Online, Excel for iPhone, Excel for iPad, Excel for Android tablets and Excel for Android Mobiles.
Example 1: Format Date and Time
Here is a simple example of the VBA Format function. Here you can see multiple examples of VBA Date and Time Format function.
Output : Here is the screen shot of the first example output.
Example 2: Format Numbers and Currency
Here is a simple example of the VBA Format function. Here you can see multiple examples of VBA Number and Currency Format function.
Output : Here is the screen shot of the second example output.
Example 3: Format Text/String
Here is a simple example of the VBA Format function. Here you can see multiple examples of VBA Text/String Format function.
Output : Here is the screen shot of the third example output.
Example 4: User Defined Format
Here is a simple example of the VBA Format function. Here you can see multiple examples of VBA User Defined Format function.
Output : Here is the screen shot of the fourth example output.
Instructions to Run VBA Macro Code or Procedure:
You can refer the following link for the step by step instructions.
Other Useful Resources:
Click on the following links of the useful resources. These helps to learn and gain more knowledge.
Источник
Format function
Returns a Variant (String) containing an expression formatted according to instructions contained in a format expression.
Interested in developing solutions that extend the Office experience across multiple platforms? Check out the new Office Add-ins model. Office Add-ins have a small footprint compared to VSTO Add-ins and solutions, and you can build them by using almost any web programming technology, such as HTML5, JavaScript, CSS3, and XML.
Syntax
Format(Expression, [ Format ], [ FirstDayOfWeek ], [ FirstWeekOfYear ])
The Format function syntax has these parts.
Part | Description |
---|---|
Expression | Required. Any valid expression. |
Format | Optional. A valid named or user-defined format expression. |
FirstDayOfWeek | Optional. A constant that specifies the first day of the week. |
FirstWeekOfYear | Optional. A constant that specifies the first week of the year. |
Settings
The firstdayofweek argument has these settings.
Constant | Value | Description |
---|---|---|
vbUseSystem | 0 | Use NLS API setting. |
vbSunday | 1 | Sunday (default) |
vbMonday | 2 | Monday |
vbTuesday | 3 | Tuesday |
vbWednesday | 4 | Wednesday |
vbThursday | 5 | Thursday |
vbFriday | 6 | Friday |
vbSaturday | 7 | Saturday |
The firstweekofyear argument has these settings.
Constant | Value | Description |
---|---|---|
vbUseSystem | 0 | Use NLS API setting. |
vbFirstJan1 | 1 | Start with week in which January 1 occurs (default). |
vbFirstFourDays | 2 | Start with the first week that has at least four days in the year. |
vbFirstFullWeek | 3 | Start with the first full week of the year. |
To format | Do this |
---|---|
Numbers | Use predefined named numeric formats or create user-defined numeric formats. |
Dates and times | Use predefined named date/time formats or create user-defined date/time formats. |
Date and time serial numbers | Use date and time formats or numeric formats. |
Strings | Create your own user-defined string formats. |
Format truncates format to 257 characters.
If you try to format a number without specifying format, Format provides functionality similar to the Str function, although it is internationally aware. However, positive numbers formatted as strings using Format don’t include a leading space reserved for the sign of the value; those converted using Str retain the leading space.
If you are formatting a non-localized numeric string, you should use a user-defined numeric format to ensure that you get the look you want.
If the Calendar property setting is Gregorian and format specifies date formatting, the supplied expression must be Gregorian . If the Visual Basic Calendar property setting is Hijri , the supplied expression must be Hijri .
If the calendar is Gregorian, the meaning of format expression symbols is unchanged. If the calendar is Hijri, all date format symbols (for example, dddd, mmmm, yyyy ) have the same meaning but apply to the Hijri calendar. Format symbols remain in English; symbols that result in text display (for example, AM and PM) display the string (English or Arabic) associated with that symbol. The range of certain symbols changes when the calendar is Hijri.
Date symbols
Symbol | Range |
---|---|
d | 1-31 (Day of month, with no leading zero) |
dd | 01-31 (Day of month, with a leading zero) |
w | 1-7 (Day of week, starting with Sunday = 1) |
ww | 1-53 (Week of year, with no leading zero; Week 1 starts on Jan 1) |
m | 1-12 (Month of year, with no leading zero, starting with January = 1) |
mm | 01-12 (Month of year, with a leading zero, starting with January = 01) |
mmm | Displays abbreviated month names (Hijri month names have no abbreviations) |
mmmm | Displays full month names |
y | 1-366 (Day of year) |
yy | 00-99 (Last two digits of year) |
yyyy | 100-9999 (Three- or Four-digit year) |
Time symbols
Symbol | Range |
---|---|
h | 0-23 (1-12 with «AM» or «PM» appended) (Hour of day, with no leading zero) |
hh | 00-23 (01-12 with «AM» or «PM» appended) (Hour of day, with a leading zero) |
n | 0-59 (Minute of hour, with no leading zero) |
nn | 00-59 (Minute of hour, with a leading zero) |
m | 0-59 (Minute of hour, with no leading zero). Only if preceded by h or hh |
mm | 00-59 (Minute of hour, with a leading zero). Only if preceded by h or hh |
s | 0-59 (Second of minute, with no leading zero) |
ss | 00-59 (Second of minute, with a leading zero) |
Example
This example shows various uses of the Format function to format values using both named formats and user-defined formats. For the date separator (/), time separator (:), and AM/ PM literal, the actual formatted output displayed by your system depends on the locale settings on which the code is running. When times and dates are displayed in the development environment, the short time format and short date format of the code locale are used. When displayed by running code, the short time format and short date format of the system locale are used, which may differ from the code locale. For this example, English/U.S. is assumed. MyTime and MyDate are displayed in the development environment using current system short time setting and short date setting.
Different formats for different numeric values
A user-defined format expression for numbers can have from one to four sections separated by semicolons. If the format argument contains one of the named numeric formats, only one section is allowed.
If you use | The result is |
---|---|
One section only | The format expression applies to all values. |
Two sections | The first section applies to positive values and zeros, the second to negative values. |
Three sections | The first section applies to positive values, the second to negative values, and the third to zeros. |
Four sections | The first section applies to positive values, the second to negative values, the third to zeros, and the fourth to Null values. |
If you include semicolons with nothing between them, the missing section is printed using the format of the positive value. For example, the following format displays positive and negative values using the format in the first section and displays «Zero» if the value is zero.
Different formats for different string values
A format expression for strings can have one section or two sections separated by a semicolon (;).
If you use | The result is |
---|---|
One section only | The format applies to all string data. |
Two sections | The first section applies to string data, the second to Null values and zero-length strings («»). |
Named date/time formats
The following table identifies the predefined date and time format names.
Format name | Description |
---|---|
General Date | Display a date and/or time, for example, 4/3/93 05:34 PM. If there is no fractional part, display only a date, for example, 4/3/93. If there is no integer part, display time only, for example, 05:34 PM. Date display is determined by your system settings. |
Long Date | Display a date according to your system’s long date format. |
Medium Date | Display a date using the medium date format appropriate for the language version of the host application. |
Short Date | Display a date using your system’s short date format. |
Long Time | Display a time using your system’s long time format; includes hours, minutes, seconds. |
Medium Time | Display time in 12-hour format using hours and minutes and the AM/PM designator. |
Short Time | Display a time using the 24-hour format, for example, 17:45. |
Named numeric formats
The following table identifies the predefined numeric format names.
Format name | Description |
---|---|
General Number | Display number with no thousand separator. |
Currency | Display number with thousand separator, if appropriate; display two digits to the right of the decimal separator. Output is based on system locale settings. |
Fixed | Display at least one digit to the left and two digits to the right of the decimal separator. |
Standard | Display number with thousand separator, at least one digit to the left and two digits to the right of the decimal separator. |
Percent | Display number multiplied by 100 with a percent sign (%) appended to the right; always display two digits to the right of the decimal separator. |
Scientific | Use standard scientific notation. |
Yes/No | Display No if number is 0; otherwise, display Yes. |
True/False | Display False if number is 0; otherwise, display True. |
On/Off | Display Off if number is 0; otherwise, display On. |
User-defined string formats
Use any of the following characters to create a format expression for strings.
Character | Description |
---|---|
@ | Character placeholder. Display a character or a space. If the string has a character in the position where the at symbol (@) appears in the format string, display it; otherwise, display a space in that position. Placeholders are filled from right to left unless there is an exclamation point character (!) in the format string. |
& | Character placeholder. Display a character or nothing. If the string has a character in the position where the ampersand (&) appears, display it; otherwise, display nothing. Placeholders are filled from right to left unless there is an exclamation point character (!) in the format string. |
Force uppercase. Display all characters in uppercase format. | |
! | Force left to right fill of placeholders. The default is to fill placeholders from right to left. |
User-defined date/time formats
The following table identifies characters you can use to create user-defined date/time formats.
Character | Description |
---|---|
(:) | Time separator. In some locales, other characters may be used to represent the time separator. The time separator separates hours, minutes, and seconds when time values are formatted. The actual character used as the time separator in formatted output is determined by your system settings. |
(/) | Date separator. In some locales, other characters may be used to represent the date separator. The date separator separates the day, month, and year when date values are formatted. The actual character used as the date separator in formatted output is determined by your system settings. |
c | Display the date as ddddd and display the time as ttttt , in that order. Display only date information if there is no fractional part to the date serial number; display only time information if there is no integer portion. |
d | Display the day as a number without a leading zero (1–31). |
dd | Display the day as a number with a leading zero (01–31). |
ddd | Display the day as an abbreviation (Sun–Sat). Localized. |
dddd | Display the day as a full name (Sunday–Saturday). Localized. |
ddddd | Display the date as a complete date (including day, month, and year), formatted according to your system’s short date format setting. The default short date format is m/d/yy . |
dddddd | Display a date serial number as a complete date (including day, month, and year) formatted according to the long date setting recognized by your system. The default long date format is mmmm dd, yyyy . |
w | Display the day of the week as a number (1 for Sunday through 7 for Saturday). |
ww | Display the week of the year as a number (1–54). |
m | Display the month as a number without a leading zero (1–12). If m immediately follows h or hh , the minute rather than the month is displayed. |
mm | Display the month as a number with a leading zero (01–12). If m immediately follows h or hh , the minute rather than the month is displayed. |
mmm | Display the month as an abbreviation (Jan–Dec). Localized. |
mmmm | Display the month as a full month name (January–December). Localized. |
q | Display the quarter of the year as a number (1–4). |
y | Display the day of the year as a number (1–366). |
yy | Display the year as a 2-digit number (00–99). |
yyyy | Display the year as a 4-digit number (100–9999). |
h | Display the hour as a number without a leading zero (0–23). |
hh | Display the hour as a number with a leading zero (00–23). |
n | Display the minute as a number without a leading zero (0–59). |
nn | Display the minute as a number with a leading zero (00–59). |
s | Display the second as a number without a leading zero (0–59). |
ss | Display the second as a number with a leading zero (00–59). |
ttttt | Display a time as a complete time (including hour, minute, and second), formatted using the time separator defined by the time format recognized by your system. A leading zero is displayed if the leading zero option is selected and the time is before 10:00 A.M. or P.M. The default time format is h:mm:ss . |
AM/PM | Use the 12-hour clock and display an uppercase AM with any hour before noon; display an uppercase PM with any hour between noon and 11:59 P.M. |
am/pm | Use the 12-hour clock and display a lowercase AM with any hour before noon; display a lowercase PM with any hour between noon and 11:59 P.M. |
A/P | Use the 12-hour clock and display an uppercase A with any hour before noon; display an uppercase P with any hour between noon and 11:59 P.M. |
a/p | Use the 12-hour clock and display a lowercase A with any hour before noon; display a lowercase P with any hour between noon and 11:59 P.M. |
AMPM | Use the 12-hour clock and display the AM string literal as defined by your system with any hour before noon; display the PM string literal as defined by your system with any hour between noon and 11:59 P.M. AMPM can be either uppercase or lowercase, but the case of the string displayed matches the string as defined by your system settings. The default format is AM/PM. If your system is set to 24-hour clock, the string is typical set to a zero-length string. |
User-defined numeric formats
The following table identifies characters you can use to create user-defined number formats.
Character | Description |
---|---|
None | Display the number with no formatting. |
(0) | Digit placeholder. Display a digit or a zero. If the expression has a digit in the position where the 0 appears in the format string, display it; otherwise, display a zero in that position.If the number has fewer digits than there are zeros (on either side of the decimal) in the format expression, display leading or trailing zeros. If the number has more digits to the right of the decimal separator than there are zeros to the right of the decimal separator in the format expression, round the number to as many decimal places as there are zeros. If the number has more digits to the left of the decimal separator than there are zeros to the left of the decimal separator in the format expression, display the extra digits without modification. |
(#) | Digit placeholder. Display a digit or nothing. If the expression has a digit in the position where the # appears in the format string, display it; otherwise, display nothing in that position. This symbol works like the 0 digit placeholder, except that leading and trailing zeros aren’t displayed if the number has the same or fewer digits than there are # characters on either side of the decimal separator in the format expression. |
(.) | Decimal placeholder. In some locales, a comma is used as the decimal separator. The decimal placeholder determines how many digits are displayed to the left and right of the decimal separator. If the format expression contains only number signs to the left of this symbol, numbers smaller than 1 begin with a decimal separator. To display a leading zero displayed with fractional numbers, use 0 as the first digit placeholder to the left of the decimal separator. The actual character used as a decimal placeholder in the formatted output depends on the Number Format recognized by your system. |
(%) | Percentage placeholder. The expression is multiplied by 100. The percent character (%) is inserted in the position where it appears in the format string. |
(,) | Thousand separator. In some locales, a period is used as a thousand separator. The thousand separator separates thousands from hundreds within a number that has four or more places to the left of the decimal separator. Standard use of the thousand separator is specified if the format contains a thousand separator surrounded by digit placeholders (0 or #). Two adjacent thousand separators or a thousand separator immediately to the left of the decimal separator (whether or not a decimal is specified) means «scale the number by dividing it by 1000, rounding as needed.» For example, you can use the format string «##0,,» to represent 100 million as 100. Numbers smaller than 1 million are displayed as 0. Two adjacent thousand separators in any position other than immediately to the left of the decimal separator are treated simply as specifying the use of a thousand separator. The actual character used as the thousand separator in the formatted output depends on the Number Format recognized by your system. |
(:) | Time separator. In some locales, other characters may be used to represent the time separator. The time separator separates hours, minutes, and seconds when time values are formatted. The actual character used as the time separator in formatted output is determined by your system settings. |
(/) | Date separator. In some locales, other characters may be used to represent the date separator. The date separator separates the day, month, and year when date values are formatted. The actual character used as the date separator in formatted output is determined by your system settings. |
(E- E+ e- e+) | Scientific format. If the format expression contains at least one digit placeholder (0 or #) to the right of E-, E+, e-, or e+, the number is displayed in scientific format and E or e is inserted between the number and its exponent. The number of digit placeholders to the right determines the number of digits in the exponent. Use E- or e- to place a minus sign next to negative exponents. Use E+ or e+ to place a minus sign next to negative exponents and a plus sign next to positive exponents. |
— + $ ( ) | Display a literal character. To display a character other than one of those listed, precede it with a backslash ( ) or enclose it in double quotation marks (» «). |
() | Display the next character in the format string. To display a character that has special meaning as a literal character, precede it with a backslash ( ). The backslash itself isn’t displayed. Using a backslash is the same as enclosing the next character in double quotation marks. To display a backslash, use two backslashes ( \ ). Examples of characters that can’t be displayed as literal characters are the date-formatting and time-formatting characters (a, c, d, h, m, n, p, q, s, t, w, y, /, and :), the numeric-formatting characters (#, 0, %, E, e, comma, and period), and the string-formatting characters (@, &, , and !). |
(«ABC») | Display the string inside the double quotation marks (» «). To include a string in format from within code, you must use Chr(34) to enclose the text (34 is the character code for a quotation mark («)). |
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Источник
Formatting Cells Number
General
Range("A1").NumberFormat = "General"
Number
Range("A1").NumberFormat = "0.00"
Currency
Range("A1").NumberFormat = "$#,##0.00"
Accounting
Range("A1").NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
Date
Range("A1").NumberFormat = "yyyy-mm-dd;@"
Time
Range("A1").NumberFormat = "h:mm:ss AM/PM;@"
Percentage
Range("A1").NumberFormat = "0.00%"
Fraction
Range("A1").NumberFormat = "# ?/?"
Scientific
Range("A1").NumberFormat = "0.00E+00"
Text
Range("A1").NumberFormat = "@"
Special
Range("A1").NumberFormat = "00000"
Custom
Range("A1").NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Formatting Cells Alignment
Text Alignment
Horizontal
The value of this property can be set to one of the constants: xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight.
The following code sets the horizontal alignment of cell A1 to center.
Range("A1").HorizontalAlignment = xlCenter
Vertical
The value of this property can be set to one of the constants: xlBottom, xlCenter, xlDistributed, xlJustify, xlTop.
The following code sets the vertical alignment of cell A1 to bottom.
Range("A1").VerticalAlignment = xlBottom
Text Control
Wrap Text
This example formats cell A1 so that the text wraps within the cell.
Range("A1").WrapText = True
Shrink To Fit
This example causes text in row one to automatically shrink to fit in the available column width.
Rows(1).ShrinkToFit = True
Merge Cells
This example merge range A1:A4 to a large one.
Range("A1:A4").MergeCells = True
Right-to-left
Text direction
The value of this property can be set to one of the constants: xlRTL (right-to-left), xlLTR (left-to-right), or xlContext (context).
The following code example sets the reading order of cell A1 to xlRTL (right-to-left).
Range("A1").ReadingOrder = xlRTL
Orientation
The value of this property can be set to an integer value from –90 to 90 degrees or to one of the following constants: xlDownward, xlHorizontal, xlUpward, xlVertical.
The following code example sets the orientation of cell A1 to xlHorizontal.
Range("A1").Orientation = xlHorizontal
Font
Font Name
The value of this property can be set to one of the fonts: Calibri, Times new Roman, Arial…
The following code sets the font name of range A1:A5 to Calibri.
Range("A1:A5").Font.Name = "Calibri"
Font Style
The value of this property can be set to one of the constants: Regular, Bold, Italic, Bold Italic.
The following code sets the font style of range A1:A5 to Italic.
Range("A1:A5").Font.FontStyle = "Italic"
Font Size
The value of this property can be set to an integer value from 1 to 409.
The following code sets the font size of cell A1 to 14.
Range("A1").Font.Size = 14
Underline
The value of this property can be set to one of the constants: xlUnderlineStyleNone, xlUnderlineStyleSingle, xlUnderlineStyleDouble, xlUnderlineStyleSingleAccounting, xlUnderlineStyleDoubleAccounting.
The following code sets the font of cell A1 to xlUnderlineStyleDouble (double underline).
Range("A1").Font.Underline = xlUnderlineStyleDouble
Font Color
The value of this property can be set to one of the standard colors: vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan, vbWhite or an integer value from 0 to 16,581,375.
To assist you with specifying the color of anything, the VBA is equipped with a function named RGB. Its syntax is:
Function RGB(RedValue As Byte, GreenValue As Byte, BlueValue As Byte) As long
This function takes three arguments and each must hold a value between 0 and 255. The first argument represents the ratio of red of the color. The second argument represents the green ratio of the color. The last argument represents the blue of the color. After the function has been called, it produces a number whose maximum value can be 255 * 255 * 255 = 16,581,375, which represents a color.
The following code sets the font color of cell A1 to vbBlack (Black).
Range("A1").Font.Color = vbBlack
The following code sets the font color of cell A1 to 0 (Black).
Range("A1").Font.Color = 0
The following code sets the font color of cell A1 to RGB(0, 0, 0) (Black).
Range("A1").Font.Color = RGB(0, 0, 0)
Font Effects
Strikethrough
True if the font is struck through with a horizontal line.
The following code sets the font of cell A1 to strikethrough.
Range("A1").Font.Strikethrough = True
Subscript
True if the font is formatted as subscript. False by default.
The following code sets the font of cell A1 to Subscript.
Range("A1").Font.Subscript = True
Superscript
True if the font is formatted as superscript; False by default.
The following code sets the font of cell A1 to Superscript.
Range("A1").Font.Superscript = True
Border
Border Index
Using VBA you can choose to create borders for the different edges of a range of cells:
- xlDiagonalDown (Border running from the upper left-hand corner to the lower right of each cell in the range).
- xlDiagonalUp (Border running from the lower left-hand corner to the upper right of each cell in the range).
- xlEdgeBottom (Border at the bottom of the range).
- xlEdgeLeft (Border at the left-hand edge of the range).
- xlEdgeRight (Border at the right-hand edge of the range).
- xlEdgeTop (Border at the top of the range).
- xlInsideHorizontal (Horizontal borders for all cells in the range except borders on the outside of the range).
- xlInsideVertical (Vertical borders for all the cells in the range except borders on the outside of the range).
Line Style
The value of this property can be set to one of the constants: xlContinuous (Continuous line), xlDash (Dashed line), xlDashDot (Alternating dashes and dots), xlDashDotDot (Dash followed by two dots), xlDot (Dotted line), xlDouble (Double line), xlLineStyleNone (No line), xlSlantDashDot (Slanted dashes).
The following code example sets the border on the bottom edge of cell A1 with continuous line.
Range("A1").Borders(xlEdgeBottom).LineStyle = xlContinuous
The following code example removes the border on the bottom edge of cell A1.
Range("A1").Borders(xlEdgeBottom).LineStyle = xlNone
Line Thickness
The value of this property can be set to one of the constants: xlHairline (Hairline, thinnest border), xlMedium (Medium), xlThick (Thick, widest border), xlThin (Thin).
The following code example sets the thickness of the border created to xlThin (Thin).
Range("A1").Borders(xlEdgeBottom).Weight = xlThin
Line Color
The value of this property can be set to one of the standard colors: vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan, vbWhite or an integer value from 0 to 16,581,375.
The following code example sets the color of the border on the bottom edge to green.
Range("A1").Borders(xlEdgeBottom).Color = vbGreen
You can also use the RGB function to create a color value.
The following example sets the color of the bottom border of cell A1 with RGB fuction.
Range("A1").Borders(xlEdgeBottom).Color = RGB(255, 0, 0)
Fill
Pattern Style
The value of this property can be set to one of the constants:
- xlPatternAutomatic (Excel controls the pattern.)
- xlPatternChecker (Checkerboard.)
- xlPatternCrissCross (Criss-cross lines.)
- xlPatternDown (Dark diagonal lines running from the upper left to the lower right.)
- xlPatternGray16 (16% gray.)
- xlPatternGray25 (25% gray.)
- xlPatternGray50 (50% gray.)
- xlPatternGray75 (75% gray.)
- xlPatternGray8 (8% gray.)
- xlPatternGrid (Grid.)
- xlPatternHorizontal (Dark horizontal lines.)
- xlPatternLightDown (Light diagonal lines running from the upper left to the lower right.)
- xlPatternLightHorizontal (Light horizontal lines.)
- xlPatternLightUp (Light diagonal lines running from the lower left to the upper right.)
- xlPatternLightVertical (Light vertical bars.)
- xlPatternNone (No pattern.)
- xlPatternSemiGray75 (75% dark moiré.)
- xlPatternSolid (Solid color.)
- xlPatternUp (Dark diagonal lines running from the lower left to the upper right.)
Protection
Locking Cells
This property returns True if the object is locked, False if the object can be modified when the sheet is protected, or Null if the specified range contains both locked and unlocked cells.
The following code example unlocks cells A1:B22 on Sheet1 so that they can be modified when the sheet is protected.
Worksheets("Sheet1").Range("A1:B22").Locked = False
Worksheets("Sheet1").Protect
Hiding Formulas
This property returns True if the formula will be hidden when the worksheet is protected, Null if the specified range contains some cells with FormulaHidden equal to True and some cells with FormulaHidden equal to False.
Don’t confuse this property with the Hidden property. The formula will not be hidden if the workbook is protected and the worksheet is not, but only if the worksheet is protected.
The following code example hides the formulas in cells A1 and C1 on Sheet1 when the worksheet is protected.
Worksheets("Sheet1").Range("A1:C1").FormulaHidden = True
Excel VBA Format Function
Format function in VBA one may use to format the given values in the desired format. For example, one can use this function for formatting dates or numbers or any trigonometric values. This function has two mandatory arguments: input taken in the form of a string, and the second argument is the type of format we want to use. For example, if we use Format (.99,” Percent”) this will give us the result as 99%.
In VBA, we need to use the function “FORMAT” to apply the format to cells. Excel formattingFormatting is a useful feature in Excel that allows you to change the appearance of the data in a worksheet. Formatting can be done in a variety of ways. For example, we can use the styles and format tab on the home tab to change the font of a cell or a table.read more is one of the important concepts to master. We all use the common formatting techniques in our daily work: date, time, number, and other important formatting codes. We press the format excel cellFormatting cells is an important technique to master because it makes any data presentable, crisp, and in the user’s preferred format. The formatting of the cell depends upon the nature of the data present.read more option in regular Excel worksheets and perform the formatting duty by applying the appropriate formatting code. However, in VBA, this is not as straightforward as our worksheet technique.
Table of contents
- Excel VBA Format Function
- Syntax
- How to Use?
- #1 – Currency Format
- #2 – Fixed Format
- #3 – Percent Format
- #4 – User-Defined Formats
- #5 – Date FORMAT
- Things to Remember
- Recommended Articles
Syntax
- Expression: This is nothing but the value we want to format. In VAB technicality, it is called Expression.
- [Format]: What format do you want to apply to the selected expression? We have two kinds of formatting here: user-defined format and built-in format.
- Here, we have VBA date, number, and text formats.
- VBA date formats have a short date, long date, medium date, and general date.
- Number formats have currency, standard, percentage, scientific, yes or no, true or false, and on or off.
- [First Day of the Week]: What is the first day of your week? We can select any day from the list. Below is the list of days and appropriate codes.
- [First Week of the Year]: What is the year’s first week? It specifies the week it should use as the year’s first week.
How to Use?
You can download this VBA Format Template here – VBA Format Template
Let us apply this function practically to understand the functionality of the FORMAT function. Assume you have the number 8072.56489. You want to apply number formatting to it. Follow the below steps to apply number formatting to it.
Step 1: Start an excel macroA macro in excel is a series of instructions in the form of code that helps automate manual tasks, thereby saving time. Excel executes those instructions in a step-by-step manner on the given data. For example, it can be used to automate repetitive tasks such as summation, cell formatting, information copying, etc. thereby rapidly replacing repetitious operations with a few clicks.
read more and define the variable as a “string” data type.
Code:
Sub Worksheet_Function_Example1() Dim K As String End Sub
Step 2: Assign a value to k as our number, 8072.56489.
Code:
Sub Worksheet_Function_Example1() Dim K As String K = 8072.56489 End Sub
Step 3: Show the “k” value in the VBA message boxVBA MsgBox function is an output function which displays the generalized message provided by the developer. This statement has no arguments and the personalized messages in this function are written under the double quotes while for the values the variable reference is provided.read more.
Code:
Sub Worksheet_Function_Example1() Dim K As String K = 8072.56489 MsgBox K End Sub
Step 4: If you run this macro, we will get the below result.
The result is as it is, we assigned the value to variable “k.” But we need to apply some formatting to this number to make it beautiful.
Step 5: Instead of directly assigning a value to “k,“ let us use the FORMAT function.
Code:
Sub Worksheet_Function_Example1() Dim K As String K = Format( MsgBox K End Sub
Step 6: Now, for Expression, assign the number 8072.56489.
Code:
Sub Worksheet_Function_Example1() Dim K As String K = Format(8072.56489, MsgBox K End Sub
Step 7: We can use a built-in format or our own formatting code in the formatting option. Now, we will use a built-in formatting style as “Standard.”
Code:
Sub Worksheet_Function_Example1() Dim K As String K = Format(8072.56489, "Standard") MsgBox K End Sub
Step 8: Now, run this code and see the result of the message box.
We have comma (,) as thousand separators and decimal rounds up to two digits only.
Like this, we can use many other built-in formatting styles to apply the formatting. Below are some of the codes we have applied.
#1 – Currency Format
Code:
Sub Worksheet_Function_Example2() Dim K As String K = Format(8072.56489, "Currency") MsgBox K End Sub
Result:
#2 – Fixed Format
Code:
Sub Worksheet_Function_Example3() Dim K As String K = Format(8072.56489, "Fixed") MsgBox K End Sub
Result:
#3 – Percent Format
Code:
Sub Worksheet_Function_Example4() Dim K As String K = Format(8072.56489, "Percent") MsgBox K End Sub
Result:
#4 – User-Defined Formats
Now, we will see some of the user-defined formats.
Code:
Sub Worksheet_Function_Example5() Dim K As String K = Format(8072.56489, "#.##") MsgBox K End Sub
Result:
Code:
Sub Worksheet_Function_Example5() Dim K As String K = Format(8072.56489, "#,##.##") MsgBox K End Sub
Result:
#5 – Date FORMAT
We have seen some important numbers of formatting techniques. We will have to use the FORMAT function to format the date in VBA.To format the date in VBA, we use the in-built FORMAT function that converts a date expression into the required format. In order to perform the function, one must enter a valid expression and format type.read more
We have written code to show the result of the date through the variable.
Code:
Sub Worksheet_Function_Example6() Dim K As String K = 13 - 3 - 2019 MsgBox K End Sub
When we run this code, we would not get an accurate date. Rather, the result is pathetic.
We need to assign the date format to get accurate dates. So, we first need to supply the date in double quotes and apply the date format.
Code:
Sub Worksheet_Function_Example6() Dim K As String K = Format("10 - 3 - 2019", "Long Date") MsgBox K End Sub
We run this code now. We will get a proper long date.
The “Long Date” is a built-in format. Similarly, you can use the “Short Date” and “Medium Date” options.
Things to Remember
- The value returned by the FORMAT function is the string.
- We can also use our date, time, and number formatting codes, like how we use them in worksheet formatting.
- The FORMAT is a VBA functionVBA functions serve the primary purpose to carry out specific calculations and to return a value. Therefore, in VBA, we use syntax to specify the parameters and data type while defining the function. Such functions are called user-defined functions.read more available only in VBA, not in the worksheet.
Recommended Articles
This article has been a guide to VBA Format Function. Here, we learned how to use VBA Format Function for currency, fixed, percentage, and date formatting, along with some practical examples and a downloadable Excel template. Below are some useful Excel articles related to VBA: –
- VBA Data Type
- VBA DIR Function
- VBA MOD
- Create VBA InputBox