Перевод в числовой формат макросом (число сохран. как текст)

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

Перевод в числовой формат макросом (число сохран. как текст) (Формулы/Formulas)

Andrey2607

Дата: Понедельник, 21.01.2019, 17:32 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2016

Добрый вечер!
ПРошу помощи в написании макроса для преобразования чисел, сохраненных как текст в нормальный числовой формат. В связи с тем, что данные выгружаются из сторонней программы, макрос, написанный мной не работает. Прошу помощи в решении данной проблемы. Файл прикладываю.

К сообщению приложен файл: ___.xlsm (14.2 Kb)

Ответить

sboy

Дата: Понедельник, 21.01.2019, 17:41 | Сообщение № 2

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

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

Сообщений: 2566

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

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

Excel 2010

Добрый день.
Используйте инструмент "Текст по столбцам" - Готово
Или запишите его макрорекодером

Яндекс: 410016850021169

Ответить

Nic70y

Дата: Понедельник, 21.01.2019, 19:39 | Сообщение № 3

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

Ранг: Экселист

Сообщений: 9131

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

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

Excel 2010

[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]

ЮMoney 41001841029809

Ответить

InExSu

Дата: Понедельник, 21.01.2019, 22:06 | Сообщение № 4

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

Ранг: Ветеран

Сообщений: 650

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

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

Excel 2010, 365

Привет!
[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]

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Ответить

Andrey2607

Дата: Вторник, 22.01.2019, 10:28 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2016

Большое спасибо!

Ответить

Перевод в числовой формат макросом (число сохран. как текст) (Формулы/Formulas)

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