Статьи Языки программирования Базы данных Системы контроля версий Javascript фреймворки Бэкэнд фреймворки Пакетные менеджеры Генераторы статических сайтов Препроцессоры CSS

Невозможно поймать ошибку с помощью оператора ошибки

Sub TextToNum()
Dim af As Double
For Each x In Selection
On Error GoTo 10
af = x.Value 'here appears error
x.NumberFormat = Number
On Error GoTo -1
x.Value = af
10 Next x
End Sub

Если значение ячейки невозможно преобразовать в число (буквы, символы), появляется сообщение об ошибке и выполнение макроса прекращается. Передать эту ошибку через «При ошибке» не удается — сообщение об ошибке появляется в любом случае. Как это решить?

[РЕШЕНО]Перейти к решению

Excel39551 вопрос Vba31445 вопросов

Ответ:

Решено

Вы можете использовать IsNumeric вместо проверки ошибок:

Sub TextToNum()
Dim af As Double
Dim x As Range
For Each x In Selection
    If IsNumeric(x.Value) Then
        af = x.Value
        x.NumberFormat = Number
        x.Value = af
    End If
Next x
End Sub

Невозможно поймать ошибку с помощью оператора ошибки

Ответ:

Интересные вопросы для изучения