エクセルで大量のハイパーリンクを設定したいのですが。

質問

エクセルの列Bの4行目以下数千行の各セルに名前を入力しており、別のフォルダにその名前と全く同じ名前のフォルダがあります。(文字の重複はありません。)
このエクセルの指定列(例えば列CD)に、列Bの名前に対応するフォルダをハイパーリンクで開くようにしたいのですが。
その指定列の各セルにはリンク先があることだけがわかるように、「F」(フォルダのフ)でも入れようかと思っています。
尚、そのエクセルもフォルダも社内ネットワークで開き、自分の端末内ではありません。

数千のフォルダーは、フリーソフトを入手し、簡単に作成することができましたが、このリンクの件は、思うようなソフトが見つかりません。簡単にできる方法を御教授ください。そのエクセルの運用としては1年に1回同様の作業があり、来年は列CGに同様な新しいリンクを設定しなければなりません。よろしくお願いします。

回答No.1

tohru999 · ベストアンサー

そこのシートにボタンを作ってボタンクリック時に下のVBA実行でどうでしょうか？
（ハイパーリンクのリンク先はCドライブにしています）
'/* ループ開始行
Private Const CONST_STARTROW As Integer = 4

=======================================================================

Dim intEndRow As Integer '/* 列Ｂの最終行
Dim intLoopCount As Integer '/* ループカウンタ
Dim strFolderName As String '/* フォルダ名

'/* 最終行の取得
intEndRow = ActiveSheet.Range("B" & CStr(CONST_STARTROW)).CurrentRegion.Count + CONST_STARTROW - 1

'/* 画面描画を無効に設定
Application.ScreenUpdating = False

'/* フォルダ数分ループ
For intLoopCount = CONST_STARTROW To intEndRow

'/* フォルダ名の取得
strFolderName = ActiveSheet.Range("B" & CStr(intLoopCount)).Value

'/* ハイパーリンクをセットするセルをアクティブセルに設定
ActiveSheet.Range("C" & CStr(intLoopCount)).Select

'/* ハイパーリンクを設定
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\" & strFolderName, TextToDisplay:="F"

Next intLoopCount

'/* 画面描画を有効に設定
Application.ScreenUpdating = True

お礼

丁寧なご回答を頂き、有難うございました。
現在、システムが年1回のメンテナンス中で停止していますが、復帰次第試してみたいと思います。結果は後日、追記させて頂きます。

1件ずつ設定する膨大な作業が、一気に干渉されます。助かりました。