Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11502 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【15526】ＶＢＡを使わなくてもいいのかもしれませんが。 mini 04/6/28(月) 15:14 質問[未読]
【15527】Re:ＶＢＡを使わなくてもいいのかもしれま... Asaki 04/6/28(月) 15:24 回答[未読]
【15579】Re:ＶＢＡを使わなくてもいいのかもしれま... mini 04/6/30(水) 9:46 質問[未読]
【15591】Re:ＶＢＡを使わなくてもいいのかもしれま... Asaki 04/6/30(水) 10:47 回答[未読]
【15753】Re:ＶＢＡを使わなくてもいいのかもしれま... mini 04/7/5(月) 21:56 お礼[未読]
【15533】Re:ＶＢＡを使わなくてもいいのかもしれま... kein 04/6/28(月) 16:51 回答[未読]
【15580】Re:ＶＢＡを使わなくてもいいのかもしれま... mini 04/6/30(水) 9:49 質問[未読]
【15620】Re:ＶＢＡを使わなくてもいいのかもしれま... kein 04/6/30(水) 16:46 回答[未読]
【15754】Re:ＶＢＡを使わなくてもいいのかもしれま... mini 04/7/5(月) 21:59 お礼[未読]
【15526】ＶＢＡを使わなくてもいいのかもしれませ...
質問  mini E-MAIL  - 04/6/28(月) 15:14 -
引用なし
パスワード
   こんにちは。
何かいい方法があれば、アドバイス下さい！

品番　　｜発注数
Ａ−１　｜
Ａ−２　｜　10
Ｂ−１　｜　２
Ｂ−２　｜
Ｂ−３　｜　１
Ｃ−１　｜

という感じで品番・発注数のみを入力するシート”発注シート”
がありまして、そのシートには品番が２００個位あります。

その中で、発注数のある品番だけを違うシート”発注リスト”に
リストＵＰしたいのですが、何かいい方法はありますか？

↓イメージする”発注リスト”に出てきてほしいリスト

品番　　｜発注数
Ａ−２　｜　10
Ｂ−１　｜　２
Ｂ−３　｜　１

すいませんが、宜しくお願いします。
【15527】Re:ＶＢＡを使わなくてもいいのかもしれ...
回答  Asaki  - 04/6/28(月) 15:24 -
引用なし
パスワード
   こんにちは。

抽出条件をセルに設定する必要がありますが、フィルタオプションではいかがでしょうか？
発注数の条件は
<>
【15533】Re:ＶＢＡを使わなくてもいいのかもしれ...
回答  kein  - 04/6/28(月) 16:51 -
引用なし
パスワード
   こんなのでいいかも ?

Sub Test()
　 With Sheets("発注シート")
　　　If WorksheetFunction.Count(.Range("B:B")) = 1 Then
　　　　 MsgBox "発注件数はゼロです", 64: Exit Sub
　　　End If
　　　Sheets("発注リスト").Rows("2:65536").ClearContents
　　　.Range("B2", .Range("B65536").End(xlUp)).SpecialCells(2) _
　　　.EntireRow.Copy Sheets("発注リスト").Range("A2")
　 End With
　 With Sheets("発注リスト")
　　　.Range("A2", .Range("A2").End(xlDown)).Offset(, 2) _
　　　.Resize(, 254).ClearContents
　 End With
End Sub
　　　
【15579】Re:ＶＢＡを使わなくてもいいのかもしれ...
質問  mini E-MAIL  - 04/6/30(水) 9:46 -
引用なし
パスワード
   Asaki さんへ

お返事遅くなり、申し訳ありません。
アドバイス、有難う御座いました。フィルタオプション
の機能を知りませんでしたので、今日までいろいろやって
いました。

で、もう一つ質問なんですが、フィルタオプション機能を
使って注文のあるリストを抽出したとします。
それをプリントアウトして、またフィルタを解除するまで
をどう設定したらいいでしょうか？

イメージとしましては、
１．発注数に数量を入力
２．発注数のある品番のみリストアップ
３．印刷するためにプレビューを表示

（３．で確認してＯＫなら）
４．印刷
５．フィルタを解除

（３．でだめなら）
４．１．に戻る

というものです。
何度もすいませんが、宜しく御願いします。
【15580】Re:ＶＢＡを使わなくてもいいのかもしれ...
質問  mini E-MAIL  - 04/6/30(水) 9:49 -
引用なし
パスワード
   kein さんへ

こんにちは。
keinさんへもお返事遅くなり、申し訳ありません。
アドバイス、有難う御座いました。

もう一つ質問なんですが、注文のあるリストを抽出した後、
それをプリントアウトして、またフィルタを解除するまで
をどう設定したらいいでしょうか？

イメージとしましては、
１．発注数に数量を入力
２．発注数のある品番のみリストアップ
３．印刷するためにプレビューを表示

（３．で確認してＯＫなら）
４．印刷
５．フィルタを解除

（３．でだめなら）
４．１．に戻る

というものです。
何度もすいませんが、宜しく御願いします。
【15591】Re:ＶＢＡを使わなくてもいいのかもしれ...
回答  Asaki  - 04/6/30(水) 10:47 -
引用なし
パスワード
   --> 手作業
１．発注数に数量を入力
--> 以下、マクロ
２．発注数のある品番のみリストアップ
３．印刷するためにプレビューを表示
５．発注シートに戻る
　 (フィルタオプションの場合は、解除不要)

とするとして、印刷する場合は、プレビューの画面の印刷ボタンを押してもらうことにすればよいのではないかと思います。
マクロにする部分は、記録してみてください。
【15620】Re:ＶＢＡを使わなくてもいいのかもしれ...
回答  kein  - 04/6/30(水) 16:46 -
引用なし
パスワード
   数量を入力するたびにイベントで処理するというのは、逆に煩わしいでしょう。
普通のマクロにして、任意のタイミングでやるとして

Sub MyPrint()
　 Dim Ans As Integer

　 Range("B:B").AutoFilter 1, "<>"
　 On Error Resume Next
　 With ActiveSheet
　　　.PrintPreview
　　　Ans = MsgBox("印刷しますか", 36)
　　　If Ans = 6 Then
　　　　 .PrintOut
　　　End If
　　　.AutoFilterMode = False
　 End With
End Sub

ぐらいで充分かと思います。
【15753】Re:ＶＢＡを使わなくてもいいのかもしれ...
お礼  mini E-MAIL  - 04/7/5(月) 21:56 -
引用なし
パスワード
   Asaki さんへ

こんばんは。
今回も素早いアドバイスありがとうございました。

アドバイス戴いた方法で今日まで色々やってみまして、
自分の思うように作る事が出来ました。

お礼が大変遅くなってしまい、本当に失礼しました。
相談できる方がいませんでしたので、心より感謝しています。

ありがとうございました。

miniより
【15754】Re:ＶＢＡを使わなくてもいいのかもしれ...
お礼  mini E-MAIL  - 04/7/5(月) 21:59 -
引用なし
パスワード
   kein さんへ

こんばんは。
keinさんも毎回早いアドバイスありがとうございました。

アドバイス戴いた方法で今日まで色々やってみまして、
自分の思うように作る事が出来ました。

お礼が大変遅くなってしまい、本当に失礼しました。
相談できる方がいませんでしたので、心より感謝しています。

ありがとうございました。

miniより
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11502 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free