Excel VBA 错误 - 函数或接口标记为受限。或函数使用 Visual Basic 不支持的自动化类型

Question

我正在用 VBA 编写一个小的分数查找程序，下面的代码在标题中给出了错误，我是 VBA 新手，错误指向 Excel 本身生成的第一行。

Private Sub btnSearch_Click()
    Name = txtSearch.Text
    AmountOfEntries = Range("i10")
    For i = 1 To AmountOfEntries
        If Range("a" + i) = Name Then
            cell = i
        Else
            cell = "Error"
        End If
    Next i

    If cell = "Error" Then
        lblScore.Caption = "Your Username is Incorrect. Please Try Again"
    Else
        lblScore.Caption = "Your Score Is : " + Range("b" + cell)
    End If
End Sub

我的电子表格在“A”列中包含一个姓名列表，然后在“B”列中包含一个分数列表。在“I10”中有一个字段包含列表中的条目数量。

Answer 1

您应该尽量避免使用“名称”、“单元格”等（VBA 中的通用术语）作为变量名称。尝试定义变量Dim strName as String, i as Integer, intCell as Integer, intAmountOfEntries as Integer。

此外，您的范围语句应更改为使用 & 并指定您要使用 VALUE 而不是对象的 RANGE 方面：

Range("a" & i).Value 和 Range("b" & intCell).Value

编辑 =============

下面是你的cmets：

我认为问题是由于您使用单元格作为整数（行号）和字符串（“错误”）。我会创建一个新变量来检测是否有错误：

Dim blnError as Boolean

然后替换这个：

cell = "Error" 与 blnError = True

您下面的 If 语句需要修改为 If blnError = True Then

您能否确认您有一个名为“Sheet1”的工作表？如果不是，那么这就是Sheets("Sheet1") 代码不起作用的原因。我通常使用 VBA 名称代替工作表 - 在 VBE 中，您可以看到它们在项目资源管理器中的内容（括号前的名称），您可以使用属性窗口更改它们。然后你只需使用sheetname.Range("A1")。