ExcelVBAでフォルダへのハイパーリンクを

Excelにファイルサーバーに置いてあるフォルダ名一覧があるのですが、このフォルダ名をクリックしたら実際にフォルダが開くようにハイパーリンクをしたいと思います。
（例：フォルダは\\serv1\aの中に名前「f1、f2,f3・・」で存在します。
またExcelにはA1にf1、A2にf2、A3にf3・・と記載されています。
A1をクリックするとf1のフォルダが開く・・というようにしたいです。
ちなみに空白のセルには何も入力したくありません。）

VBAを使わずになんとかなるならそれでもOKなのですが、VBAを使うのであればどのようにすればよいでしょうか。
VBAはほとんど使ったことがないので、すみませんがお願いいたします。

No.1 回答者： keithin 回答日時： 2013/07/28 23:13

ＡＬＴ＋Ｆ１１を押す

現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim h as range
　dim myPath as string
　on error resume next
　activesheet.hyperlinks.delete

　mypath = "\\serv1\a\"
　for each h in range("A:A").specialcells(xlcelltypeconstants)
　　activesheet.hyperlinks.add anchor:=h, address:=mypath & h.value
　next
end sub

ファイルメニューから終了してエクセルに戻る
Ａ列にデータを記入したシートを開き、ＡＬＴ＋Ｆ８を押してマクロを実行する。





＃先に回答した応用で、Ａ１セル以下に
=HYPERLINK("\\serv1\a\f1","f1")
といった数式を工夫して作成する方法でも出来ますが、いつの間にか黙っていなくなる人にはフォローはしないことにします。