Excel VBA質問箱 IV

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

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


9491 / 13644 ツリー ←次へ | 前へ→

【27003】フォームのコンボボックスの値 cina 05/7/26(火) 12:17 発言[未読]
【27004】Re:フォームのコンボボックスの値 かみちゃん 05/7/26(火) 12:54 回答[未読]
【27006】Re:フォームのコンボボックスの値 Jaka 05/7/26(火) 13:31 回答[未読]
【27036】Re:フォームのコンボボックスの値 cina 05/7/26(火) 23:08 お礼[未読]

【27003】フォームのコンボボックスの値
発言  cina  - 05/7/26(火) 12:17 -

引用なし
パスワード
   コンボボックスの値と一致したものを抽出したいのですが
どうしたらよいでしょうか?

sheet1
商品  日付(ユーザー定義でyyyy/mm/ddと設定)
TV  2005/07/01
カメラ 2005/07/02
ビデオ 2005/07/01
TV  2005/07/01
冷蔵庫 2005/07/02

sheet2(コンボボックスのリストに使用:全日付を表示させる)
日付
2005/07/01
2005/07/02
2005/07/03
2005/07/04
2005/07/05
2005/07/06

コンボボックスで2005/07/01を選択して
2005/07/01と一致した行を抽出したいのです。
この場合1、3、4を抽出したい。
コンボボックスの値を取得して一致したものを取得する
マクロを教えて下さい。

【27004】Re:フォームのコンボボックスの値
回答  かみちゃん  - 05/7/26(火) 12:54 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>コンボボックスで2005/07/01を選択して
>2005/07/01と一致した行を抽出したいのです。

オートフィルタの「マクロの記録」はできますか?
あとは、それを修正するといいです。
ちなみに下記のような感じでできるかと思います。

Private Sub ComboBox1_Change()
 Sheets("Sheet1").Select
 Range("A2").Select
 Selection.AutoFilter
 Selection.AutoFilter Field:=2, Criteria1:=DateValue(Format(Me.ComboBox1.Value, "yyyy/m/d"))
End Sub

※ご質問を投稿される場合は「発言」ではなく、「質問」を選択しましょう。

【27006】Re:フォームのコンボボックスの値
回答  Jaka  - 05/7/26(火) 13:31 -

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

どこにあるどんなコンボボックスなのか解りませんが、
日付の抽出だったら、↓見てね。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=102;id=FAQ

【27036】Re:フォームのコンボボックスの値
お礼  cina  - 05/7/26(火) 23:08 -

引用なし
パスワード
   すみません、初投稿で投稿した後に発言になっていることに
気づきましたm(__)m

>オートフィルタの「マクロの記録」はできますか?
やったことがないのでわからないのですが・・・。

教えていただいたコードで試してみます!
ありがとうございました!

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