エクセルvbaでハイパーリンクを追加するためのコードを反復する

Question

1つのセルにハイパーリンクを作成するコードがあります。私はそれが列FまたはCまたはE.

Sub insertVeryLongHyperlink() 

Dim curCell As Range 
Dim longHyperlink, TextToDisplay1 As String 

Set curCell = Range("G1") ' or use any cell-reference 
longHyperlink = [E1] 
TextToDisplay1 = [C1] 

curCell.Hyperlinks.Add Anchor:=curCell, _ 
       Address:=longHyperlink, _ 
       SubAddress:="", _ 
       ScreenTip:=" - Click here to follow the hyperlink", _ 
       TextToDisplay:=TextToDisplay1 

End Sub 

Answer 1

これはcolumn Gにハイパーリンクを作成するに沿ってすべての充填されたセルを反復処理します。

Sub InsertVeryLongHyperlink() 
    Dim cl As Range 

    For Each cl In Range("G1:G" & Range("G1").End(xlDown).Row) 
     cl.Hyperlinks.Add Anchor:=cl, Address:=cl.Offset(0, -2).Text, TextToDisplay:=cl.Offset(0, -4).Text, ScreenTip:=" - Click here to follow the hyperlink" 
    Next cl 
End Sub 

• cl.Offset(0, -2).Text列E
• cl.Offset(0, -4).Textあなたは `hyperlink`が列Eにあると` textToDisplay`が列Cにあり、あなたが反復したい意味するか、列C