Excel VBA質問箱 IV

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

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


11502 / 13645 ツリー ←次へ | 前へ→

【15526】VBAを使わなくてもいいのかもしれませんが。 mini 04/6/28(月) 15:14 質問[未読]
【15527】Re:VBAを使わなくてもいいのかもしれま... Asaki 04/6/28(月) 15:24 回答[未読]
【15579】Re:VBAを使わなくてもいいのかもしれま... mini 04/6/30(水) 9:46 質問[未読]
【15591】Re:VBAを使わなくてもいいのかもしれま... Asaki 04/6/30(水) 10:47 回答[未読]
【15753】Re:VBAを使わなくてもいいのかもしれま... mini 04/7/5(月) 21:56 お礼[未読]
【15533】Re:VBAを使わなくてもいいのかもしれま... kein 04/6/28(月) 16:51 回答[未読]
【15580】Re:VBAを使わなくてもいいのかもしれま... mini 04/6/30(水) 9:49 質問[未読]
【15620】Re:VBAを使わなくてもいいのかもしれま... kein 04/6/30(水) 16:46 回答[未読]
【15754】Re:VBAを使わなくてもいいのかもしれま... mini 04/7/5(月) 21:59 お礼[未読]

【15526】VBAを使わなくてもいいのかもしれませ...
質問  mini E-MAIL  - 04/6/28(月) 15:14 -

引用なし
パスワード
   こんにちは。
何かいい方法があれば、アドバイス下さい!

品番  |発注数
A−1 |
A−2 | 10
B−1 | 2
B−2 |
B−3 | 1
C−1 |

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

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

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

品番  |発注数
A−2 | 10
B−1 | 2
B−3 | 1

すいませんが、宜しくお願いします。

【15527】Re:VBAを使わなくてもいいのかもしれ...
回答  Asaki  - 04/6/28(月) 15:24 -

引用なし
パスワード
   こんにちは。

抽出条件をセルに設定する必要がありますが、フィルタオプションではいかがでしょうか?
発注数の条件は
<>

【15533】Re:VBAを使わなくてもいいのかもしれ...
回答  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:VBAを使わなくてもいいのかもしれ...
質問  mini E-MAIL  - 04/6/30(水) 9:46 -

引用なし
パスワード
   Asaki さんへ

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

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

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

(3.で確認してOKなら)
4.印刷
5.フィルタを解除

(3.でだめなら)
4.1.に戻る

というものです。
何度もすいませんが、宜しく御願いします。

【15580】Re:VBAを使わなくてもいいのかもしれ...
質問  mini E-MAIL  - 04/6/30(水) 9:49 -

引用なし
パスワード
   kein さんへ

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

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

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

(3.で確認してOKなら)
4.印刷
5.フィルタを解除

(3.でだめなら)
4.1.に戻る

というものです。
何度もすいませんが、宜しく御願いします。

【15591】Re:VBAを使わなくてもいいのかもしれ...
回答  Asaki  - 04/6/30(水) 10:47 -

引用なし
パスワード
   --> 手作業
1.発注数に数量を入力
--> 以下、マクロ
2.発注数のある品番のみリストアップ
3.印刷するためにプレビューを表示
5.発注シートに戻る
  (フィルタオプションの場合は、解除不要)

とするとして、印刷する場合は、プレビューの画面の印刷ボタンを押してもらうことにすればよいのではないかと思います。
マクロにする部分は、記録してみてください。

【15620】Re:VBAを使わなくてもいいのかもしれ...
回答  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:VBAを使わなくてもいいのかもしれ...
お礼  mini E-MAIL  - 04/7/5(月) 21:56 -

引用なし
パスワード
   Asaki さんへ

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

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

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

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

miniより

【15754】Re:VBAを使わなくてもいいのかもしれ...
お礼  mini E-MAIL  - 04/7/5(月) 21:59 -

引用なし
パスワード
   kein さんへ

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

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

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

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

miniより

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