Ошибка Runtime Ошибка 13 типа Excel

Я надеюсь, что вы можете помочь, у меня есть код ниже, и я получаю ошибку 13 во время выполнения этой строки

If Sheets("Input").Range("A11:C100").Value = "" Then 

То, что я пытаюсь достичь, – не позволить пользователю сохранять книгу Excel без заполнения ячеек в диапазоне («A11: C100»). Код работает нормально, если он просто («A11»), но если я увеличу диапазон I получить ошибку.

Остальная часть моего кода ниже любой помощи будет очень признательна.

 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'Step 1: Check to see if Cell A1 is blank If Sheets("Input").Range("A11:C100").Value = "" Then 'Step 2: Blank: cancel the Close and tell the user Cancel = True MsgBox "Cells A11 to C100 can not be blank" 'Step 3: Not Blank; Save and Close Else ActiveWorkbook.Close SaveChanges:=True End If End Sub 

Изображение листа введите описание изображения здесь

Sheets("Input").Range("A11:C100").Value возвращает массив Variant со всем содержимым ячеек в диапазоне, поэтому вы не можете сравнивать его со строкой типа ""

  • если вам нужно проверить, заполнена ли хотя бы одна ячейка диапазона, тогда

    вместо:

     If Sheets("Input").Range("A11:C100").Value = "" Then 

    использование

     If WorksheetFunction.CountA(Sheets("Input").Range("A11:C100")) = 0 Then 
  • если вам нужно проверить, заполнены ли все ячейки диапазона, тогда

    вместо:

     If Sheets("Input").Range("A11:C100").Value = "" Then 

    использование

     If WorksheetFunction.CountA(Sheets("Input").Range("A11:C100")) < Sheets("Input").Range("A11:C100").Count Then 
  • Userform.Show на кнопке формы не распознает пользовательскую форму, получив ошибку 424
  • Ошибка несоответствия типа: не понимайте, почему
  • Ошибка выполнения 1004: невозможно получить свойство PivotTables класса Worksheet
  • При попытке скопировать и вставить
  • VBA error 1004 выберите метод поля класса рабочего листа
  • Excel создает новый документ Word с использованием шаблона: ошибка во время выполнения 5981. Метод «Добавить» объекта «Документы» не удалось
  • VBA - vlookup работает с ошибкой времени выполнения '13'
  • Ошибка времени выполнения 5 после успешных вычислений
  • Ошибка метода 1004 выбора класса диапазона
  • Ошибка выполнения 76 Путь не найден
  • Ошибка выполнения «9» Подзаголовок вне диапазона - Диапазоны копирования
  • Interesting Posts
    Давайте будем гением компьютера.