Excel VBA質問箱 IV

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

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


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

9214 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

▼

【28381】日付から検索 雨男 05/9/5(月) 0:04

【28382】Re:日付から検索 MOON 05/9/5(月) 0:15

【28383】Re:日付から検索 雨男 05/9/5(月) 0:26

【28384】Re:日付から検索 awu 05/9/5(月) 0:55

【28385】Re:日付から検索 雨男 05/9/5(月) 1:05

【28386】Re:日付から検索 MOON 05/9/5(月) 1:11

【28391】Re:日付から検索 awu 05/9/5(月) 12:03

【28410】Re:日付から検索 Komo 05/9/5(月) 22:56

【28485】Re:日付から検索 awu 05/9/7(水) 19:34

【28387】Re:日付から検索 Statis 05/9/5(月) 9:35

【28411】Re:日付から検索 ponpon 05/9/5(月) 23:47

【28421】Re:日付から検索 Jaka 05/9/6(火) 12:19

【28422】Re:日付から検索 ponpon 05/9/6(火) 12:48

【28661】EXCEL2000SR1のバグ？仕様とはとても思えな... Jaka 05/9/12(月) 9:55

【28691】Re:EXCEL2000SR1のバグ？仕様とはとても思... ponpon 05/9/13(火) 0:17


	【28381】日付から検索

雨男 - 05/9/5(月) 0:04 -


	引用なし

	パスワード

初めて質問させてもらいます。

Ａ列に商品名
Ｂ列に日付

当日の日付からＢ列を検索し、オートフィルタで抽出する。
いろいろ試しては見たのですが、うまくいきません。

初心者なもので宜しくお願いします。


	【28382】Re:日付から検索

MOON - 05/9/5(月) 0:15 -


	引用なし

	パスワード

▼雨男さん：
もう少し具体的に、どんなことを試して、
どのようにうまくいかないのか、
また、どこまでなら出来ているのかなどを
説明してもらえると回答しやすいのですが･･･。


	【28383】Re:日付から検索

雨男 - 05/9/5(月) 0:26 -


	引用なし

	パスワード

▼MOON さん：
>▼雨男さん：
>もう少し具体的に、どんなことを試して、
>どのようにうまくいかないのか、
>また、どこまでなら出来ているのかなどを
>説明してもらえると回答しやすいのですが･･･。

早速の返信ありがとうございます。
すみません、説明が足りなくて・・・

Range("A1").AutoFilter Field:=2, Criteria1:=Range("Ｃ1")
で当日の商品を取得して確認する、といった感じです。
（Ａ列に”商品名”　Ｂ列に”日付”を入力）

本日の日付の設定がおかしいのかな、と思っています。
1.C1セルには"=today"で本日の日付を設定。
2.Range("C1") = Date　
と試してみましたが、うまくいきませんでした。

以上ですが、アドバイスお願いします。


	【28384】Re:日付から検索

awu - 05/9/5(月) 0:55 -


	引用なし

	パスワード

Range("A1").AutoFilter Field:=2, Criteria1:=Range("C1").Value

Valueプロパティを省略しないようにしましょう。
これで、どうですか。


	【28385】Re:日付から検索

雨男 - 05/9/5(月) 1:05 -


	引用なし

	パスワード

▼awu さん：
>Range("A1").AutoFilter Field:=2, Criteria1:=Range("C1").Value
>
>Valueプロパティを省略しないようにしましょう。
>これで、どうですか。

aweさん、ありがとうございます。
試してみましたが、だめでした・・・
他にもあれば教えてください。


	【28386】Re:日付から検索

MOON - 05/9/5(月) 1:11 -


	引用なし

	パスワード

▼雨男さん：
日付が対象だと、普通にやってもうまくいかないみたいですね。
こんな感じでやると出来るみたいです。

Sub test()
Columns(2).NumberFormatLocal = "m月d日"
Range("C1").NumberFormatLocal = "m月d日"
Range("A1").AutoFilter Field:=2, _
Criteria1:=Format(Range("C1").Value, "m月d日")
End Sub


	【28387】Re:日付から検索

Statis - 05/9/5(月) 9:35 -


	引用なし

	パスワード

こんにちは

こんな感じで如何かな？

Range("A1").AutoFilter Field:=2, _
　 Criteria1:=Format(Range("C1").Value, Range("B2").NumberFormat)


	【28391】Re:日付から検索

awu - 05/9/5(月) 12:03 -


	引用なし

	パスワード

▼雨男さん： >▼awu さん： >>Range("A1").AutoFilter Field:=2, Criteria1:=Range("C1").Value >> >>Valueプロパティを省略しないようにしましょう。 >>これで、どうですか。 > >aweさん、ありがとうございます。 >試してみましたが、だめでした・・・ >他にもあれば教えてください。当方は、Win XP と Excel2003 SP1 を使っていますが、ちゃんと動作しますよ。念のため、お使いのOS とExcelのバージョンは、何ですか?。こちらでは、.Value が無ければ何も抽出されませんが・・・「だめでした・・・」とは、どうなることなのでしょうか? あと、 Range("A1").AutoFilter とA1を指定していますので・１行目が、「列見出し」になっていますか? 　　セルA1から連続したセル範囲にデータがあることが必要です。　　つまり、セル A2、B1、B2 が、空きになっているとだめです。　ちなみに、B列だけにフイルタを掛けるのであれば、　 Range("B:B").AutoFilter Field:=1, Criteria1:=Range("C1").Value ・ B列のデータおよびC1は、日付形式になっておりますか? 　もし、セルC1が、文字列形式で、年月日を入力していた場合は、　Range("A1").AutoFilter Field:=2, Criteria1:=DateValue(Range("C1").Text) 　のようになりますが・・・　


	【28410】Re:日付から検索

Komo - 05/9/5(月) 22:56 -


	引用なし

	パスワード

▼awu さん：
Range("A1").AutoFilter Field:=2, Criteria1:=Range("C1").Value

Valueプロパティの省略と関係がありませんでした。98やMEでは、この現象が
出てきません。

･･･多分MEか98で2000で試しましたが、オートフィルターが上手く働かないです。
フィルターをかけたところが全て何も無しの状態になります。

日付の処理は一工夫が必要な感じです。
Range("A3").AutoFilter Field:=2, _
　 Criteria1:=Format(Range("C1").Value, Range("B4").NumberFormat)
のコードが分かりやすように思います。このコードですと、正しくフィルターが
かかります。

>こちらでは、.Value が無ければ何も抽出されませんが・・・
ME,89ともにValueのあるなしはこのコードに関しては影響が出ません。

>「だめでした・・・」とは、どうなることなのでしょうか?
オートフィルターがかからず、全てフィルラターの中に隠れて、一切文字が
隠れた状態になっていると思います。
>
>あと、 Range("A1").AutoFilter とA1を指定していますので
>
>・１行目が、「列見出し」になっていますか?
>　　セルA1から連続したセル範囲にデータがあることが必要です。
>　　つまり、セル A2、B1、B2 が、空きになっているとだめです。
ハイ。その通りですね。

>　ちなみに、B列だけにフイルタを掛けるのであれば、
>　 Range("B:B").AutoFilter Field:=1, Criteria1:=Range("C1").Value

これも同じ結果です。（正しい結果が得られません。）

>
>・ B列のデータおよびC1は、日付形式になっておりますか?
>
>　もし、セルC1が、文字列形式で、年月日を入力していた場合は、
>
>　Range("A1").AutoFilter Field:=2, Criteria1:=DateValue(Range("C1").Text)
>
>　のようになりますが・・・
>
>


	【28411】Re:日付から検索

ponpon - 05/9/5(月) 23:47 -


	引用なし

	パスワード

こんばんは。
もうすぐ台風がやってきます。
今度のはとても大きいので心配です。

○月×日、m/d、yyyy/mm/dd、mm/dd/yyyy、yyyy年mm月dd日・・・

いろいろ試しましたが、
B列の表示形式と、Criteria1:=Range("C1").Valueの表示形式が同じでないと
抽出できないみたいですね。
雨男さんが、B列にどのような形で入力しているのかが分からないので、

>Range("A1").AutoFilter Field:=2, _
>　 Criteria1:=Format(Range("C1").Value, Range("B2").NumberFormat)

のように表示形式を合わせてやらないと無理なようです。

今回のことでいろいろ勉強になりました。


	【28421】Re:日付から検索

Jaka - 05/9/6(火) 12:19 -


	引用なし

	パスワード

表示形式が日本形式になってませんか？
特にA列のフィルタ対象セルの方。（C1も場合によっては）
H17.9.1
平成17年9月6日
2005年9月6日

どんな表示形式にでも対応させたかったら、こうしてください。
Range("A1").AutoFilter Field:=2, Criteria1:=">=" & Range("C1").Value, _
　　　　　　Operator:=xlAnd, Criteria2:="<=" & Range("C1").Value

気づかないで見てないのか、無視しているのか解んないけど....。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=102;id=FAQ


	【28422】Re:日付から検索

ponpon - 05/9/6(火) 12:48 -


	引用なし

	パスワード

こんにちは。
台風が真上にいます。まだ、停電になってないので

>'１日分の抽出でもxlAndで、２つ指定する。
>　Range("A1:A" & ALast).AutoFilter Field:=1, Criteria1:=">=" & 年月日, _
>　Operator:=xlAnd, Criteria2:="<=" & 年月日

２つ指定すると、どんな表示形式にも対応するんだ。w('o')w ｵｵｰ!!

ちゃんと、目安箱チェックすればよかった。


	【28485】Re:日付から検索

awu - 05/9/7(水) 19:34 -


	引用なし

	パスワード

あれっ!　何か変ですね。　Komaさんと質問者の雨男さんは、同じ方ですか? >>「だめでした・・・」とは、どうなることなのでしょうか? > オートフィルターがかからず、全てフィルラターの中に隠れて、一切文字が > 隠れた状態になっていると思います。ちょっと表現が、変ですね。フィルターが、掛かっている状態では? > Range("A3").AutoFilter Field:=2, _ >　 Criteria1:=Format(Range("C1").Value, Range("B4").NumberFormat) > のコードが分かりやすように思います。このコードですと、正しくフィルターが > かかります。何でA3なの?　まぁ、いいけど・・・それにFormat関数は、内部処理形式 String の Variantになりますので、B列が日付形式になっていないのでは?? 他のセルの NumberFormat を使うということは、形式があっていないのでは?? 肝心のB列データが、日付形式になっているかについて応えていませんが・・・新しいブックの任意のシートでシート名タブを右クリックして、「コードの表示」で開いたコードウィンドに次のコードを貼り付けて実行してみてください。今日の日付だけ抽出されませんか？ Sub test() Dim Rw As Long ActiveSheet.AutoFilterMode = False Cells.Delete Range("A1:B1").Value = Array("商品名", "日付") For Rw = 2 To 12 　　Cells(Rw, 1).Value = Chr(63 + Rw) 　　Cells(Rw, 2).Value = Date - 5 + Rw Next Rw Range("C1").Value = Date Range("A1").AutoFilter Field:=2, Criteria1:=Range("C1").Value 'Range("A1").AutoFilter Field:=2, Criteria1:=Date '　こちらでもいいけど End Sub


	【28661】EXCEL2000SR1のバグ？仕様とはとても思え...

Jaka - 05/9/12(月) 9:55 -


	引用なし

	パスワード

一昨日、2000SR1で試してたら、抽出値が日付の場合セルを参照すると動かない事がわかりました。
これはもうバグとしか思えませんね！仕様とはとても思えない。
ノーマル2000やSR2、3などは出来るのかもしれませんが....。
EXCEL2000ってほんとにバグが多いですね！

97　OK、2000SR1 NG
Range("A1").AutoFilter Field:=2, Criteria1:=">=" & Range("C1").Value, _
　　　　　　Operator:=xlAnd, Criteria2:="<=" & Range("C1").Value

2000SR1だと、いちいち文字にしないとだめ。
97　OK、2000SR1 OK
Range("A1").AutoFilter Field:=2, Criteria1:=">=" & Format(Range("C1").Value, "yyyy/mm/dd"), _
　　　　　　Operator:=xlAnd, Criteria2:="<=" & Format(Range("C1").Value, "yyyy/mm/dd")


	【28691】Re:EXCEL2000SR1のバグ？仕様とはとても...

ponpon - 05/9/13(火) 0:17 -


	引用なし

	パスワード

こんばんは。
試してみました。

Sub test2()
　　Range("A1").AutoFilter Field:=2, Criteria1:=">=" & Range("C1").Value, _
　　　　　　Operator:=xlAnd, Criteria2:="<=" & Range("C1").Value
End Sub

WIN98　Excel2000SP3
だめでした。

WIN2000　Excel2002
OKです。

WIN XP　Excel2003
OKです。

報告終わり。


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

9214 / 13644 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free