【サンプルコードつき】マクロ利用者に条件入力させるには、フォームが「必要」なのか？

小川です。

お仕事での結果につながっているようで、なによりです。

ご相談内容について、読み直してみて分からないところがあります。
以下のとおりの前提という理解でよいでしょうか。

[a] 一度の作業で作業対象とするファイルA、ファイルBはひとつしかない
[b] ただし、ファイルA、ファイルBは、毎月別の名前のもの
ファイルAには、所定のシート（シートA、とします）の所定のセル（セルA、とします）に、管理番号として使う値が記されている
[d] ファイルBには、所定のシート（シートB、とします）の所定のセル（セルB、とします）に、管理番号として使う値が記されている
[e] セルAとセルBの値を比較して、所定の条件を満たしていると判定されたならば、処理を行う(これは、○○さんがすでに実現できていること)

たぶん上記のとおりだろうと思ったのですが、, [d]については、ファイルA、ファイルBのファイル名が管理番号としての機能を担っているのかな？という可能性もあるかな、と思いまして。

いずれにしても、この件だけで、フォームを使う必要はないだろうと思います。
マクロの入ったファイルに、シートを1枚追加します。
シート名は、「Control」というのが僕のよく使うやり方です。

以下の2つのセルに、以下のとおりに文字列を書き込みます
セルA1: ファイルAの名称を記入してください→
セルA2: ファイルBの名称を記入してください→

このようにして、ファイルA、ファイルBの名称をセルB1、セルB2に入力してもらうようにします。

別途、「伝票作成マクロ」と同じ要領で、ボタンを用意します。
このボタンを押すと、前述[e]のマクロが実行されます。

ただし、ソースにベタに書かれたファイル名の部分は、変数化しておき、シート「Control」のセルB1、セルB2から読み取るようにします。
セルB1、セルB2の値については、担当者の入力ミス、「管理番号が一致しない」といった可能性も考えられます。
必要に応じて、そういう可能性にも配慮したプログラムに書き換えます。

ということで…以下のとおりの修正内容になるのかな、と思います。
(ファイルA、ファイルBとも、Cドライブのtempフォルダにある、という前提。そこは適当に書き直してください)

Sub macro1() 	'元のマクロ
 	Dim bkA As Workbook
 	Dim bkB As Workbook
Set bkA = Workbooks.Open(Filename:="C:\temp\ファイルA.xlsx")
Set bkB = Workbooks.Open(Filename:="C:\temp\ファイルB.xlsx")

'以下、前記[e]に相当する、本格的な処理...
 ' ...
 ' ...
 ' ...
End Sub

Sub macro2() 	'変更後のマクロ
 	Dim filenameA As String
 	Dim filenameB As String
	filenameA = ThisWorkbook.Worksheets("Control").Range("B1").Value
	filenameB = ThisWorkbook.Worksheets("Control").Range("B2").Value
	
	Dim bkA As Workbook
 	Dim bkB As Workbook

'以下、発展編1では扱っていませんが、エラー処理の基本パターンで書いてみました
	On Error Resume Next
 	Set bkA = Workbooks.Open(Filename:="C:\temp\" & filenameA)	
 	If Err.Number = 1004 Then 'Err.Numberは、問題なければ0。エラーが出ると、エラー内容により、対応した正の値。
 		Debug.Print Err.Description
 		MsgBox filenameA & "は見つかりませんでした。"
 		Exit Sub
 	End If
 	On Error GoTo 0
	On Error Resume Next

 	Set bkB = Workbooks.Open(Filename:="C:\temp\" & filenameB)
 	If Err.Number = 1004 Then
 		Debug.Print Err.Description
 		MsgBox filenameB & "は見つかりませんでした。"
 		Exit Sub
 	End If
        On Error GoTo 0

'以下、前記[e]に相当する、本格的な処理...
 ' ...
 ' ...
 ' ...

 End Sub