Question

有人可以通过以下代码帮助我吗？

如果E列中的单元格不是空白并且H列为0.00％，则我试图在“ I”列中添加文本“有效”。 H列将转换为Format Cells> Percentage> Decimal Places = 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

环路和IF公式为0.00％

1 个答案: