VBA错误91-代码在编写该代码的地方有效,但在使用新计算机时出错

时间:2018-06-27 18:16:22

标签: vba excel-vba excel

我想查询有关VBA的错误代码91。我尝试搜索解决方案并首先进行搜索,但是示例和情况似乎都是关于将对象声明为值的,而且我不确定我的代码如何适合这种情况。

以下代码在编写该代码的计算机上工作,但是当我尝试在家用计算机上运行该代码时,会发生错误。该函数是函数集合的一部分,该函数根据用户将其姓名放入特定单元格并根据需要进行更改的方式进行更改:

Sub CaseGuide_Jeff(Name As String)

    'Checks for Name to make changes based on input
    If Name = "Jeff" Then 'change hyperlink subaddress to custom
       ThisWorkbook.Sheets("Case Guide").Hyperlinks. _
            Add Anchor:=Cells(3, 2), _
            Address:="", _
            SubAddress:="'Case Guide'!C45", _
            ScreenTip:="Case Guide"

        ThisWorkbook.Sheets("Case Guide").Hyperlinks. _
            Add Anchor:=Cells(9, 3), _
            Address:="", _
            SubAddress:="'Case Guide'!C45", _
            ScreenTip:="Case Guide"

    Else 'default hyperlink subaddress to standard location
        ThisWorkbook.Sheets("Case Guide").Hyperlinks. _
            Add Anchor:=Cells(3, 2), _
            Address:="", _
            SubAddress:="'Case Guide'!C50:C55", _
            ScreenTip:="Case Guide"

        ThisWorkbook.Sheets("Case Guide").Hyperlinks. _
            Add Anchor:=Cells(9, 3), _
            Address:="", _
            SubAddress:="'Case Guide'!C50:C55", _
            ScreenTip:="Case Guide"
    End If
End Sub

调试器中突出显示的部分仅位于代码的“ else”部分。我不确定为什么“ if”部分中的格式会正确,但是当代码相同且未声明任何新类型的对象时,“ else”中就会出现错误。

感谢您的时间和调查。

0 个答案:

没有答案