Внедряване на Макрос VBA е най-ефективният, най-бързият и най-сигурният метод за изпълнение на всякакви операции в Excel. В тази статия ще ви покажем как да форматиране на числото в Excel с помощта на VBA .

Изтегляне на работна тетрадка

Можете да изтеглите безплатната учебна тетрадка на Excel от тук.

Форматиране на номер с VBA.xlsm

3 метода за форматиране на числа в Excel с VBA

Разгледайте следния пример. Съхранихме едни и същи числа в двете Колона B и C така че когато форматираме числото в Колона C , ще разберете от Колона B в какъв формат е било числото преди това.

1. VBA за форматиране на номер от един тип в друг в Excel

Първо, нека да знаем как да форматиране на числото 12345 от Клетка C5 в дадения ни набор от данни с VBA към Валута формат.

Стъпки:

• Натиснете Alt + F11 на клавиатурата или отидете в раздела Разработчик -> Visual Basic да отворите Редактор на Visual Basic .

• В изскачащия прозорец с код, в лентата с менюта щракнете върху Вмъкване -> Модул .

• Копирайте следния код и го поставете в прозореца за код.

 Sub NumberFormat() Range("C5").NumberFormat = "#,##0.0" "Това ще форматира числото 12345 във валута End Sub 

Вашият код вече е готов за изпълнение.

• Натиснете F5 на клавиатурата или от лентата с менюта изберете Run -> Run Sub/UserForm Можете също така просто да щракнете върху малка икона Play в лентата с подменюта, за да стартирате макроса.

Този код ще форматиране на числото 12345 във валута с десетична стойност.

Ако искате да покажете символа на валутата в клетката, просто поставете символа преди кода.

 Sub NumberFormat() Range("C6").NumberFormat = "$#,##0.0" 'Това ще форматира числото 12345 във валута със символ $ End Sub 

В нашия случай използвахме долар ($) Можете да използвате произволен валутен символ.

Този код ще форматира числото във валута със символа долар ($) символ.

Можете също така да конвертирате този формат на числото в много други формати. Просто следвайте кода по-долу, за да трансформирате числото в желания от вас формат.

 Sub NumberFormat() 'Оригинално число 12345 Range("C5").NumberFormat = "#,##0.0" 'Това ще форматира числото във валута Range("C6").NumberFormat = "$#,##0.0" 'Това ще форматира числото във валута със символ $ Range("C7").NumberFormat = "0.00%" 'Това ще форматира числото в процентна стойност Range("C8").NumberFormat = "#,##.00;[red]-#,##.00" 'Товаще форматира числото в червен цвят (условно форматиране) Range("C9").NumberFormat = "#?/?" 'Това ще форматира числото в дробни числа Range("C10").NumberFormat = "0#"" Kg"""" 'Това ще форматира числото с текст Range("C11").NumberFormat = "#-#-#-#-#-#" 'Това ще форматира числото с разделители Range("C12").NumberFormat = "#,##0.00" 'Това ще форматира числоточисло със запетаи и десетични дроби, ако е приложимо Range("C13").NumberFormat = "#,##0" 'Това ще форматира числото в хиляди със запетаи, ако е приложимо Range("C14").NumberFormat = "#,##0.00" 'Това ще форматира числото в милиони Range("C15").NumberFormat = "dd-mmm-yyyy hh:mm AM/PM" 'Това ще форматира числото в дата & time End Sub 

Макрос на VBA

Преглед

Прочетете още: Excel потребителски формат на числата Множество условия

2. Макрос за форматиране на диапазон от числа в Excel

Видяхме как да променим формата на числата за една клетка. Но ако искате да промяна на формата на диапазон от числа след това VBA Този път вместо да подавате един-единствен референтен номер на клетка в скобите на обекта Range, трябва да преминаване на целия диапазон (като този C5:C8) в скобите.

 Sub NumberFormatRng() Range("C5:C8").NumberFormat = "$#,##0.0" End Sub 

Този код ще форматира определен диапазон от числа от набора от данни в Excel.

Прочетете още: Как да форматирате число в милиони в Excel (6 начина)

Подобни четива:

• Закръгляне в Excel до 2 знака след десетичната запетая (с калкулатор)
• Как да Поставяне на скоби за отрицателни числа в Excel
• Как да форматирате число в хиляди K и милиони M в Excel (4 начина)
• Персонализиран формат на числата: Милиони с един знак след десетичната запетая в Excel (6 начина)
• Как да промените формата на числата от запетая в точка в Excel (5 начина)

3. вграждане на VBA за конвертиране на номер с функцията Format в Excel

Можете също така да използвате Функция за форматиране в Excel VBA за преобразуване на числата. Макросът за това е,

Стъпки:

• По същия начин, както преди, отворете Редактор на Visual Basic от Разработчик таб и Вмъкване на a Модул в прозореца с кода.
• В прозореца за код копирайте следния код и го поставете.

 Sub NumberFormatFunc() MsgBox Format(12345, "#,##0.00") End Sub 

Вашият код вече е готов за изпълнение.

В полето за съобщения ще получите форматираното число.

Свързано съдържание: Как да конвертирате число в процент в Excel (3 бързи начина)

Заключение

Тази статия ви показва как да форматиране на числото в Excel с VBA . надявам се, че тази статия е била много полезна за вас. Не се колебайте да питате, ако имате някакви въпроси по темата.