フォルダー内のファイルとリンクするマクロVBA

質問

• エクセルのマクロ機能を使い、エクセルのセルに管理番号入力し選択してマクロ実行すると、自動でセルに入力した管理番号と同じフォルダー名の物を指定した場所に作成し、ハイパーリンクするVBAを作成しました。
• 追加したい機能は、例としてA列の4と5の行を結合（結合しない場合もある）して管理番号を入力し、自動で管理番号名のと同じフォルダーを作成しハイパーリンクした後に、手動で、作成したフォルダーの中にファイルを入れる。
• その後、行に同じファイル名を入力し、その行を選択してファイル名が同じ物があればハイパーリンクする様にしたい。

回答No.2

nayuta_lot · ベストアンサー

こんにちは　No.1です。

＞これは「End Sub」の後に「Sub MakeHyLink()」でする事を分けて作成すると
＞言う事でしょうか？

そうです。　マクロを記入したシートに続けて記載することができます。
ただし、マクロの名称は別です。

Sub MakeHyLink_Folder() ・・・フォルダにリンクを貼るマクロ。　左側のボタンに登録します。
　　　：
End Sub

Sub MakeHyLink_File()　・・・ファイルにリンクを貼るマクロ。　右側のボタンに登録します。
　　　：
End Sub

上記のように、各ボタン用のマクロを作成して、それぞれのボタンにマクロを登録します。

とりあえず、フォルダにリンクを貼るマクロに絞ってマクロの勉強をされたらどうでしょうか？
フォルダが開くだけでも、結構、有効ですから。

この手のマクロを組む時は、必ずループの処理が必要になります。
逆に言えば、このループで処理を自動で繰り返すことができるのがマクロのメリットですね。

For、Do While、Do Untilなど、色々あるのですが、とりあえず、Do Whileを使ったループの
処理を記載します。

Do While 条件式 ・・条件が真（条件に合う）である間、Do While　と　Loopの間を繰り返し
　　　　　　　　　　　　　処理します。

　　：

Loop

基本は下記のようなループ処理です。

Sub MakeHyLink10()

Range("A8").Select '追加　先頭のセルを指定

Do While ActiveCell.Value <> "" 'アクティブセルがNULLでない間（何か入っている）
'DoからLoopまでの間を繰り返す。

ActiveCell.Offset(1, 0).Select '1行、下へ移動

Loop 'Do Whileへ戻る

End Sub

上記のマクロをマクロシートに貼り付けて、Sub MakeHyLink_loop()の行にカーソルを持っていて
Ｆ８を押してみてください。

Ｆ８を押すと、マクロがステップで実行（１行単位で実行）になり、Ｆ８を押すたびに、次の行が
実行されます。　カーソルのある場所がＦ８を押した時にこれから実行される命令です。

実際にエクセルのシートをみながらやると、動きが分かると思います。
ではさっそく、Ｆ８を押してみてください。

Range("A8").Select

が実行されると、エクセルシートのＡ８が選択されますね。
カーソルはDo While ActiveCell.Value <> ""にあると思います。

次にＦ８を押すと、Do While ActiveCell.Value <> ""が実行されます。

　Do While ActiveCell.Value <> ""　は、

　　アクティブセルが、未入力でない間（何か入力されている）、Do と Loopの間の処理を繰り返す。

　ということです。　逆の言い方をすると、

　　アクティブセルが、未入力な状態になるまで、Do とLoopの間の処理を繰り返す。

　とも言えます。（笑）

【補足】
　ActiveCell（アクティブセル）とは、範囲選択すると分かりやすいのですが、複数の範囲を
　選択すると、選択された範囲の中で一つだけ、白抜きになった編集対象のセルがありますよね。
　それがアクティブセルです。　なので、単独のセルしか選択していない場合は、そのセルが
　そのままアクティブセルになります。

　※ActiveCell.Value ←　.Valueはアクティブセルの値を意味します。

　また、""とは、NULL（ヌル）と言いますが、何も入力されていない状態（未入力）です。
　何も入っていないように見えても空白は文字とみなされますのでご注意ください。

もし、Ａ８に、何か入っていれば、

　ActiveCell.Offset(1, 0).Select　にいきます。

ここでＦ８を押すと、Ａ９にセルが動くのが確認できると思います。

次のDo While ActiveCell.Value <> ""での判定の準備です。

この処理をしないといつまでたっても、セルの位置が変わらないので永久ループに入ります（笑）
試しにこの行を、'でコメントアウトしてやってみてください。　ずっと繰り返します。
もし、ステップでない状態で実行してしまった場合には、ESCを押すと中断しますのでご安心ください。

　ActiveCell.Offset(1, 0).Select　←　.Offset(1, 0).Select は、アクティブセルの位置から
　　　　　　　　　　　　　　　　　　　　　　１行０列移動したセルを選択しなさいという意味です。
　　　　　　　　　　　　　　　　　　　　　.Offset(1, 0)今の位置を基準にして１行０列離れたセル
　　　　　　　　　　　　　　　　　　　　　.Select　選択する

次にLoopのところでＦ８を押すと、Do While ActiveCell.Value <> ""に戻ります。

こうして、アクティブセルが未入力でない状態の間、セルが下にさがっていき、未入力の状態になると

End Sub

に移り、処理が終了します。　これが、ループの基本です。

このループに肉付けしていくと、色々できるようになります。
この処理ができるようになったら、次に進みましょう。

Dim wkStr As String

変数の定義です。
VBAでは変数の宣言をしないと、プログラムの中でその名前を使用できません。

(1)Dim 変数名　As 型

型にはいろいろあるのですが、とりあえず、

Integer ・・・　数値を扱う場合に使用
String　・・・　文字列を扱う場合に使用

と覚えておけば、最初は十分でしょう。　最初に宣言しておけば大丈夫です。

(2)下記の文は、ご自身で書かれたものですが、これが１回分の処理ですね。

-----ここから

wkStr = ThisWorkbook.Path & "\TEST\" & ActiveCell.Value

If Dir(wkStr, vbDirectory) = "" Then
MsgBox "フォルダー：" & wkStr & vbLf & " を、作成します。"
MkDir wkStr
Else
MsgBox "フォルダー：" & wkStr & vbLf & " は、存在します。"
End If

ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:=wkStr

--ここまで

Sub MakeHyLink10()

　　←　(1)ここに変数の宣言をしておけば、基本的に大丈夫です。

Range("A8").Select '追加　先頭のセルを指定

Do While ActiveCell.Value <> "" 'アクティブセルがNULLでない間（何か入っている）
'DoからLoopまでの間を繰り返す。

←　この間に、ご自身で書かれた上記(2)を記載します。

ActiveCell.Offset(1, 0).Select '1行、下へ移動

Loop 'Do Whileへ戻る

End Sub

基本的に、ループ処理を理解した上で、変数の宣言とご自身で書かれた文を上記の位置に入れて
あげれば、フォルダのリンクは貼れるはずです。
Ｆ８を使って、動きを見てみるとわかりやすいですよ＾＾

そろそろ、残り入力文字数も少なくなってきたので、この辺で（笑）

それでは、何かあれば補足してください。
がんばってください＾＾

お礼

初心者にわかりやすい様に書いて頂き有難うございます。
とても解りやすく書いて頂いているので、理解もしやすく、
ちゃくちゃくと進み完成しそうです。
まったくの素人にとても丁寧に対応して頂き本当に有難うございます。
本当に有難うございます。