преобразовать текст в число - Microsoft Office Excel

farb_igel · 21.05.2017, 21:54

Доброго времени суток

есть задача: сформировать из текстовых файлов форму ексель. спасибо форуму, написал. но есть один вопрос: при подстановке число пишется в текстовом формате. Возможно ли преобразовать текстовые поля в числовые (диапазон C17:F23)?

Hugo121 · 21.05.2017, 22:34

Доброго.
Можно всё это дело закончить таким кодом:

Код:

    Columns("C:C").TextToColumns
    Columns("D:D").TextToColumns
    Columns("E:E").TextToColumns
    Columns("F:F").TextToColumns

Это если десятичные разделители совпадают, как у меня.
По коду:
1. Close #1 всюду лишнее.
2. Нехорошо его держать в модуле книги.

SAS888 · 22.05.2017, 04:33

После того, как Вы сформировали все таблицы, выполните код:

Код:

ActiveSheet.UsedRange.FormulaLocal = ActiveSheet.UsedRange.FormulaLocal

farb_igel · 22.05.2017, 08:04

Цитата:

Сообщение от SAS888

После того, как Вы сформировали все таблицы, выполните код:

Код:

ActiveSheet.UsedRange.FormulaLocal = ActiveSheet.UsedRange.FormulaLocal

спасибо сработало. косяк у меня был: некоторые поля поставил числовое значение. после кода разные числа выдавало. исправил на общий тип и все идеально

farb_igel · 22.05.2017, 08:05

Цитата:

Сообщение от Hugo121

1. Close #1 всюду лишнее.
2. Нехорошо его держать в модуле книги.

спасибо за помощь чайнику, уберу

21.05.2017, 22:34	#2
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Доброго. Можно всё это дело закончить таким кодом: Код: `Columns("C:C").TextToColumns Columns("D:D").TextToColumns Columns("E:E").TextToColumns Columns("F:F").TextToColumns` Это если десятичные разделители совпадают, как у меня. По коду: 1. Close #1 всюду лишнее. 2. Нехорошо его держать в модуле книги. webmoney: E265281470651 Z422237915069 R418926282008 Последний раз редактировалось Hugo121; 22.05.2017 в 08:55.

22.05.2017, 04:33	#3
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	После того, как Вы сформировали все таблицы, выполните код: Код: `ActiveSheet.UsedRange.FormulaLocal = ActiveSheet.UsedRange.FormulaLocal` Чем шире угол зрения, тем он тупее.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
преобразовать текст в число	drimdonetsk	Microsoft Office Excel	9	11.02.2016 17:38
Как преобразовать текст в число???	Fezdipekla	Microsoft Office Access	1	24.09.2010 12:20
Число как текст преобразовать в число	agregator	Microsoft Office Excel	5	28.04.2010 06:08
как в отчете число преобразовать в текст	tavoz	Microsoft Office Access	1	23.02.2010 15:29
Как преобразовать число в текст на русском языке???	Aerodeck	Microsoft Office Excel	2	09.10.2007 07:51