「ハイパーリンク一括有効」の編集履歴（バックアップ）一覧はこちら

「ハイパーリンク一括有効」(2009/07/07 (火) 11:06:59) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

 Sub SetHyperlinks()
 Dim rg As Range
 If "Range" = TypeName(Application.Selection) Then
 For Each rg In Application.Selection
 If Left(rg, 4) = "http" Then
 rg.Hyperlinks.Add rg, rg.Text, "", "", rg.Text
 End If
 Next
 End If
 End Sub

*ハイパーリンク一括有効

下記のマクロで行う

 Sub SetHyperlinks()
 Dim rg As Range
 If "Range" = TypeName(Application.Selection) Then
 For Each rg In Application.Selection
 If Left(rg, 4) = "http" Then
 rg.Hyperlinks.Add rg, rg.Text, "", "", rg.Text
 End If
 Next
 End If
 End Sub