VBA-код для "Преобразовать в число"

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA-код для "Преобразовать в число" (Макросы/Sub)

Erdni

Дата: Четверг, 26.02.2015, 16:09 | Сообщение № 1

Группа: Гости

Здравствуйте!
Подскажите каким кодом в VBA можно выполнить операцию, выполняемую "руками" в Excel следующим образом:
В некоторых ячейках, содержащих числа есть зелёный треугольничек сверху слева в самой ячейке. И при выборе такой ячейки, рядом появляется восклиц. значёк. При нажатии на восклиц. значёк, выпадает списочек для выбора. Нужно выбрать не "Число сохранено как текст", а "Преобразовать в число".

Если прописать:
Selection.NumberFormat = "#,##0.00"
, то это хоть и меняет формат ячейки на числовой, но выглядит он как текстовый (например, "019" всё так же имеет ноль впереди)

Буду благодарен ответам.

Ответить

Manyasha

Дата: Четверг, 26.02.2015, 16:13 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

Erdni, [vba]

Код

Selection.NumberFormat = "0"

[/vba]
Или, если с десятичной частью нужно, то
[vba]

Код

Selection.NumberFormat = "0.00"

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

DJ_Marker_MC

Дата: Четверг, 26.02.2015, 16:34 | Сообщение № 3

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

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

Сообщений: 991

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

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

Excel 2019

Я юзаю такой код:
[vba]

Код

Sub Repair_Value()   ' в выделенных ячейках исправить экспортированные как текст данные чтобы нормально опознались числа
     Dim rArea As Range
     On Error Resume Next
     ActiveWindow.RangeSelection.SpecialCells(xlCellTypeConstants).Select
     If Err Then Exit Sub
     With Application: .ScreenUpdating = False: .EnableEvents = False: .Calculation = xlManual: End With
     For Each rArea In Selection.Areas
     rArea.FormulaLocal = rArea.FormulaLocal
     Next rArea
     With Application: .ScreenUpdating = True: .EnableEvents = True: .Calculation = xlAutomatic: End With
End Sub

[/vba]
Выделяете нужный диапазон и запускаете макрос.

Ответить

_Boroda_

Дата: Четверг, 26.02.2015, 17:57 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Исправить формат экспортированных как текст чисел

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995