макрос преобразования ячейки текста в число - Страница 2

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/макрос преобразования ячейки текста в число - Страница 2 - Мир MS Excel

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос преобразования ячейки текста в число (Формулы)

макрос преобразования ячейки текста в число

Timsan

Дата: Вторник, 26.11.2013, 12:10 | Сообщение № 21

Группа: Пользователи

Ранг: Новичок

Сообщений: 20

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Спасибо, но Моих знаний недостаточно чтобы это реализовать, помогит пожайлуста если вам это под силу

Ответить

Hugo

Дата: Вторник, 26.11.2013, 12:37 | Сообщение № 22

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3255

Репутация: 707 ±

Замечаний: 0% ±

2019

Тупо в лоб:
[vba]

Код

Sub StrToNum()
     With [e2:e100]
         .TextToColumns
         .Replace ".", ".", 2
         .NumberFormat = "# ##0.0"
     End With

     With [f2:f100]
         .TextToColumns
         .Replace ".", ".", 2
         .NumberFormat = "# ##0.0"
     End With

     With [g2:g100]
         .TextToColumns
         .Replace ".", ".", 2
         .NumberFormat = "# ##0.0"
     End With

     With [h2:h100]
         .TextToColumns
         .Replace ".", ".", 2
         .NumberFormat = "# ##0.0"
     End With
End Sub

[/vba]
так понятно?

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

Timsan

Дата: Среда, 04.12.2013, 14:23 | Сообщение № 23

Группа: Пользователи

Ранг: Новичок

Сообщений: 20

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Макрос работает но если колонка пустая то вылетает ошибка и подсвечивает .TextToColumns
Как сделать без ошибки если колонка пустая

Сообщение отредактировал Timsan - Среда, 04.12.2013, 14:26

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » макрос преобразования ячейки текста в число (Формулы)

Страница 2 из 2
«
1
2