2014-02-22 81 views
0

我有一個子範圍(「A2:A4」)包含3個超鏈接,我想在網頁瀏覽器中打開。通過它打開相同的超鏈接3次,而所有3個超鏈接是不同的。有任何想法嗎?這裏是子:只在範圍中選擇第一個超鏈接

Sub Hyperlink_Follow() 
Dim c As Range 
Set c = Workbooks("Book1").Worksheets("Sheet1").Range("A2:A4") 
For Each Cell In c 
On Error Resume Next 
c.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 
Next 
End Sub 

但這子的作品,並打開3個不同的超鏈接:

Sub Hyperlink_Follow2() 
    Dim c As Range 
    For Each c In Range("A2:A4").Cells 
    On Error Resume Next 
    c.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 
    Next 
    End Sub 

回答

0

For Each Cell In c

這裏Cell是範圍變量改變whithin循環,c是固定範圍,所以:

For Each Cell In c 
    cell.Hyperlinks(1).Follow ... 
+0

謝謝!有用! – user1665355