Петля и формула IF для 0,00%

Question

Может кто-нибудь помочь мне с кодом ниже?

Я пытаюсь добавить текст «Действительный» в столбец «I», если ячейки в столбце E не пустые, а столбец H равен 0,00%. Столбец H преобразуется в Ячейки формата> Процент> Десятичные знаки = 2.

Я получаю сообщение об ошибке:

Ошибка времени выполнения "13": несоответствие типов.

в строке:

If (Range("E" & Y) <> "" And Range("H" & Y) = "0.00%" Then)

Полный код:

Sub My_Comments()

  Dim X As Integer
  Dim Y As Integer
  Dim Z As Integer

  For X = 2 To 10000

    If IsError(Range("F" & X)) Then

      Range("I" & X) = "Not Held"

    End If

  Next X

  For Y = 2 To 10000

    If Range("E" & Y) <> "" And Range("H" & Y) = "0.00%" Then

      Range("I" & Y) = "Valid"

    End If

  Next Y

End Sub

Answer 1

Вам нужно изменить строку

If Range("E" & Y) <> "" And Range("H" & Y) = "0.00%" Then)

с этим:

If CStr(Range("E" & Y)) <> "" And Range("H" & Y).Text = "0.00%" Then '// .Text