Excel VBA質問箱 IV

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

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


19368 / 76732 ←次へ | 前へ→

【62797】Re:フィルター繰り返し印刷
発言  ichinose  - 09/9/3(木) 7:11 -

引用なし
パスワード
   ▼しゅう さん:
おはようございます。

>例
>
>種類    品番  品名  
>AAA  123441  ドア右
>AAA  123442  ドア左
>BBB  123881  マド右
>BBB  123882  マド左
>CCC  123991  ガラス右
>CCC  123992  ガラス左
>
>これだと種類が増えた時に対応できません。
上記表がA1から始まっているとして、
A列の種類という項目の重複なしのリストが必要ですよね!!
フィルタオプションを使いました。
しゅう さんの考えたコードを使うと

'==============================================================
Sub Macro1()
  Dim Urng As Range
  Dim Erng As Range
  With Range("a1", Cells(Rows.Count, "a").End(xlUp))
    .AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    On Error Resume Next
    Set Urng = .SpecialCells(xlCellTypeVisible)
    If Err.Number = 0 Then
     With .Resize(, 3)
       .AutoFilter
       For Each Erng In Urng
        If Erng.Address <> Urng.Cells(1).Address Then
          .AutoFilter Field:=1, Criteria1:=Erng.Value
          ActiveSheet.PrintPreview
'         activesheet.printout ↑プレビューしてあります
        End If
       Next
       .AutoFilter
     End With
    End If
    On Error GoTo 0
  End With
End Sub

1 hits

【62796】フィルター繰り返し印刷 しゅう 09/9/3(木) 1:41 質問
【62797】Re:フィルター繰り返し印刷 ichinose 09/9/3(木) 7:11 発言
【62798】Re:フィルター繰り返し印刷 Hirofumi 09/9/3(木) 8:37 回答
【62802】Re:フィルター繰り返し印刷 しゅう 09/9/3(木) 12:34 お礼

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