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

@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

Новые блоги и статьи Все статьи Все блоги /
Генерация OpenQASM из кода Q# EggHead 10.07.2025 Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .	Изучаем новый шаблон ИИ-чата .NET AI Chat Web App stackOverflow 10.07.2025 В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .	Результаты исследования от команды ARP (июль 2025 г.) Programma_Boinc 10.07.2025 Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .	Angular vs Svelte - что лучше? Reangularity 09.07.2025 Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .	Code First и Database First в Entity Framework UnmanagedCoder 09.07.2025 Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .
Как использовать Bluetooth-модуль HC-05 с Arduino Wired 08.07.2025 Bluetooth - это технология, созданная чтобы заменить кабельные соединения. Обычно ее используют для связи небольших устройств: мобильных телефонов, ноутбуков, наушников и т. д. Работает она на частоте. . .	Руководство по структурам данных Python AI_Generated 08.07.2025 Я отчетливо помню свои первые серьезные проекты на Python - я писал код, он работал, заказчики были относительно довольны. Но однажды мой наставник, взглянув на мою реализацию поиска по огромному. . .	Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Programma_Boinc 08.07.2025 Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .	Раскрываем внутренние механики Android с помощью контекста и манифеста mobDevWorks 07.07.2025 Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .	API на базе FastAPI с Python за пару минут AI_Generated 07.07.2025 FastAPI - это относительно молодой фреймворк для создания веб-API, который за короткое время заработал бешеную популярность в Python-сообществе. И не зря. Я помню, как впервые запустил приложение на. . .

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

Решение

Решение

@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