Как преобразовать число в текст (на подобии =текст() )

@voidex · Регистрация: 05.07.2013

Студворк — интернет-сервис помощи студентам

Нужно какую нибудь функцию VBA, которая бы выполняла то же самое что и =текст() (тесть преобразования чего либо в ячейке в текст)

Попробовал записать макрос используя эту функцию получилось следующее:

Visual Basic
1
 ActiveCell.FormulaR1C1 = "=TEXT(RC[-1],0)"

не совсем то

Чтото на подобии

Visual Basic
1
2
3
4
    
Sub m_1()
Columns("A").NumberFormat = "0.00"
End Sub

Спасибо.

@Hugo121 · 06.05.2014, 10:29

Зачем?
Есть ведь фукнции листа, тот же TRIM() например.
Хотя непонятно зачем

@voidex · 06.05.2014, 10:31 **[ТС]**

Вроде удлаось использовать ActiveCell.FormulaR1C1 = "=TEXT(RC[-1],0)" как было нужно, но если кто знает функции vba поделитесь

@Hugo121 · 06.05.2014, 10:33

В VBA есть cstr()

@voidex · 06.05.2014, 11:15 **[ТС]**

Кстати как не странно cstr не хочет преобразовывать в текст ,тоесть excel не смещает текст влево и не появляется зеленый треугольничек, говорящий о том, что это число форматированное как тест

Visual Basic
1
2
3
4
 Sub test()
myvalue = Cells(5, 1)
Cells(3, 3) = CStr(myvalue)
End Sub

Добавлено через 14 минут
И еще такой вопрос, можно ли как то задать длину поля в excel, как в access? тоесть например 1 знак или 5 итд..
Просто excel сохраняет по умолчанию 9 как я посмотрел

@Hugo121 · 06.05.2014, 11:23

cstr() преобразовывает в текст - а эксель преобразовывает назад. Он ведь не дурак - видит что это число.
Тогда перед тем, как писать это "тексточисло" в ячейку - сделайте ей текстовый формат.
Я спрашивал зачем - не ответите?

Visual Basic
1
2
3
4
5
Sub test()
    myvalue = Cells(5, 1)
    Cells(3, 3).NumberFormat = "@"
    Cells(3, 3) = CStr(myvalue)
End Sub

@voidex · 06.05.2014, 11:32 **[ТС]**

Из сапа выгружается excel файл, его нужно будет отформатировать макросом и сохранить 2003 офисов в dbf, а после загружать в старую программу которая читает только дбф файлы, поэтому нужно чтобы поля были в текстовом формате, еще не уверен насчет длины полей тк пока что не проверили
Если все получится, то это упростит жизнь многим людям

______________

Спасибо, теперь заработало, гораздо лучше вариант чем FormulaR1C1 = "=TEXT(RC[-1],0)"

@Hugo121 · 06.05.2014, 11:40

В dbf есть текстовые и нетекстовые числовые поля? Я правда не в курсе...
Если сохранять в dbf как есть - получается не то?
Ну если что - задать столбцу текстовый формат, выгрузить в него массив текстовых чисел. Их можно получить или перекладыванием в текстовый массив (текстового типа), или индивидуально преобразовав каждый элемент массива.

@voidex · 06.05.2014, 11:41 **[ТС]**

И как я понимаю @ - текстовй формат
а какие еще есть "знаки" для numberforma?

просто исходя из
Integer %
Long &
Single !
Double #
String $
Currency @
не вяжется)

@Hugo121 · 06.05.2014, 11:48

Включите рекордер, позадавайте форматов, выключите. И смотрите код.

@gandalf · 21.07.2016, 21:20

я делаю так: Cells(3, 3).value="'" & Cells(3, 3).value

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

Как преобразовать число в текст (на подобии =текст() )

Решение

Решение

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	06.05.2014, 10:29
	Зачем? Есть ведь фукнции листа, тот же TRIM() например. Хотя непонятно зачем 0

@voidex 168 / 6 / 3 Регистрация: 05.07.2013 Сообщений: 62
	06.05.2014, 10:31 [ТС]
	Вроде удлаось использовать ActiveCell.FormulaR1C1 = "=TEXT(RC[-1],0)" как было нужно, но если кто знает функции vba поделитесь 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	06.05.2014, 10:33
	Сообщение было отмечено voidex как решение Решение В VBA есть cstr() 1

@voidex 168 / 6 / 3 Регистрация: 05.07.2013 Сообщений: 62
	06.05.2014, 11:32 [ТС]
	Из сапа выгружается excel файл, его нужно будет отформатировать макросом и сохранить 2003 офисов в dbf, а после загружать в старую программу которая читает только дбф файлы, поэтому нужно чтобы поля были в текстовом формате, еще не уверен насчет длины полей тк пока что не проверили Если все получится, то это упростит жизнь многим людям ______________ Спасибо, теперь заработало, гораздо лучше вариант чем FormulaR1C1 = "=TEXT(RC[-1],0)" 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	06.05.2014, 11:40
	В dbf есть текстовые и нетекстовые числовые поля? Я правда не в курсе... Если сохранять в dbf как есть - получается не то? Ну если что - задать столбцу текстовый формат, выгрузить в него массив текстовых чисел. Их можно получить или перекладыванием в текстовый массив (текстового типа), или индивидуально преобразовав каждый элемент массива. 0

@voidex 168 / 6 / 3 Регистрация: 05.07.2013 Сообщений: 62
	06.05.2014, 11:41 [ТС]
	И как я понимаю @ - текстовй формат а какие еще есть "знаки" для numberforma? просто исходя из Integer % Long & Single ! Double # String $ Currency @ не вяжется) 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	06.05.2014, 11:48
	Включите рекордер, позадавайте форматов, выключите. И смотрите код. 1

@gandalf 4 / 4 / 0 Регистрация: 14.04.2012 Сообщений: 11
	21.07.2016, 21:20
	я делаю так: Cells(3, 3).value="'" & Cells(3, 3).value 0