EXCEL VBA ハイパーリンク挿入
EXCEL VBA ハイパーリンク挿入
i開始行 = 1
sリンク設定カラム = “T”
For ii = i開始行 To 200
If Range(sリンク設定カラム & CStr(ii)).Value = “” Then
Exit For
End If
表示文字列 = Range(sリンク設定カラム & CStr(ii)).Value
アドレス = Range(sリンク設定カラム & CStr(ii)).Value
Range(sリンク設定カラム & CStr(ii)).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:=アドレス, TextToDisplay:=表示文字列
With Selection.Font
現色 = .ColorIndex
.Name = “MS Pゴシック”
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
If Range(sリンク設定カラム & CStr(ii)).Interior.ColorIndex = 1 Or _
Range(sリンク設定カラム & CStr(ii)).Interior.ColorIndex = 3 Or _
Range(sリンク設定カラム & CStr(ii)).Interior.ColorIndex = 5 Or _
Range(sリンク設定カラム & CStr(ii)).Interior.ColorIndex = 11 Then
.ColorIndex = 2
End If
End With
Debug.Print
Next ii
End Sub