2006/7/25  22:48 | 投稿者: gogocerezo

Sub hyperlink3()
Dim i, j As Integer
Range("b8", Range("b8").End(xlDown)).Select '対象範囲を選択
j = Selection.Rows.Count '対象範囲列数をカウントしjに代入
For i = 1 To j
With Worksheets(1)
.Hyperlinks.Add .Cells(i + 7, 1), Cells(i + 7, 1) 'フォルダへのリンク設定
End With
With Worksheets(1)
.Hyperlinks.Add .Cells(i + 7, 2), Cells(i + 7, 1) & "\" & Cells(i + 7, 2) 'フォルダ名とファイル名からファイルへのリンクを設定
End With
Next i
Range("a1").Select
MsgBox j & "ファイルへのリンク設定処理を終了しました", , "処理終了"
End Sub
0




AutoPage最新お知らせ