エクセル住所録でフラッグの個所だけ印刷するマクロ

住所録がエクセル表で作成しています。
印（１～３）がついた住所だけ、封筒にワードで印刷します
A列、B列、C列に数字１から３を入力します。
1だけ、2だけを印刷するマクロを教えてください。

No.1 回答者： Qchan1962 回答日時： 2021/11/08 16:04

こんにちは

ご質問があまりにアバウトで良く分かりませんが、
＞ワードで印刷します
差し込み印刷は出来ているのかな、、

＞1だけ、2だけを印刷するマクロを教えてください。

詳細が分かれば方法は色々あると思いますが、、
これに付いての回答です。

1だけ2だけ3だけの例です。（入力選択）

Sub sample()
Dim i As Long, n As Long
Dim k As Variant
k = Application.InputBox(prompt:="1・2・3 いずれか入力して下さい。", _
Title:="数値入力", Type:=1)
If TypeName(k) = "Boolean" Then Exit Sub
If k <= 1 Or k >= 3 Then
MsgBox (k & "は使用出来ません")
Exit Sub
End If
For i = 1 To 3
If n < Cells(Rows.Count, i).End(xlUp).Row Then
n = Cells(Rows.Count, i).End(xlUp).Row
End If
Next
For i = 1 To n
If Application.WorksheetFunction.CountBlank(Range(Cells(i, 1), Cells(i, 3))) <> 3 Then
If Application.WorksheetFunction.CountIf(Range(Cells(i, 1), Cells(i, 3)), k) Then

MsgBox (i & "行が" & k & "の対象")

End If
End If
Next
End Sub

MsgBox (i & "行が" & k & "の対象")のところで、行番号を示すiを利用して
差し込み印刷をCallすれば良さそうですかね