Excel VBA質問箱 IV

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

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


35328 / 76732 ←次へ | 前へ→

【46604】Re:オートフィルタで抽出したデータの印刷について
発言  Pipop  - 07/2/7(水) 21:11 -

引用なし
パスワード
   ▼VBA初心者 さん:

分かりやすくなりましたね。
こんな感じでしょうか
例えばG1に1〜4、5等の数字を入れて次のコードを動かされてみてください。
D列の「コード」でフィルターがかかると思います。

Sub test()
With Sheets("Sheet2")
 .Cells.ClearContents
End With
With Range("A1")
 .AutoFilter
 .AutoFilter field:=4, Criteria1:=Range("G1").Value
 .CurrentRegion.SpecialCells(xlVisible).Copy Sheets("sheet2").Range("a1")
End With
End Sub
後は、シート2を印刷するコードを付け加えてください。

0 hits

【46600】オートフィルタで抽出したデータの印刷について VBA初心者 07/2/7(水) 19:33 質問
【46601】Re:オートフィルタで抽出したデータの印刷... Pipop 07/2/7(水) 19:50 発言
【46603】Re:オートフィルタで抽出したデータの印刷... VBA初心者 07/2/7(水) 20:19 質問
【46604】Re:オートフィルタで抽出したデータの印刷... Pipop 07/2/7(水) 21:11 発言
【46613】Re:オートフィルタで抽出したデータの印刷... VBA初心者 07/2/8(木) 8:26 お礼

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