VBA-2 セルからリンクを張る

マクロの記録でリンクを張るコードを取得

1.
2.
3.
4.
5.
6.
7.
8.

'セルA1にリンクを設定する
Sub setLink()
    Cells(1, 1).Select
    ActiveSheet.Hyperlinks.Add _
        Anchor:=Selection, _
        Address:="<a href="http://tekitou.link" target="_blank" rel="noopener">http://tekitou.link", _
        TextToDisplay:="表示する文字列"
End Sub

定数部分を変数に変更

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

'アドレスはセルに記述してあるものとする
Sub setLink()
    Dim i, j As Integer
    Dim link As String
    
    i = 1
    j = 1
    Cells(i, j).Select
    link = Cells(i, j).Value
    ActiveSheet.Hyperlinks.Add _
        Anchor:=Selection, _
        Address:=link, _
        TextToDisplay:=link
End Sub

後は、i,jをループなんかで変化させればいいです。

リンクを解除する

1.
2.
3.
4.

Sub delLink()
    Sheets(1).Activate       'シート1を選択
    Cells.Hyperlinks.Delete  'シート内の全てのリンクを解除
End Sub

リンクを解除するとセルの枠やら書式やらもいっしょに解除されます。
書式は、文字色と下線を解除するため仕方がないと思いますが、なんで、枠も?


オブジェクト指向とか、全く理解できていないので、プロパティとか、メソッドとか、クラスとか、どういったものかのかが全くわかりません。