Excel VBA質問箱 IV

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

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


17412 / 76732 ←次へ | 前へ→

【64774】Re:オートフィルタの変数代入
発言  Jaka  - 10/3/12(金) 16:55 -

引用なし
パスワード
   >オートフィルタで12行ずつ選んで印刷しようとしています。
>1以上〜12以下、13以上〜24以下、25以上〜36以下・・・
これと、

>1列目は、7行目に項目、8行目からデータが入っていて、印刷が必要な行に1が入るようにしています。
これがどうつながるのか良くわかりません。

んで、適当に解釈してみました。

フィルタされている範囲を12行づつ選択。

Dim Are As Range, Rng As Range, Cel As Range, i As Long
ActiveSheet.AutoFilterMode = False

Range("A1").AutoFilter Field:=2, Criteria1:="1"
'↑
'この部分は、動作にあったものに変えてください。

i = 0
With ActiveSheet.AutoFilter.Range
  With .Offset(1).Resize(.Rows.Count - 1)
    With .Columns(1).SpecialCells(xlCellTypeVisible)
      For Each Are In .Areas
        For Each Cel In Are
          i = i + 1
          If i = 1 Then
            Set Rng = Cel
          Else
            Set Rng = Union(Rng, Cel)
          End If
          If i = 12 Then
            Rng.EntireRow.Select
            MsgBox "OK"
            i = 0
            Set Rng = Nothing
          End If
        Next
      Next
      If Not Rng Is Nothing Then
        Rng.EntireRow.Select
      End If
    End With
  End With
End With
1 hits

【64766】オートフィルタの変数代入 たうりん 10/3/12(金) 14:04 質問
【64769】Re:オートフィルタの変数代入 Jaka 10/3/12(金) 15:33 発言
【64772】Re:オートフィルタの変数代入 たうりん 10/3/12(金) 15:49 発言
【64774】Re:オートフィルタの変数代入 Jaka 10/3/12(金) 16:55 発言
【64775】Re:オートフィルタの変数代入 たうりん 10/3/12(金) 23:41 お礼

17412 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free