Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9493 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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と設定）
ＴＶ　　2005/07/01
カメラ　2005/07/02
ビデオ　2005/07/01
ＴＶ　　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

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

教えていただいたコードで試してみます！
ありがとうございました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9493 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free