エクセルの学校：全文検索：Hyper Estraier：オートフィルタ

Results of 1 - 1 of about 4265 for オートフィルタ (0.004 sec.)

[[20120612121830]]: #score: 4241; @digest: 18c2bfa2b0d76b8845ca7c0d65d8f5f4; @id: 59288; @mdate: 2012-06-13T23:11:28Z; @size: 2709; @type: text/plain; #keywords: 番リ (8452), shw (5357), 品番 (4346), 刷. (4113), 出fo (3952), 業シ (3177), 列品 (2841), autofilter (2655), 除if (2422), ルタ (1659), 番品 (1622), ーオ (1613), トフ (1544), トsh (1490), 刷、 (1480), フィ (1390), 印刷 (1352), 定. (1332), ター (1326), ィル (1322), オー (1319), で印 (921), ー設 (883), ユニ (842), 番を (814), autofiltermode (765), 名1 (743), の品 (675), 業用 (675), ニー (662), タリ (632), 用シ (601); 『データーを絞り込んで印刷』（keisuke）
Excel2003 OS WindowsXP です。お世話になります。 A列 B列品番品名 1 あ 2 い 2 う 3 え 3 お 3 か品番と入力してある1行目にオートフィルターをかけ、品番のところの オートフィルターの一覧から1を選んで印刷、2を選んで印刷、3を選んで印刷とこれを繰り返しております。なんとか自動でできないでしょうか? 品番は1、2、3とは限らず都度変わります（件数も変動します）ので オートフィルターの一覧にあるぶんだけを印刷したいです。方法は問いません、ようは品番ごとに絞り込んで印刷を一度にしたいという事です。宜しくお願いいたします。 ---- VBAを使うことになるね。 1.まず、フィルターオプションで、A列の品番を、どこか別シートに重複を無視して抽出（つまり、一意になる） 2.その重複がなくなった品番リストを1つずつ取り出して、オートフィルター --> 印刷これを繰り返す。こうなると思う。フィルターオプションのところ、オートフィルターのところ、フィルター結果の印刷のところは実際の操作をマクロ記録したらコードが生成される。これらは、ほとんどそのまま使うことができると思う。あとは、品番を取り出すループ処理を、これらの上にかぶせればいいんだけど、これぐらいのアドバイスであとはできる? (ぶらっと) ---- うえでかいたことをコードにするとこんな感じ。 Sub Sample() Dim shW As Worksheet Dim c As Range Application.ScreenUpdating = False Set shW = Sheets("Sheet2") '作業用シート shW.Cells.ClearContents '作業シートのクリア With Sheets("Sheet1") 'データシート 'A列の品番を重複を排除して作業シートに抽出 .Columns("A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=shW.Range("A1"), Unique:=True 'オートフィルター設定があればいったん解除 If .AutoFilterMode Then .AutoFilter.Range.AutoFilter 'あらためてオートフィルター設定 .Range("A1").AutoFilter 'ユニークになった品番リストから品番を1つずつ抽出 For Each c In shW.Range("A2", shW.Range("A" & shW.Rows.Count).End(xlUp)) '抽出した品番の値でフィルタリングして印刷 .AutoFilter.Range.AutoFilter Field:=1, Criteria1:=c.Value .PrintOut Next 'オートフィルター解除 .AutoFilter.Range.AutoFilter End With shW.Cells.ClearContents '作業シートのクリア Application.ScreenUpdating = True MsgBox "印刷終了" End Sub (ぶらっと) ---- ぶらっと様ご返信、ありがとうございます。 VBAまで記入して頂き、大変助かりました。申し訳ございません、最初のアドバイスでは仕組みが理解できませんでした。あとから頂きましたコードをコピーして実行したら思い通りの事ができました。コードを書き換えて使わせて頂きます。本当にありがとうございました。 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201206/20120612121830.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ