Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Перевод в числовой формат макросом (число сохран. как текст) - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перевод в числовой формат макросом (число сохран. как текст) (Формулы/Formulas)
Перевод в числовой формат макросом (число сохран. как текст)
Andrey2607 Дата: Понедельник, 21.01.2019, 17:32 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый вечер!
ПРошу помощи в написании макроса для преобразования чисел, сохраненных как текст в нормальный числовой формат. В связи с тем, что данные выгружаются из сторонней программы, макрос, написанный мной не работает. Прошу помощи в решении данной проблемы. Файл прикладываю.
К сообщению приложен файл: ___.xlsm(14.2 Kb)
 
Ответить
СообщениеДобрый вечер!
ПРошу помощи в написании макроса для преобразования чисел, сохраненных как текст в нормальный числовой формат. В связи с тем, что данные выгружаются из сторонней программы, макрос, написанный мной не работает. Прошу помощи в решении данной проблемы. Файл прикладываю.
Автор - Andrey2607
Дата добавления - 21.01.2019 в 17:32
sboy Дата: Понедельник, 21.01.2019, 17:41 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2368
Репутация: 671 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Используйте инструмент "Текст по столбцам" - Готово
Или запишите его макрорекодером
 
Ответить
СообщениеДобрый день.
Используйте инструмент "Текст по столбцам" - Готово
Или запишите его макрорекодером
Автор - sboy
Дата добавления - 21.01.2019 в 17:41
Nic70y Дата: Понедельник, 21.01.2019, 19:39 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5118
Репутация: 1099 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
    u = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A4:A" & u).Replace What:=",", Replacement:="."
    Range("A4:A" & u) = Range("A4:A" & u).Value
[/vba]

ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщение[vba]
Код
    u = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A4:A" & u).Replace What:=",", Replacement:="."
    Range("A4:A" & u) = Range("A4:A" & u).Value
[/vba]
Автор - Nic70y
Дата добавления - 21.01.2019 в 19:39
InExSu Дата: Понедельник, 21.01.2019, 22:06 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 467
Репутация: 55 ±
Замечаний: 0% ±

Excel 2010
Привет!
[vba]
Код

Public Sub Лист_Форматы_Обновить()

    Форматы_Обновить ActiveSheet.UsedRange

End Sub

Public Function Форматы_Обновить(r As Range) _
       As String
    
    Dim rArea As Range

    For Each rArea In r.Areas       'т.к. выбранными скорее всего окажутся не смежные ячейки, а области, то обрабатывать нужно каждую из областей

        With rArea
            
            .FormulaLocal = .FormulaLocal    ' значения во всех ячейках области _
                    заменить на них же. При этом произойдёт обновление форматов _
                    (это такая не документированная особенность Excel)
        End With
    Next rArea
End Function
[/vba]

На сохранение второго закона термодинамики: яндекс.кошелёк 410012113235839
 
Ответить
СообщениеПривет!
[vba]
Код

Public Sub Лист_Форматы_Обновить()

    Форматы_Обновить ActiveSheet.UsedRange

End Sub

Public Function Форматы_Обновить(r As Range) _
       As String
    
    Dim rArea As Range

    For Each rArea In r.Areas       'т.к. выбранными скорее всего окажутся не смежные ячейки, а области, то обрабатывать нужно каждую из областей

        With rArea
            
            .FormulaLocal = .FormulaLocal    ' значения во всех ячейках области _
                    заменить на них же. При этом произойдёт обновление форматов _
                    (это такая не документированная особенность Excel)
        End With
    Next rArea
End Function
[/vba]
Автор - InExSu
Дата добавления - 21.01.2019 в 22:06
Andrey2607 Дата: Вторник, 22.01.2019, 10:28 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Большое спасибо!
 
Ответить
СообщениеБольшое спасибо!
Автор - Andrey2607
Дата добавления - 22.01.2019 в 10:28
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перевод в числовой формат макросом (число сохран. как текст) (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!