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

Question

エクセルのマクロ機能を使い、エクセルのセルに管理番号入力し選択してマクロ実行すると、
自動でセルに入力した管理番号と同じフォルダー名の物を指定した場所に作成し、ハイパーリンクするVBAを
見よう見まねで作成しました。
この作成したVBAに追加機能を付けたいのですが、
WEBで検索したのですが、なかなか実行したい事が合う内容のものが見つからず、
マクロ初心者で何をどうすれば良いのか解りません。
大変申し訳ありませんが、どなたか教えて頂けませんでしょうか？

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

添付の画像ですと、管理番号を付けるのはA列で順番に番号を付けていきます。
１つのフォルダーの中に複数ファイルを入れる場合は、列を結合して１つの管理番号にし、
同じ行に並ぶフォルダーのE列（列の場所は変わる場合もあり）にフォルダーの中のファイル名を入力して、
フォルダー内同期リンク実行ボタンを押してファイルをハイパーリンクしたい。

※管理番号で列に対し行は1:1の時もあれば、ファイルの数により、列を結合し1:2～1:10以上もある。
※自動で管理番号名のと同じフォルダーを作成しハイパーリンクするVBAは下記で作ったのですが、
　　それをWEBで、似た様な内容のものを少し参考に編集しると、現在の機能も使えなくなってしまったりと困っています。
　　難しい。

Sub MakeHyLink()
  Dim wkStr As String
  If ActiveCell.Column <> 1 Then Exit Sub

If ActiveCell.Value = "" Then
        MsgBox "アクティブセルは未入力、やり直し"
        Exit Sub
  End If

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

End Sub

nayuta_lot · Accepted Answer

こんにちは　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 基本的に、ループ処理を理解した上で、変数の宣言とご自身で書かれた文を上記の位置に入れてあげれば、フォルダのリンクは貼れるはずです。Ｆ８を使って、動きを見てみるとわかりやすいですよ＾＾そろそろ、残り入力文字数も少なくなってきたので、この辺で（笑）それでは、何かあれば補足してください。がんばってください＾＾

nayuta_lot · Answer

こんにちはマクロ初心者ということですが、コードを全部書くのは問題なので、避けて回答します。下記を参考にして考え見てください。マクロを拝見しましたが、フォルダにハイパーリンクを貼るマクロと、ファイルにハイパーリンクを貼るマクロは、分けて作成しましょう。ボタンが２つありますし、そのつもりだとは思いますが、そのほうが混乱しません。まず、フォルダにハイパーリンクを貼るマクロですが、ループ処理がありません。従って、１回しか判定しません。それから、＞If ActiveCell.Column <> 1 Then Exit Sub ＞If ActiveCell.Value = "" Then ＞MsgBox "アクティブセルは未入力、やり直し" ＞Exit Sub ＞End If このあたりの処理はいらないと思います。　特に意思がなければ削除しましょう。その変わり、ループ処理をするにあたって、きちんと先頭のセルを指定しましょう。 Range("A8").Select　←　A8のセルを選択ループ処理をしますので、終了の判定をどうするか決定しましょう。１行づつ、下にずらして処理していき、NULLセルであれば終了する。といった具合です。その変わり、この場合は途中にNULLのセルがあると終了します。 NULLのセルは飛ばして、最後まで処理したいなどの場合は、最後のセルに "EOF"などの文字を設定してその文字と一致したら終了する。という様にするなどいくつか方法がありますが、今回はNULLのセルがあったら終了という前提で説明します。 Do While ActiveCell.Value <> "" 　　この間に１回の処理を書きます。 Loop この様にすると、ActiveCellの値がNULLでなくなるまでLoopの間を繰り返します。ただ、このままですとセルの位置が変わりませんので無限ループになります。そこで、Loopの上に、ActiveCell.Offset(1, 0).Selectを記入して、 Do While ActiveCell.Value <> "" 　　この間に１回の処理を書きます。　　ActiveCell.Offset(1, 0).Select Loop とします。　こうすると、１回の処理が終わると、現在のアクティブセルの位置から１行０列、移動したセルがアクティブセルになります。（～.Offset(行,列).select（選択） Offsetは相対的な位置を指定します。また、ActiveCell.Offset(1, 0).Selectを使用すると結合されたセルは1つのセルとして処理されますので、次の結合されていない下のセルが選択されます。これで、フォルダーのリンクはできるかと思います。また、ファイルのリンクについては、＞同じ行に並ぶフォルダーのE列（列の場所は変わる場合もあり）このような、不規則な条件はやめましょう。　条件を特定すれば、やってできないことはありませんが、条件が曖昧なうえに初心者では難しすぎます。結合の処理については以下のＵＲＬが参考になります。 http://officetanaka.net/excel/vba/tips/tips50.htm 上記のＵＲＬを参考にして、フォルダのマクロを改良してマクロを作ってみてください。フォルダが存在するかどうかのチェックをしてからファイルのリンク作業に入るというチェックに、フォルダのマクロが使えます。いったん、ここで回答を終了します。　マクロを作成してみて、どうしても上手くできなければ、わからない個所を明記して、またご質問ください。では、検討を祈ります。

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

こんにちは No.1です。

こんにちは

この回答への補足

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

こんにちは　No.1です。