| 
    
     |  | ▼Jaka さん: >▼たうりん さん:
 >>オートフィルタで12行ずつ選んで印刷しようとしています。
 >>1以上〜12以下、13以上〜24以下、25以上〜36以下・・・
 >>データがある行まで繰り返し処理をします。
 >やっていることが良くわかりません。
 >
 >>'変数への代入部分
 >>  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
 >オートフィルタ領域の2列目の値が、
 >myRow2
 >以上
 >myRow3
 >以下を表示。
 >
 >これが、どうして行に結びつくのか解りません。
 行という説明がよくなかったです。
 2列目に1〜100の連番をふっています。
 1列目は、7行目に項目、8行目からデータが入っていて、印刷が必要な行に1が入るようにしています。
 宜しくお願いします。
 
 |  |