エクセルの学校：全文検索：Hyper Estraier：シリアル値とは

Results of 1 - 1 of about 779 for シリアル値とは (0.008 sec.)

シリアル値 (1874), とは (29339)

[[20040105195022]]: #score: 8289; @digest: 67cafee8ba7e001e9f756b0b41103044; @id: 4620; @mdate: 2004-01-11T05:42:49Z; @size: 13943; @type: text/plain; #keywords: hsheet (60471), mydate (24961), がyy (19389), 分書 (15640), criteria1 (13946), mysheet (11887), 配分 (11056), シス (9879), 格納 (7731), テム (7498), 自宅 (6687), ramrun (6025), 納さ (5753), 示形 (5441), yyyy (5310), ステ (5286), ルタ (4979), マシ (4484), 言語 (4217), フィ (4171), トデ (4081), ィル (3967), シリ (3854), 形式 (3848), 2004 (3757), 地域 (3706), kamiya (3537), に格 (3066), 比較 (2549), テス (2463), ル値 (2443), アル (2399); 『VBA:Autofilterメソッドの引数Criteria』（KAMIYA）
こんにちは。今回は表題の件でどうにもわからない現象があるので相談させていただきます。お願いします。まず、コードを提示します。（関係部分だけ抜粋） Sub ピッキングリスト作成V1() Dim MYSHEET As Worksheet Dim HSHEET As Worksheet Dim MYDATE As Date Set MYSHEET = Worksheets("RECORD") Set HSHEET = Worksheets("配分書") MYDATE = HSHEET.Range("B2").Value MYSHEET.Cells.AutoFilter Field:=2, Criteria1:=MYDATE '------ '以下略 '------ End Sub RECORDシートはおおむね次のようになっています。 A B C ID 日付店舗以下注文情報配分書シートはRECORDシートからリストを抽出するために用意したシートで、 B2に特定日付のリストを作成するための日付が入るようになっています。つまり、RECORDシートのB列（シリアル日付）について配分書シートのB2の値（シリアル日付）でフィルタをかけるのが意図です。さて、本題ですが、上記のコードが動かないという話ではありません。自宅(Win XP/Excel2000SR1)で作った上記コードはちゃんと機能しました。が、会社(Win98/Excel2000SR1)で同じテストデータで上記を実行するとフィルタ後のデータがなし、つまりレコード全てが非表示になってしまいます。試行錯誤の結果、会社の環境では下記のように変更することで動作することがわかりました。 Sub ピッキングリスト作成V2() Dim MYSHEET As Worksheet Dim HSHEET As Worksheet Dim MYDATE As String'←【Dateより変更】 Set MYSHEET = Worksheets("RECORD") Set HSHEET = Worksheets("配分書") MYDATE = Format(HSHEET.Range("B2").Value, "yyyy/mm/dd") '↑【MYDATE = HSHEET.Range("B2").Valueより変更】 MYSHEET.Cells.AutoFilter Field:=2, Criteria1:=MYDATE '------ '以下略 '------ End Sub が、今度は自宅では「ピッキングリスト作成V2」が逆にうまくフィルタがかからなくなってしまいました。会社でだけ使用するので実用上問題はありませんが、「このような現象がおきる原因」「この現象を解消する対策」をご存知でしたらお教え願いたいと思います。 ---- テストデータが同一だという前提だと、XPと98という違いしか目に付かない。 XPと98の違いでなにか原因がないかというように誘導されているようにも思えますけど、実際、テストデータは同じなんですか? 自宅で入力、テストしたものを、会社にFDとかで持っていって試したらダメだったってこと? それとも自宅は自宅でテストデータを入力し、会社は会社で同じようなテストデータを入力して試したらダメだったってこと? もし前者なら、デバッグでMYDATEに取得したデータを自宅と会社で比較して見てみたいところですけど... オートフィルタは表示形式に影響されるけど、そのへんはどうなんでしょう? （ramrun） ↓は97、2000でも同様です。 [XL2002] 表示形式に年号データが入っていないとオートフィルタオプションの結果が不正 http://support.microsoft.com/default.aspx?scid=kb;ja;405324&Product=xlw2kINT ---- ramrunさん、いつもお世話になっています。お手数おかけします。将来的に複数のマシンで使う可能性もあり、マシンによってコードが違うなんてことがないように念のため相談させてもらいました。テストデータも含めてファイルはまったくの同一状態でした。フィルタをかける側の表示形式は「yyyy/mm/dd」です。 MYDATEに格納した日付データは（自動データヒントで確認）当初、自宅→「2004/01/10」会社→「04/01/10」と表示され、 Windowsのシステム日付表示形式の違いであると推測し「yy/MM/dd」→「yyyy/MM/dd」へ修正しリトライしましたが結果は同じでした。なによりも、同じデータ、同じファイル、同じExcelヴァージョンにもかかわらず、 Date型変数で動いていたものがString型変数にしないと所期の動作を果たさないというのがなんとも不思議なところです。こうなるとOSとアプリの「相性」も「疑わしい」のであえてOSも記載しました。オートフィルタの動作をマクロで記録しても、同じ動作を期待できないという話は聞いたことはあるので、オートフィルタそのものがあまり安定していない機能なのかもしれません。幸い自宅のマシンはノートなので変数の格納状況やセルデータとの比較。 Variant型で格納したらどうなるか。なんかも一応やってみます。もし結果がでたらこちらからも報告するようにします。ありがとうございました。 (KAMIYA) ---- XPと98では、日付でフィルタすると結果が異なることがあります。同じブックを使ってもXPでは抽出できても、98で抽出できないといった現象がありました。非常に困った現象です・・・ (INA) ---- そうなんだ。でも、そうだとするとVBAだから変な動作〜ではなく、まさにOSの仕様ということになるね。コントロールパネルの[地域と言語]の設定で、日付を定義するところがあるけど XPと98で、そこの違いはありませんか? （ramrun）一休み〜 ---- ramrunさんありがとうございます。自宅に帰ったら確認してみます。 (INA) ---- ramrunさん、INAさん、いろいろヒントありがとうございます。最終的には書きのようなコードにすることでWinXP、Win2K、Win98の各OSで所期の動作をするようになりました。 Sub ピッキングリスト作成V3() Dim MYSHEET As Worksheet Dim HSHEET As Worksheet Dim MYDATE As Date Set MYSHEET = Worksheets("RECORD") Set HSHEET = Worksheets("配分書") MYDATE = HSHEET.Range("B2").Value MYSHEET.Cells.AutoFilter Field:=2, Criteria1:="=" & MYDATE '------ '以下略 '------ End Sub 98で[地域と言語]の設定がyy/MM/ddではうまく働きませんでした。また、ramrunさんの表示形式のヒントでフィルタをかける列の表示形式を調べたところ、（間抜けな話ですが）yyyy/m/dとyyyy/mm/ddが混在していました。つまり、XPの場合はその状態でもフィルタが利いていたことになります。結果をまとめてみます。 -Date型のデータを変数格納時は[地域と言語]の設定との整合性をとる -98ではDate型の変数でのフィルタはうまく働かない -比較演算子を含めた文字列でのフィルタはおおむね有効であるそれから、実際の動作を比較してみてフィルタ時にセルの日付データで 98では・・・「表示」をテキストと見てCriteria1と比較? そのためDate型ではうまくフィルタできない? XP、2K・・・「内容」をシリアル値と見てCriteria1と比較 Criteria1がString型の場合はシリアル値と厳密に区別ただし比較演算子のついた日付文字列ならシリアル値の比較として処理 Criteria1がDate型なら表示形式に関係なくシリアル値同士として比較と、以上のことが推測できそうです。 OSによって動作が異なるとは思っていなかったので、ちょっと慌ててしまいましたが、おかげさまでなんとか格好のつくものができそうです。お付き合いいただいたramrunさん、INAさんありがとうございました。 (もし、追加情報あればお願いします。) (KAMIYA) ---- 98の言語設定がXPと違っていました。後ほど、98の設定を直して試してみます。わたしも便乗して勉強になりました。みなさん、ありがとうございました。 (INA) ---- よく読むとKAMIYAさんがいってるWindowsシステムのって、地域と言語のところのことだったんですね。気づいてませんでした（汗）。結局、98がダメってことなのかな? XPではシステムがyyyy/MM/ddだと、MYDATEに取得したときに2004/01/10 システムがyy/MM/ddだと、MYDATEに取得したときに04/01/10 というように変化するのを確認したけど、 98では変化しないってことでいいのかな? それともMYDATEは変化するけど、検索結果は変わらなかったってことなのかな? ちなみに推測のXP、2Kがシリアル値としてみているなら、実際シリアル値を入れても大丈夫ということでいいの? ついでにVariant型はどうなったの? （ramrun） ---- ちょっと気になったんで、自分の環境、WinXPのExcel2000で確認しました。フィルタに使用するセルには 2004/1/10 と入力。こちらは1月10日と表示させておく。フィルタをかける表のほうは 2004/01/10 と表示するように表示形式を設定。 Date型の MYDATE を宣言し、Debug.Printで内容をチェック。システムが yyyy/MM/dd だと MYDATE には 2004/01/10 が格納される。システムが yy/MM/dd だと MYDATE には 04/01/10 が格納される。 Criteria1:=MYDATE すると、実際に Criteria1 に格納されるのはどちらも 1/10/2004 になる（m/d/yyyy）。 2004/01/10 と1/10/2004 を比較して、検索されなかった。つぎに MYDATE をString型に変更する。システムが yyyy/MM/dd だと MYDATE には 2004/01/10 が格納される。システムが yy/MM/dd だと MYDATE には 04/01/10 が格納される。ここまではいっしょ。 Criteria1:=MYDATE すると、実際に Criteria1 に格納されるのはシステムが yyyy/MM/dd の場合は 2004/01/10 システムが yy/MM/dd の場合は 04/01/10 ようはシステムの表示形式のままが Criteria1 に格納された。システムが yyyy/MM/dd の方は 2004/01/10 と 2004/01/10 で同一となり検索できた。ちなみにVariant型を使うとシリアル値になってしまい Criteria1:=MYDATE ではまったくダメだった。結果フィルタに使用するデータは1月10日と表示形式をしていたが、 MYDATEに格納されたときにはシステムの表示形式で格納される。これはDate型もString型も同じ。 Date型は Criteria1 に格納された時点でなぜか m/d/yyyy になる。 String型はシステムの表示形式のままが Criteria1 に格納される。そしてシステムの表示形式が yyyy/MM/dd で、フィルタをかける表の日付の表示形式も yyyy/mm/dd のときは検索できるがシステムをyy/MM/ddに変更すると検索できなくなる。 KAMIYAさんのDate型で Criteria1:="=" & MYDATE とする方法は String型で受けたときと同じ結果になった。ようはシステムをyy/MM/ddに変更すると検索できなくなる。うちのWinXPのExcel2000ではこんな感じでした。 KAMIYAさんとこと違うみたい... （ramrun） ---- ramrunさん、ありがとうございます。そうですね、ちょっと違うみたいですね。この件に関してはもう少し調べてみたいのですが、連休まで仕事のほうで手が離せないので、多少時間がかかります。それから、シリアル値とDate型データはよく考えると意味が違いますよね。取り違えていたみたいです。そこも踏まえてチェックします。フィルタの成功/不成功はフィルタの対象となる列の表示形式も影響しているようなので、そこら辺もじっくり。でも、システムの[地域と言語]設定は影響大きいみたいです。そういえば、98は2000年以前のリリース・・・なるほど、です。 (KAMIYA) ---- 一応、不完全ながらもテスト結果です。（Win2000のマシンがしばらくお出かけのためこちらはテストできませんでした。）変数に格納されている値がどうなるかよりも、実際にフィルタにかかるかどうかを中心にやってみました。下記結果一覧 http://ryusendo.no-ip.com/cgi-bin/upload/img/up0011.xls なお、表の「表示形式」はフィルタをかけるレコード側の表示形式です。が、納得いかないことに、ramrunさんの書いているように、最初に起こった現象（String型にしてXPで実行不可）が再現できません。他に設定を変更したかもしれませんが、ちょっと思い出せない。リンクファイルをご覧になるとわかりますが、 AutoFilterの引数Criteriaに日付を利用する時 String型の変数を利用したほうがOSの影響を受けにくいフィルタをかけるレコードの表示形式にかなり左右されるそして、意外なのはXPのDate型とVariant型の変数でフィルタをかける時で、システム日付と表示形式がまったくマッチしていなくても検索してくれている。 ???確かなんだろーか?書いているうちに自信なくなってきました。でも一番最初がこの状態[XP 表示形式yyyy/m/d Date型システム日付yyyy/MM/dd]なんで間違いないと思うのですが・・・。 (KAMIYA) ---- 同じこと確認してみました。うちのWinXP、Excel2000でも同様の結果です。うちのXPで、Date型、またはVariant型のmydateの場合、 mydateに格納される日付はシステムの表示形式ですが、 Criteria1:=mydateとしたときに、Criteria1にはm/d/yyyyの形式で 4/9/2004が格納されます。ようはDate型もしくはVariant型の変数を使用した場合、システムの表示形式が何であろうとCriteria1に格納されるのは m/d/yyyyでした。そして分かったことは、XPの場合 yyyy/m/d = m/d/yyyyとして処理されること。だから実際、Criteria1にはm/d/yyyyが格納されるがフィルタをかける表の日付がyyyy/m/dでもm/d/yyyyでも抽出できる。例外なのはこの表示形式だけで、ほかの例では yy/m/d ≠ m/d/yyのようになった。基本的に表示形式を文字列としてみて同一でないと抽出できないということで、 Criteria1に格納された文字列 = フィルタをかける表の日付の表示形式上の文字列ということのようです。 98のCriteria1がどうなるのかが気になりますが、あらかじめ表の日付列の表示形式を統一し、mydateをその表示形式にして Criteria1に渡してやれば、OSに依存しないフィルタがかけられると思います。（ramrun） Sub SampleMacro() Dim mydate As Date Dim myformat As Variant mydate = Range("h1").Value myformat = Range("b3").NumberFormat Range(Range("b3"), Range("b3").End(xlDown)).NumberFormat = Range ("b3").NumberFormat Selection.AutoFilter Field:=2, Criteria1:=Format(mydate, myformat) End Sub ---- 返答遅くなり申し訳ありません。連休前でばたばたしていて、書き込みがあったのに気がつきませんでした。 ramrunさん、改めての確認、ありがとうございます。実はこの二日間は98マシンが他のオペレーターに占領されていて、まとまった確認時間が取れなかったのです。が、表側と同じ表示形式での文字列で引数を渡せば双方での動作は間違いないようなので、ご指摘のとおり、「Criteria1には文字列で格納する」「MYDATEに格納した日付を表の表示形式に合わせた文字列で引数に渡す」「表の側の日付の表示形式をマクロで都度整形する」という方針でコード修正していきます。ところで、ramrunさんは＞Criteria1にはm/d/yyyyの形式で 4/9/2004が格納されます。これはどのように確認してるのでしょう。 Debug.Print でCriteria1を指定してもイミディエイトには空白しか返ってこないし・・・やり方が悪いのでしょうか。それとも他の方法が? お手を煩わせついでに教えていただけないでしょうか。 (KAMIYA) ---- 失礼しました。なんだかDebug.PrintでCriteria1を確認したように文章から読み取れますね（汗）。 Criteria1はまずマクロでフィルタをかけた後に実際にオートフィルタでフィルタがかかった状態になるわけですが、そこでオートフィルタのオプションを確認すると設定されているデータが m/d/yyyyになっているということです。あと、たとえばSheet2のA1の値をmydateに格納してフィルタをかける場合、 A1がどんな表示形式でもmydateに格納されるのはシステムの表示形式なのに Debug.Print Sheet2.Range("A1").NumberFormat で確認すると m/d/yyyyになってます。（ramrun） ---- ＞そこでオートフィルタのオプションを確認すると設定されているデータがなるほど〜〜。そこまでは気がまわりませんでした。実はその後のコードでオートフィルタを解除していたので、実行後にオプションの確認のしようがなかったのでした。確かにオプションに検索結果が残りますね。なんだか大掛かりになってしまい、お手数をおかけしました。オートフィルタへの日付の指定の仕方が確認できて大満足です。 ramrunさん、 INAさん、ご協力ありがとうございました!! (KAMIYA) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200401/20040105195022.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ