Question

我使用以下代码收到错误runtime error 94 invalid use of null：

Sub test()
    With Selection.Interior
        MsgBox (.ColorIndex)
   End With
End Sub

我选择一个由两个合并单元组成的单元格（水平并且颜色为ColorIndex 15（紫色）。

我尝试在其他单元格上运行代码并且运行正常。什么可能导致这个问题？

Answer 1

当您尝试使用Null显示MsgBox时发生错误。这源于选择两个或更多个具有不同.Interior.ColorIndex的单元格。

如果Selection.Interior.ColorIndex具有不同的颜色索引，则会返回Null。我建议在使用MsgBox调用之前循环选择 - 或将选择传递给范围变量。

Dim rCell As Range
For Each rCell In Selection
  MsgBox rCell.Interior.ColorIndex
Next

或

Dim rCell As Range              '<~ variable that will loop
Dim rSelection As Range         '<~ variable that will hold selection
Set rSelection = Selection      '<~ pass selection to variable
For Each rCell In rSelection
  MsgBox rCell.Interior.ColorIndex
Next

运行时错误94无效使用null ColorIndex

1 个答案: