Закрытие InputBox крестиком или Отмена приводит к ошибке

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закрытие InputBox крестиком или Отмена приводит к ошибке (Макросы/Sub)

TD_MElec

Дата: Понедельник, 26.10.2020, 20:19 | Сообщение № 1

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

Ранг: Участник

Сообщений: 73

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

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

Excel 2019

Добрый день.
Много искал, и впринципе информация есть, но мне нехватает знаний :(. Ни как не получается решить проблему с InputBox, в случаях когда пользователь нажимает "Отмена", либо крестик, либо вводит не верное значение.
Код:

Пока дошел только до этого. Здесь вообще не понимаю. Ведь лонг должен дать ошибку в случае, если не целое число, а он пропускает и дальше округляет до целого и все работает.

Но здесь только 0 и всё. Закрытие отменой либо крестиком, приводит к ошибке, как и ввод текстовых значений.
Прошу помочь, чтоб работало и красиво было

Сообщение отредактировал TD_MElec - Понедельник, 26.10.2020, 20:22

Ответить

nilem

Дата: Понедельник, 26.10.2020, 20:27 | Сообщение № 2

Группа: Авторы

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

Сообщений: 1613

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

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

Excel 2013, 2016

типа такого:
[vba]

Код

Sub tttt()
Dim ColumnIns As Long
ColumnIns = Application.InputBox("Укажите номер столбца для вставки данных.", "Запрос данных", 1, , , , , 1)
If ColumnIns = 0 Then Exit Sub 'нажали Отмена
MsgBox "номер столбца: " & ColumnIns, 64
End Sub

[/vba]
Если введено десятичное число, то Long да, округляет до целого.
Ну т.е. пользователь ввел номер столбца 4,8. Ладно, пусть будет 5 )