※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

ハイパーリンク一括有効


下記のマクロで行う

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