excel2007VBA 二つの動作の繰り返し処理

質問

excel2007でマクロを勉強し始めたばかりです。VBAの繰り返し処理をしたいのですが、以下のようなマクロの請求書個別発行を一括発行にしたいと考えています。繰り返し開始から、終了までを、数値がなくなるまで繰り返したい場合、どのようになるでしょうか。よろしくお願いします。

Sub 請求書個別発行()
'
' 請求書個別発行 Macro
'

'
Range("A3:R24").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"売上一覧表!Criteria"), CopyToRange:=Range("W6:AN50"), Unique:=False

　Sheets("得意先").Select
Range("C3:O90").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"得意先!Criteria"), CopyToRange:=Range("R6:AD325"), Unique:=False

繰り返し開始

Sheets("売上一覧表").Select
Range("T4").Select　　　（T4からT5,T6,T7、、、と降順に値がなくなるまで選択される。）
Selection.Copy　　　　　　　　（T4＝Y4）　
Range("Y4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A3:R24").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"売上一覧表!Criteria"), CopyToRange:=Range("W6:AN50"), Unique:=False

Sheets("請求書").Select
Range("B16").Select　　（B16から、B17、B18,,,と降順に値がなくなるまで選択される。）

　 Selection.Copy　　　　　　　（B16=I6）
Range("I6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("請求書").Select
Application.Dialogs(xlDialogPrint).Show

繰り返し終了

End Sub

以下は自分なりに考えたVBAですが、エラーになります。

Sub 請求書集計発行()
'
' 請求書発行 Macro
'

'
Range("A3:R24").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"売上一覧表!Criteria"), CopyToRange:=Range("W6:AN50"), Unique:=False

Sheets("得意先").Select
Range("C3:O90").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"得意先!Criteria"), CopyToRange:=Range("R6:AD325"), Unique:=False

Dim wst1 As Worksheet
Dim wst2 As Worksheet
Set wst1 = ThisWorkbook.Worksheets("売上一覧表")
Set wst2 = ThisWorkbook.Worksheets("請求書")

Dim i As Long
Dim j As Long

For i = 4 To 100
For j = 16 To 100

If wst1.Range("T" & i) <> "" And Not IsNull(wst1.Range("T" & i)) Then
If wst2.Range("B" & j) <> "" And Not IsNull(wst2.Range("B" & j)) Then

myrow = wst1.Cells(Rows.Count, 1).End(xlUp).Row + 1
myrow = wst2.Cells(Rows.Count, 1).End(xlUp).Row + 1

wst1.Range("T" & myrow) = wst1.Range("Y4")

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A3:R24").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"売上一覧表!Criteria"), CopyToRange:=Range("W6:AN50"), Unique:=False

Sheets("請求書").Select
wst2.Range("B" & myrow) = wst2.Range("I6")

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("請求書").Select
Application.Dialogs(xlDialogPrint).Show

End If

Next i
Next j

End Sub

回答No.2

nekotaro3 · ベストアンサー

ループのサンプルです。フィルタを三回かけて終わりです。
※A3:R24にデータがあるシートを【複製】して行ってください。
※処理前にW:ANのデータをクリアします。

----処理内容----
A3をT1にコピペ
A18:A20をT4:T6にコピペ
W:ANをクリア

リスト範囲A3:R24
検索条件範囲T1:T2
抽出範囲W6:AN50

検索条件範囲T1:T2のT2の値をループで変更します。
--------------------

Sub ループのサンプル()
Dim K
Application.Goto Range("T1"), SCROLL:=True
Range("T1").Value = Range("A3").Value
Range("A18:A20").Copy Range("T4")
Range("W6:AN6").EntireColumn.ClearComments

For K = 4 To 6
Range("T2").Value = Range("T" & K).Value
Range("A3:R24").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("T1:T2"), _
CopyToRange:=Range("W6:AN6"), Unique:=False

MsgBox ""
Range("W6").CurrentRegion.ClearComments
Next
End Sub

お礼

ありがとうございます！無事解決しました。
ずっと悩んでいたので助かりました。

回答No.1

imogasi

質問の趣旨がどこにあるのかはっきりしない質問だ。
長いコードを読者に読ませるのでなく、判らないVBA上のポイントを、文章でかけ（数行で書けるはず）。
そうすればプログラムを作るのに必要な、「考え方の整理や、他人（引き継ぎ者も含む）への説明」が出きると思う。事後に処理内容を文書で残すためにも。
＝＝＝
もし
>数値がなくなるまで繰り返したい場合、どのようになるでしょうか
であれば
行ごとの繰り返し処理において（ループには３種類ぐらいあるが、For Nextなどで）
（１）End（xlUp）法
例
'--最終行番号取得
lr = Worksheets("Sheet1").Range("A100000").End(xlUp).Row
100000はそれ以上のデータはないという、安全セル範囲圏の見積もり行数。
（２）Ｃｕｒｒｅｎｔｒｅｇｉｏｎ法
「vba currentregion.rows.count」で照会
http://excel-ubara.com/excelvba4/EXCEL222.htmlなど
下記（４）（５）のことも含めて説明がある。
（３）ある列のセルデータが空白かどうかを判別し、空白セルの出現行で終わりにする
IF文で行うので初歩的だがわかりやすい。
（４）Cells(1, 1).End(xlDown≫法
（５）ＵｓｅｄＲａｎｇｅ法
などが考えられる。
それぞれの方法は、その方法では困るケース例はすぐ考え付くだろう。その場合は条件を付けくわえて、処理を複雑にして対処するほかない。
ＷＥＢ照会すれば、たくさんの記事が見つかる．まず検索語を工夫して考えて、WEB照会して、説明を読んで、なお判らない点を質問すること。
＝＝＝
其れに、データはコピー貼り付けはやめることを勧める。代入法でよい。
請求書のレイアウトの段階で、文字配置やフォントサイズ、色など熟慮すること。
ある１シートに１請求書のレイアウトを作りデータを入れてー印刷（Si-tonoPrintoutメソッド）を繰り返す、方式を繰り返すのを勧めたい。画面に出すのは意味が少ない。じっくりチェックできない。請求書を総合的に、適任者が最終チェックする方法を勧める。間違うと信用を落とし、事後処理に、関係者やお偉いさんの手数をかけるので慎重に。
＝＝＝
「imogasi 請求書」で照会すれば、関数を使って、データは整えて、PrintoOutメソッドだけVBAを使う方法を、ずいぶん前に回答したことがある。
-

お礼

ありがとうございます。参考にさせていただきます。