Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.95/293: Рейтинг темы: голосов - 293, средняя оценка - 4.95
168 / 6 / 3
Регистрация: 05.07.2013
Сообщений: 62

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

06.05.2014, 10:17. Показов 57009. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужно какую нибудь функцию 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
Спасибо.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
06.05.2014, 10:17
Ответы с готовыми решениями:

Преобразовать текст в число
Добрый день! помогите решить проблемку. Есть таблица exel в одной из колонок находятся числовые данные в текстовом формате. Какможно...

Как в Word VBA преобразовать текст в речь?
Уважаемые VBAпликаторы. Подскажите, как из Word VBA запустить TTS т.е. текст ту спич. 6. ИТОГО 6.1 что и как правильно установить...

Задаётся число в виде текста как а$.Как перевести этот текст в число?
Есть переменная a$=1 , в виде текста , как преобразовать её в цифру 1?

10
6997 / 2895 / 555
Регистрация: 19.10.2012
Сообщений: 8,803
06.05.2014, 10:29
Зачем?
Есть ведь фукнции листа, тот же TRIM() например.
Хотя непонятно зачем
0
168 / 6 / 3
Регистрация: 05.07.2013
Сообщений: 62
06.05.2014, 10:31  [ТС]
Вроде удлаось использовать ActiveCell.FormulaR1C1 = "=TEXT(RC[-1],0)" как было нужно, но если кто знает функции vba поделитесь
0
6997 / 2895 / 555
Регистрация: 19.10.2012
Сообщений: 8,803
06.05.2014, 10:33
Лучший ответ Сообщение было отмечено voidex как решение

Решение

В VBA есть cstr()
1
168 / 6 / 3
Регистрация: 05.07.2013
Сообщений: 62
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 как я посмотрел
0
6997 / 2895 / 555
Регистрация: 19.10.2012
Сообщений: 8,803
06.05.2014, 11:23
Лучший ответ Сообщение было отмечено voidex как решение

Решение

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
1
168 / 6 / 3
Регистрация: 05.07.2013
Сообщений: 62
06.05.2014, 11:32  [ТС]
Из сапа выгружается excel файл, его нужно будет отформатировать макросом и сохранить 2003 офисов в dbf, а после загружать в старую программу которая читает только дбф файлы, поэтому нужно чтобы поля были в текстовом формате, еще не уверен насчет длины полей тк пока что не проверили
Если все получится, то это упростит жизнь многим людям
______________

Спасибо, теперь заработало, гораздо лучше вариант чем FormulaR1C1 = "=TEXT(RC[-1],0)"
0
6997 / 2895 / 555
Регистрация: 19.10.2012
Сообщений: 8,803
06.05.2014, 11:40
В dbf есть текстовые и нетекстовые числовые поля? Я правда не в курсе...
Если сохранять в dbf как есть - получается не то?
Ну если что - задать столбцу текстовый формат, выгрузить в него массив текстовых чисел. Их можно получить или перекладыванием в текстовый массив (текстового типа), или индивидуально преобразовав каждый элемент массива.
0
168 / 6 / 3
Регистрация: 05.07.2013
Сообщений: 62
06.05.2014, 11:41  [ТС]
И как я понимаю @ - текстовй формат
а какие еще есть "знаки" для numberforma?

просто исходя из
Integer %
Long &
Single !
Double #
String $
Currency @
не вяжется)
0
6997 / 2895 / 555
Регистрация: 19.10.2012
Сообщений: 8,803
06.05.2014, 11:48
Включите рекордер, позадавайте форматов, выключите. И смотрите код.
1
4 / 4 / 0
Регистрация: 14.04.2012
Сообщений: 11
21.07.2016, 21:20
я делаю так: Cells(3, 3).value="'" & Cells(3, 3).value
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
21.07.2016, 21:20
Помогаю со студенческими работами здесь

Число как текст в переменной
Есть столбец с кодами клиентов типа "00320" или "01123" или "00025" Есть код: Dim n As String Set fcell =...

Удаление пробелов и число как текст
Добрый день! Задача стоит следующая - имеется диапазон с числовыми данными, типа 15,25. Но возможно ошибочное написание, например, 15, 25...

Как убрать текст и оставить только число
Пожалуйста помогите! У меня в колонке с ячейками находятся данные вида 1520.45 EURO. Как на VBA отсечь надпись EURO и оставить только...

Преобразовать текст в дату
Привет всем ! В файле excel есть дата, записанная как текст, которую необходимо преобразовать в дату, которую понимает excel для...

Преобразовать текст в нужную кодировку
Всем доброго дня. Что-то затормзил на кодировке. Имеется файл csv Нормально открівается в блокноте и в других текстовіх редакторах. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
Генерация 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-сообществе. И не зря. Я помню, как впервые запустил приложение на. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru