inputBoxに 2007/07/25と入力したら・・・

質問

またまたお願いします。
注文した商品の受入処理をエクセルでやりたいと思ってます。
注文した履歴はSheets("T_注文")にあります。
項目は
ID　注文番号　連番　注文日　仕入先コード　仕入先名担当者　消費税　　納期　品番　商品番号　商品名 数量　単価　金額　備考
です。
注文日は2008/07/25を平成20年7月25日と書式設定で設定してあります。
さて、マクロで注文日をkeyとしてinputBoxに　2007/07/25と入力したら
Sheets("T_注文"）にフイルターがかかり選択し表示できるようにと
マクロを書きましたが、実際、　該当なしとなります。
多分　2008/07/25　と　平成20年7月25日　の差だと思うのですが、
inputboxに入力した時に平成20年7月25日となるようには出来ませんか？
また　2008/07/25としても問題ないようにするにはどうしたらよいのでしょうか？
おねがいします。
Sub 発注日受入処理実行()
Dim Key As String '終了日
Application.ScreenUpdating = False
Range("T_受入処理!A61").CurrentRegion.ClearContents
Key = InputBox("検索する註文日番号を入力してください", "オービットベース：受入処理検索")
If Key = "" Then
Exit Sub
End If
Sheets("T_注文").Select
・・・・・・

回答No.1

merlionXX · ベストアンサー

> Dim Key As String '終了日　

これでは文字列型です。
ワークシートで注文日は2008/07/25を平成20年7月25日と書式設定で設定してあるなら文字列ではなく日付です。

Dim Key As Date '終了日　
というように日付型を宣言してください。

お礼

ありゃ　そうでした。有難うございます。
しかし　修正したらデバックしました。
Key = InputBox("検索する註文日番号を入力してください", "オービットベース：受入処理検索")
If Key = "" Then
Exit Sub
End If
の　 If Key = "" Then　が黄色になってますが・・・・

回答No.4

onlyrom

解決したようでもう見ないでしょうが一言。

＞InputBoxが文字列のみを返すとは驚き！

どういったものを返すのか知らないで使っている、
寧ろそのことの方が驚きですが。。。(^^;;;
ヘルプにちゃんと書いてあります。

また、InputBoxには関数とメソッドの２つがあり今回のは関数の方です。
この際、メソッドの、Application.InputBoxも覚えておきましょう。

＞merlionXXさん
いつも回答を拝見していますのでそれからすると
今回のはちょっとしたケアレスミスだろうと推察しています。
これからも素晴らしい回答を期待しています。

回答No.3

merlionXX

#1です。
onlyromさま、ご指摘ありがとうございました。
勉強させていただきました。
K-19Newさま、大変失礼いたしました。

回答No.2

onlyrom

＞ありゃ　そうでした。有難うございます。
＞しかし　修正したらデバックしました。

早とちりはいけませんねぇ。。(^^;;;

変数KeyをDateで宣言したら拙いでしょう？
何故なら、InputBoxが返すのは文字列なんですから。

Dim Key As String
Dim MyDate As Date

Application.ScreenUpdating = False
Range("T_受入処理!A61").CurrentRegion.ClearContents
Key = InputBox("検索する註文日番号を入力してください", "オービットベース：受入処理検索")
If Key = "" Then
Exit Sub
End If

●●ここで日付（シリアル値）に変換。

　　myDate = DateValue(Key)

●●以後は、myDateを使う。

以上。

お礼

InputBoxが文字列のみを返すとは驚き！
有難うございます。
助かりました。