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

@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

Новые блоги и статьи Все статьи Все блоги /
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-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

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

Решение

Решение

@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