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

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

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

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

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

Visual Basic

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

не совсем то

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

Visual Basic

    
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

 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

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

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

Решение

Решение

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

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

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

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

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

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

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

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