Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17420 / 76732

←次へ　｜　前へ→


	【64766】オートフィルタの変数代入

たうりん - 10/3/12(金) 14:04 -


	引用なし

	パスワード

オートフィルタで12行ずつ選んで印刷しようとしています。
1以上～12以下、13以上～24以下、25以上～36以下・・・
データがある行まで繰り返し処理をします。
変数をいまいち理解していないので変なプログラムですが宜しくお願いします。
Dim myRow1 As Integer
Dim myRow2 As Integer
Dim myRow3 As Integer
Dim b As String

Sheets("日報").Select

'変数への代入部分
　 myRow1 = 8
　 myRow2 = 1
　 myRow3 = 11
Do
　 b = Worksheets("日報").Cells(myRow1, 1).Value
　　　If b = "" Then Exit Do

'補給品指示書印刷
　With Worksheets("日報").Select
'フィルタ　1～12行目
　　Selection.AutoFilter Field:=2, Criteria1:=">=" & myRow2, Operator:=xlAnd, _
　　　Criteria2:="<=" & myRow3
　 ActiveWindow.SelectedSheets.PrintPreview
　 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End With
myRow1 = myRow1 + 12
myRow2 = myRow2 + 12
myRow3 = myRow3 + 12
　 Loop

'フィルタ解除
　　Selection.AutoFilter Field:=2
　　Range("K6").Select

　MsgBox "End", vbInformation

End Sub

1 hits

▼

【64766】オートフィルタの変数代入 たうりん 10/3/12(金) 14:04

≪