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

Question

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

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

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

我甚至无法使用即时窗口打印工作表（“Sheet2”）.Selection.Areas。计数部分。

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

谢了。

Answer 1

对象不支持此属性或方法。

可以把它想象成在对象上调用点之后的任何东西。它就像一条链子。

对象是类实例。类实例支持该类类型定义中定义的某些属性。它公开了VBE中IntelliSense告诉您的任何内容（有一些隐藏成员，但与此无关）。所以在每个点＜code＞之后 你得到智能感知（白色下拉列表），试图帮助你选择正确的动作。

（您可以从任何一种方式开始-从前面到后面或从后面到前面，一旦您了解了这是如何工作的，您将能够确定问题发生在哪里）

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

Dim a As Worksheets
a.

你从VBE那里得到帮助，它是一个叫做智能感觉的小下拉列表

它列出了特定对象向任何用户公开的所有可用操作。您看不到<代码>。< code>Worksheets()类的Selection成员。这正是错误告诉你的。

对象不支持此属性或方法。

如果你看看MSDN上的例子

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

它首先激活工作表，然后调用选择... 它没有连接在一起，因为选择不是 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

从这里