セルにハイパーリンクを設定したり、リンクを解除したりする

　Excel VBA を使用すると、セルにハイパーリンクを設定したり、既存のリンクを解除したりすることができます。
　これにより、ワークシート内のナビゲーションを効率化したり、外部データとの連携を強化したりすることができます。

ハイパーリンクの設定
VB.Net
Sub ハイパーリンクを設定する()
Dim rng As Range
Set rng = Range("A1") ' リンクを設定するセルを指定

' セルの値をリンク先のURLとする
rng.Hyperlink Address:=rng.Value, TextToDisplay:=rng.Value

End Sub
コードは注意してご使用ください。

rng.Hyperlink Address:=rng.Value: リンク先のアドレスをセルの値に設定します。
rng.Hyperlink TextToDisplay:=rng.Value: 表示するテキストをセルの値に設定します。
ポイント:

　リンク先の指定: Address 引数には、WebページのURL、ファイルパス、シート内のセル範囲などを指定できます。
　表示テキストの指定: TextToDisplay 引数には、リンクとして表示するテキストを指定します。
　省略すると、Address で指定したアドレスが表示されます。
　セル範囲: Range オブジェクトを使用して、複数のセルに一括でリンクを設定することもできます。

ハイパーリンクの解除
VB.Net
Sub ハイパーリンクを解除する()
Dim rng As Range
Set rng = Range("A1:A10") ' リンクを解除するセル範囲を指定

rng.Hyperlinks.Delete

End Sub
コードは注意してご使用ください。

r　ng.Hyperlinks.Delete: 指定された範囲内のすべてのハイパーリンクを削除します。

応用例
　特定の条件でリンクを設定: 条件分岐を用いて、特定のセルにのみリンクを設定することができます。
　複数のシートにリンクを設定: For Each 文を使用して、複数のシートのセルに一括でリンクを設定できます。
　既存のリンクの情報を取得: Hyperlinks コレクションの Properties プロパティを使用して、リンク先のアドレスや表示テキストを取得できます。

その他
　VBAエディタのオブジェクトブラウザー: Hyperlinks オブジェクトのメソッドやプロパティを調べる際に、VBAエディタのオブジェクトブラウザーが役立ちます。
　エラー処理: リンクの設定や解除の際にエラーが発生する可能性があるため、エラー処理を組み込むことをおすすめします。
例: シート内の特定のセルにリンクを設定
VB.Net
Sub シート内リンクを設定()
Dim rng As Range
Dim lastRow As Long

' 最終行を取得
lastRow = Cells(Rows.Count, "A").End(xlUp).Row

' A列のセルをループ
For Each rng In Range("A2:A" & lastRow)
    ' B列の値が"リンク"の場合にリンクを設定
    If rng.Offset(0, 1).Value = "リンク" Then
        rng.Hyperlink Address:="Sheet2!" & rng.Address, TextToDisplay:=rng.Value
    End If
Next rng

End Sub
コードは注意してご使用ください。

注意点:

　上記のコードはあくまで一例です。実際の環境に合わせて適宜修正してください。
　VBAの知識が浅い場合は、まずは基本的な構文から学習することをおすすめします。

まとめ
　Excel VBA を使用することで、ハイパーリンクの設定や解除を自動化し、作業効率を大幅に改善することができます。
　この記事を参考に、ぜひご自身のワークシートに組み込んでみてください。