excel - VBA 对象不支持此属性或方法

Question

我需要简单地计算一张纸上的区域数量。我的代码是:

Sub areas()
   Dim i As Long
   i = Worksheets("Sheet2").Selection.Areas.Count
   MsgBox i
End Sub

但由于某种原因，我收到错误消息“对象不支持此属性或方法。”我不知道为什么。这段代码基本上是从微软网站复制的。

我什至无法立即打开窗口来打印 Worksheets("Sheet2").Selection.Areas.Count 部分。

有什么快速帮助吗？我使用的是 Excel 2010。

谢谢。

Answer 1

Object doesn't support this property or method.

将其想象为在对象上调用点之后的任何内容。它就像一条链子。

对象是类的实例。类实例支持该类类型定义中定义的一些属性。它公开了 VBE 中的智能感知告诉您的任何内容(有一些隐藏成员，但与此无关)。因此，在每个点 . 之后，您都会获得智能感知(白色下拉列表)，尝试帮助您选择正确的操作。

(您可以从前到后或从后到前开始，一旦您了解其工作原理，您将能够确定问题发生的位置)

在代码区域的任意位置键入此内容

Dim a As Worksheets
a.

您可以从 VBE 获得帮助，这是一个名为 Intelli-sense 的小下拉列表

它列出了特定对象向任何用户公开的所有可用操作。您看不到 Worksheets() 类的 .Selection 成员。这就是错误确切地告诉你的内容。

Object doesn't support this property or method.

如果你看the example on MSDN

Worksheets("GRA").Activate
iAreaCount = Selection.Areas.Count

它首先激活工作表，然后调用Selection...它没有连接在一起，因为Selection不是的成员Worksheets() 类。简而言之，您不能前缀选择

怎么样

Sub DisplayColumnCount()
    Dim iAreaCount As Integer
    Dim i As Integer

    Worksheets("GRA").Activate
    iAreaCount = Selection.Areas.Count

    If iAreaCount <= 1 Then
        MsgBox "The selection contains " & Selection.Columns.Count & " columns."
    Else
        For i = 1 To iAreaCount
        MsgBox "Area " & i & " of the selection contains " & _
        Selection.Areas(i).Columns.Count & " columns."
        Next i
    End If
End Sub

来自 HERE