ハイパーリンク

取り掛かりが遅いのと、自分を追い込む習慣のない　”いっせい”　が

ようやく今日誕生日を記念して、やり始めます。

指定したフォルダの中の一覧表を書き出して、ハイパーリンクを

つなげるようにします。

まずハイパーリンクのマクロ記録です。

Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2012/1/21 ユーザー名 :
'

'
Range("A1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\Documents and Settings\Owner\デスクトップ\gamen\MENU000.txt", TextToDisplay:= _
"MENU000.txt"

End Sub

次回は、これを使ってDir関数を使ってLoopを使ってハイパーリンクを作成するようにやってみます。