运行时错误 1004 - 被调试器停止在 "End With"
Runtime Error 1004 - Stopped at "End With" by debugger
好吧,我认为解释我正在尝试做的事情有点困难,但调试器在 "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
我设法解决了这个问题。运行时错误的主要原因是这个命令:
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 技能和对我这样的新手来说很方便的事情要记住 :) 谢谢大家
好吧,我认为解释我正在尝试做的事情有点困难,但调试器在 "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
我设法解决了这个问题。运行时错误的主要原因是这个命令:
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 技能和对我这样的新手来说很方便的事情要记住 :) 谢谢大家