☆超私的☆ニュース・備忘録・作業ログ

超私的なニュース・備忘録・作業ログをメモします。

Posted by admin on 2月 21, 2011

EXCEL VBA ハイパーリンク挿入

Posted under EXCEL-VBA

EXCEL VBA ハイパーリンク挿入

Sub ハイパーリンクを挿入する()

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

Leave a Reply