Excel VBA質問箱 IV

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

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


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

10937 / 76807

←次へ　｜　前へ→


	【71415】Re:日付の検索

AoYasu - 12/3/1(木) 10:49 -


	引用なし

	パスワード

▼kanabun さん：
　　ご解答ありがとうございます
　　すいません　基本的なことが解っていないようです

　　抽出範囲 Ran の先頭行は以下のようにしました　

　　Set Ran = sht3.Range("B" & Mgyou).CurrentRegion
　　Set Ran = Intersect(Ran, Ran.Offset(, 1))
　　Ran.AdvancedFilter Action:=xlFilterCopy, _
　　CriteriaRange:=sht2.Range("B" & Mgyou & ":" & "M" & Mgyou1), _
　　CopyToRange:=sht1.Range("B" & WriteGyou), Unique:=False

　　抽出条件表

　　納入日　　場所　　納入先　　受注日　金額　-----見出し
　　　　　　　　　　　　　　　　2月9日　　　　　----2行目

　　>>2行目は日付シリアル値（日付文字列ではだめです）
　　　　2月9日となっています　これは日付文字列と云うことでしょうか
　　　　日付シリアル値にするには　2行目のセルの文字設定で”標準"
　　　　に設定しておかないとダメでしょうか
　　　　2月9日の日付シリアル値40948になるようにするのでしょうか

　　>>2行目に書く日付けは日付であれば
　　　セルの表示形式がどのようなものでも構いません。文字列ではだめです

　　　　2/9で入力していますが　2行目には（2月9日）上記のようになります
　　　　2行目のセル位置を書式設定を見ますと"ユーザー定義" "mm月dd日"
　　　　なっています
　　よろしくお願いします

2 hits

▼

【71412】日付の検索 AoYasu 12/3/1(木) 8:58