Удаление требуемых объектов

Я выполняю функцию удаления, и я попытался удалить «требуемый объект» всякий раз, когда нет или недействительный ввод пользователя.

Однако, когда я это делаю, он не выполняет действие удаления.

Мне нужна помощь, чтобы исправить мою ошибку!

Sub deletetry2() Dim R As Range On Error Resume Next Set R = Application.InputBox("Select cells To be deleted", , , , , , , 8) On Error GoTo 0 If TypeName(rng) <> "Range" Then MsgBox "Cancelled", vbInformation Exit Sub Else R.delete End If End Sub 

Вы переменные ( R и rng ) несовместимы, вы должны использовать
If TypeName(R) <> "Range" Then

Тем не менее, предлагаю вам попробовать проверить допустимый диапазон, как показано ниже:

  Dim R As Range On Error Resume Next Set R = Application.InputBox("Select cells To be deleted", , , , , , , 8) On Error GoTo 0 If R Is Nothing Then MsgBox "Cancelled", vbInformation Exit Sub Else R.Delete End If 
Interesting Posts

функция базы данных excel в сочетании с vba, а что, если нет записей?

Проблема с производительностью взаимодействия между Microsoft Office

Как внедрить Excel в слова программно?

Адресное свойство / функция для возврата адреса ячейки в виде пары / списка / массива целых чисел

Текст текстового поля исчезает при вводе текста Excel VBA – часть 2

VLOOKUP с использованием подстановочных знаков и CONCATENATE

VBA для открытия / редактирования / копирования отчетов? – Изменить / Исправить

Извлечение уникальных комбинаций из листов Excel

Заполнение Combobox на второй пользовательской форме

Поиск недостающих данных в столбце Excel

Excel VBA. Если Some Cell имеет 0, введите «TBD» в другую ячейку

Скопируйте данные в три ячейки Excel и вставьте в четвертый цвет шрифта, измененный для каждого из трех

Итак, у меня есть 6 «основных» файлов, чтобы затем делить на 40 отдельных файлов

Сохранение данных DataGridView в базу данных SQL Server Winform

read.xlsx () выдает ошибку в R

Давайте будем гением компьютера.