Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10858 / 76734

←次へ　｜　前へ→


	【71421】Re:日付の検索

kanabun - 12/3/1(木) 13:00 -


	引用なし

	パスワード

▼AoYasu さん： >数式バーには2007/2/9となっていましたそれなら、データのほうは問題ないようですね抽出条件範囲 CriteriaRange の 1行目を「受注日」 2行目を抽出したい日付「2007/2/9」とすれば抽出できると思います。問題は TextBoxに "2/9" と入力しただけで、それを抽出条件範囲にコピーしただけでは今年の2/9 （2012/2/9 ）になっちゃうので、年をどう補って 2007/2/9 とするか、ですね？抽出条件範囲が Sht2の [B1:B2] だとすると、　　Sht2.[B1].Value = Ran.Cells(1, 4).Value 　　Sht2.[B2].Value = CDate(Year(Ran.Cells(2,4).Value) & "/" & _ 　　　　　　　　　　　　　　　　　 TextBox受注日.Text) のようにして、うまく年号を付加することができればいいけど？