Съдържание
В тази статия е показано как да формат a клетка като текст използване на VBA код в Excel с 3 различни метода. С помощта на Текст и Функции за форматиране , и Обхват . NumberFormat собственост , можем да зададем кода за формат на числата, за да преобразуваме лесно стойността на клетката в текст. Нека се потопим в примерите и да приложим тези техники.
Изтегляне на работна тетрадка за практика
Изтеглете тази учебна тетрадка, за да се упражнявате, докато четете тази статия.
Форматиране на клетката като Text.xlsm3 подходящи метода за форматиране на клетки като текст с помощта на VBA в Excel
В този раздел ще покажем как можем да форматираме клетка като текст с помощта на VBA в Excel. Но първо трябва да знаем как да отворим прозореца на Visual Basic Editor в Excel.
Напишете код в редактора на Visual Basic
Следвайте стъпки към отворен на визуален основен редактор и да напишете малко код там.
- Отидете в Разработчик от раздела Лентата на Excel .
- Кликнете върху на Опция за Visual Basic.
- В Visual Basic за приложения щракнете върху прозореца Вмъкване на падащо меню към изберете на Нов модул
Сега, когато a нов модул е отворен , напишете там някакъв код и натиснете F5 към бягане.
1. Използване на свойството Range.NumberFormat за форматиране на клетката като текст
В този пример ще използваме Свойство Range.NumberFormat в нашия Код VBA към формат a клетка като текст На снимката на екрана по-долу, в клетката C5 имаме a кратка дата че ще промяна като текст .
Сега в редактора на Visual Basic копие и паста следното код .
Sub FormatCellAsText() Range("C5").NumberFormat = "@" End Sub 
Сега натиснете F5 към стартирайте кода.
Тук можем да видим кратка дата форматираната клетка е променен към стойност на текста .
Обяснение на кода:
- Използвахме Обект от обхвата към изберете на клетка в работния лист, които съдържат вход
- За формат на входна стойност като текст , трябва да поставим NumberFormat стойност като "@".
По подобен начин, като приложим същата част от кода, можем да променим различни формати на числата към текст .
Прочетете още: Как да форматирате клетките и да центрирате текста с Excel VBA (5 начина)
Подобни четива
- Как да промените размера на шрифта на целия лист с Excel VBA
- Как да пишем 001 в Excel (11 ефективни метода)
- Подравняване на текста с команден бутон VBA в Excel (5 метода)
- Как да добавяте текст след число с потребителски формат в Excel (4 начина)
- Как да изписваме първата буква на всяка дума с главна буква в Excel (4 начина)
2. Използване на функцията TEXT в код на VBA за форматиране на клетка като текст
Сайтът T EXT функция в Excel е функция на работния лист че преобразува a числова стойност или низ към определен формат . Въпреки че е не a Функция VBA , можем да го използваме, като се позоваваме на Обект на функцията на работния лист към формат a клетка към текст Да кажем, че имаме Дълга дата в клетка B6 които искаме да формат като текст .
Поставете следния код в визуален основен редактор за да постигнете това.
Sub FormatCellAsText() Range("C6") = WorksheetFunction.Text(Range("B6"), "'0") End Sub От работи кода с помощта на F5 конвертиран на дълга дата в текст По същия начин можем да форматираме клетка, съдържаща различни формати на числата към текст .
Обяснение на кода:
- Използвахме Обект от обхвата към изберете на клетки в работния лист, които съдържат вход и изходни стойности.
- Сайтът Обект WorksheetFunction ни позволи да използваме Функция TEXT в Код VBA .
- Сайтът Функция TEXT има нужда от 2 аргумента -
стойност - на препратка към входната клетка (в този пример B6 ).
format_text- използвахме " ' 0 " към конвертиране на стойност към формат на текста.
Прочетете още: Как да форматирате текст в клетка на Excel (10 подхода)
3. Използване на функцията VBA Format за форматиране на клетка като текст в Excel
Сайтът Функция за форматиране е един от функции за преобразуване във VBA на Excel. Това връща форматиран израз въз основа на формат който е посочено като втори аргумент на функция . В този пример, като използвате следния код ние заветния a Дълга дата в клетка C5 към текст .
Sub FormatCellAsText() Range("C6").Value = Format(Range("B6").Value, "'0") End Sub 
Обяснение на кода:
- Използвахме Обект от обхвата към изберете на клетки в работния лист, които съдържат вход и изходни стойности.
- Сайтът Функция за форматиране има нужда от 2 аргумента -
изразяване - на препратка към входната клетка (в този пример B6 ).
формат - използвахме " ' 0 " към конвертиране на стойност към формат на текста.
Алтернативен код:
Sub FormatCellAsText() Range("C6").Value = " ' " & Format(Range("B6").Value, "0") End Sub Прочетете още: Как да форматирате текста с главна буква в Excel (10 начина)
Бележки
- Добавихме единична кавичка ( ' ) преди нула за да влезете в код на формата на номера като " ' 0 " в Текст и Аргумент за функциите на формата към формат a клетка към стойност на текста.
- За Преглед на на код свързани с 3 различни метода, кликнете върху на десен бутон на име на листа и изберете на Опция за преглед на кода.
Заключение
Сега вече знаем как да форматираме клетка като текст с помощта на VBA код в Excel с 3 различни примера. Надяваме се, че това ще ви помогне да използвате тези методи по-уверено. Ако имате въпроси или предложения, не забравяйте да ги поставите в полето за коментари по-долу.
