运行时错误 1004 - 被调试器停止在 "End With"

Question

好吧，我认为解释我正在尝试做的事情有点困难，但调试器在 "End With" 上卡住了，无法继续。我只是不知道出了什么问题。非常感谢任何帮助。

Private Sub AddHyperlinks()
    Dim i As Integer
        For i = 3 To 5
                If Cells(i, 1).Value = vbNullString Then
                    With Worksheets("Sheet2")
                        .Hyperlinks.Add Anchor:=.Range(Cells(i, 2)), _
                        Address:="C:\Dropbox\DASC\DASC_v1.00\MIBD\MIB00" & Range(Cells(i, 4)).Value & ".xlsm", _
                        ScreenTip:="", _
                        TextToDisplay:="Info"
                    End With
                End If
        Next i
End Sub

Answer 1

我设法解决了这个问题。运行时错误的主要原因是这个命令：

Range(Cells(i, 2)).Value

和所有其他

Range(Cells(#, #))

重新定义的代码可以正常工作：

Private Sub AddHyperlinks()
    Dim i As Integer
        For i = 3 To 5
                If Cells(i, 1).Value = vbNullString Then
                    With Worksheets("Sheet2")
                        .Hyperlinks.Add Anchor:=.Cells(i, 1), _
                        Address:="C:\Dropbox\DASC\DASC_v1.00\MIBD\MIB\MIB00" & Cells(i, 4).Value & ".xlsm", _
                        ScreenTip:="Info", _
                        TextToDisplay:="Info"
                    End With
                End If
        Next i
End Sub

我想这个问题已经在 Whosebug 的其他地方得到了解答，但我什至无法找出问题所在。 +1 我的 VBA 技能和对我这样的新手来说很方便的事情要记住 :) 谢谢大家

运行时错误 1004 - 被调试器停止在 "End With"

Runtime Error 1004 - Stopped at "End With" by debugger

debugging

runtime