日付の検索

質問

OFFICE2016

マクロでの日付検索でエラーになってしまいます。

状態は次の通り
MASTERシートで
AK4セル
＝TODAY()
書式
分類：日付
種類：*2012/3/14

B16セル
=AK2&"/"&AK3　（AK2には2019、AK3には9の数値が入っている）
書式
分類：日付
種類：*2012/3/14

D17セル
=DATEVALUE(B16)
書式
分類：日付
種類：*2012/3/14

E17セル
=D17+1
書式
分類：日付
種類：*2012/3/14

F17セル
=E17+1
同様に左のセルに＋１した式となっている。AH17セルまで。

動作させたマクロ
Sub Macro6()

Sheets("MASTER").Visible = True
Sheets("MASTER").Select

Dim fkey As String
Dim frange As Range

fkey = Worksheets("MASTER").Range("AK4")

Set frange = Range("D17:AH17").Find(What:=DateValue(fkey), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows)

If (frange Is Nothing) Then

MsgBox "error"

Else

Cells(frange.Row, frange.Column).Select

End If

End Sub

上記マクロの修正をお願いしたく。
webで色々調べたのですが、修正内容が分かりません。

回答No.4

nishi6 · ベストアンサー

回答No.1のNishi6です。

質問通りの設定をして、マクロを貼り付け、xlValuesに変更してエラーも出ずに終わりました。

＞LookIn:=xlValues でエラーでます。
このエラーがVBAのメッセージのerrorなのか、コード自体のエラーなのか判断付きかねています。

質問者様の行いたいことを推測すると、
「AK2(年)、Ak3(月)のカレンダーをD17:AH17に作り、AK4(年月日)の日付にジャンプしたい。AK4の日付が無ければ「error表示」」でしょうか。

そうすると、少し困ることがあります。月には「大の月、小の月（にしむく士小の月と言います）」があり、一ヶ月31日と決め打ちすると、月の後半１～３日が翌月になったりします。このまま9月のカレンダーを作り、10月1日を指定すると見つかります。もし指定月のみのカレンダーを作るのであれば、

B16　不要　表示する必要があれば =TEXT(D17,"yyyy/m")。B16は文字列ですね。
D17　 （1日）　 =DATE(AK2,AK3,1)
E17　 （2日）　 =D17+1
・・・・・・・・・・・・・
AE17　（28日） =AD17+1
AF17　（29日） =IF(MONTH(AE17+1)=AK3,AE17+1,"")
AG17　（30日） =IF(MONTH(AE17+2)=AK3,AE17+2,"")
AH17　（31日） =IF(MONTH(AE17+3)=AK3,AE17+3,"")
とすれば、指定月のみの年月日が作れます。大の月、小の月、閏年にも対応します。

マクロは、
Sub Macro6B()
　Sheets("MASTER").Visible = True
　Sheets("MASTER").Select

　Dim rng As Range
　Set rng = Range("D17").Offset(0, Day(Range("AK4")) - 1)

　If rng.Value <> Range("AK4").Value Then
　　MsgBox "error"
　Else
　　rng.Select
　End If

　Set rng = Nothing
End Sub

とすれば、直接日数分ジャンプし、そのセルが同年月日かどうかをチェックしています。年や月の誤入力を防ぎます。また、月別に検索領域を気にする必要がなくなります。
ご参考に。

お礼

回答ありがとうございます。

無事対応できました。
検証までしていただき、助かりました。

LookIn:=xlValues でエラーでます。
このエラーがVBAのメッセージのerrorなのか、コード自体のエラーなのか判断付きかねています
→
VBAのメッセージの”error”表示です。
デバッグモードでもnothingとなってたのでerrorとポップアップエラーが表示される状態でした。

B16　不要　表示する必要があれば =TEXT(D17,"yyyy/m")。B16は文字列ですね。
D17　 （1日）　 =DATE(AK2,AK3,1)
E17　 （2日）　 =D17+1
・・・・・・・・・・・・・
AE17　（28日）=AD17+1
AF17　（29日）=IF(MONTH(AE17+1)=AK3,AE17+1,"")
AG17　（30日）=IF(MONTH(AE17+2)=AK3,AE17+2,"")
AH17　（31日）=IF(MONTH(AE17+3)=AK3,AE17+3,"")
とすれば、指定月のみの年月日が作れます。大の月、小の月、閏年にも対応します。
の内容ですが、この質問を投稿する時にちょっと気にしました。
目的の内容は”検索で今日と同じ日の行を検索したい”でしたので、カレンダー表示の内容は、後回しにしてた次第です。
ご配慮いただき、ありがとうございます(^^)。

回答No.3

imogasi

直接の回答は、既出の回答で済むと思う。
しかし、是非、
「日付を検索する」
http://officetanaka.net/excel/vba/tips/tips131.htm
の続きの４記事を読んでください。
ーー
エクセル（VBA）にはこういう難しい（常識・推測では）一筋縄ではいかないポイントがあります。
例えば、日付シリアル値のことなど、知らないで、VBAのコードをさがしてコピペ的に連ねている人も結構いるようだ。
良き指導者がそばに居れば教えてくれる機会もあるでしょうが、独学では気づくのがむつかしい。
　質問者は、エクセルVBAの基礎的なことは、早く習得できた方なのだろうが、
それで、その勢いで何でもできると思いがちな状況かと推測するが、
その先には、エクセルやエクセルVBAに関して、やはり時間をかけて、経験して、習得しないとならない点も相当あるように思います。
ーー
理由や仕組みを解説してくれる傾向のある、
田中　亨先生（上記の方）の記事や
大村あつし先生のVBAの著作
をよく読むぐらいしか単独ではできないようだが。
ほかにもないわけではないので、WEB照会を数をこなしていると出くわすことがあるのですが。

お礼

回答ありがとうございます

http://officetanaka.net/excel/vba/tips/tips131.htm
の内容は参照済でした。

回答No.2

Mathmi

確認しました。
明確な間違いとしては、No.1の方も仰っているようにLookInです。
・LookIn:=xlFormulasだと関数、つまり日付ではなく[=TODAY()]と[=D17+1]などを比較する事になります。値を比較しましょう。
[LookIn:=xlFormulas]→[LookIn:=xlValues]

後気になる点とすれば
・Range("AK4")もRange("D17:AH17")もデータ型は日付型です。わざわざ文字列型を経由する必要はありません。
[Dim fkey As String]→[Dim fkey As Date]
[What:=DateValue(fkey)]→[What:=fkey]

・frangeで既にセルを取得しているので、わざわざcellsで行番号と列番号を指定する必要はありません。
[Cells(frange.Row, frange.Column).Select]→[frange.Select]

・rangeのvalueは省略可能ですが、個人的には明示してやった方が間違いが少ないと思います。
[Worksheets("MASTER").Range("AK4")]→[Worksheets("MASTER").Range("AK4").Value]

・fkeyでだけワークシートを指定していますが、これは意味があるのでしょうか？
　なければ付ける必要はありませんし、あるのならFindなどの前にも指定が必要です。
　指定が必要なら、繰り返し使う訳ですから、Worksheet型の変数に格納した方がいいでしょう。

・B16セルの書式を日付型としていますが、2019/9は日付と認識されないので意味がありません。

・D17セルは、=DATE(AK2,AK3,1)では駄目なんでしょうか？
　個人的には、年と月が別セルで指定されている状態で、[2019/9]という文字列を日付型に変換するのは、迂遠に思えます。

お礼

回答並びにアドバイスありがとうございます

補足

・[LookIn:=xlFormulas]→[LookIn:=xlValues]
・Range("AK4")もRange("D17:AH17")もデータ型は日付型です。わざわざ文字列型を経由する必要はありません。
[Dim fkey As String]→[Dim fkey As Date]
[What:=DateValue(fkey)]→[What:=fkey]

・[Cells(frange.Row, frange.Column).Select]→[frange.Select]

・[Worksheets("MASTER").Range("AK4")]→[Worksheets("MASTER").Range("AK4").Value]

上記対応しましたが、エラー解消されずでした。
・fkeyでだけワークシートを指定していますが、これは意味があるのでしょうか？
→
複数の違うシート（Ａ）で同じ様な書式のシートを使用しています。
（Ａ）の日数表示は末尾の”日”だけにしてるので、
日付を検索するのに年、月、日で表示させているMASTERシートで対応した方がよいと思ってworksheet設定しました。
MASTERシートをselectしてるので、あえてworksheet設定は不要とは思っていましたが、特に間違いではないのでそのままとしてました。
・B16セルの書式を日付型としていますが、2019/9は日付と認識されないので意味がありません。
→
これ、特に意味ないです。

・D17セルは、=DATE(AK2,AK3,1)では駄目なんでしょうか？
→
=DATE(AK2,AK3,1)でダメではないです。

回答No.1

nishi6

LookIn:=xlFormulas
　　　　　↓
LookIn:=xlValues

でどうでしょうか。

お礼

回答ありがとうございます。

LookIn:=xlValues
でエラーでます。
最初は
What:=fkey, LookIn:=xlValues
としてたのですが、日付検索は
What:=DateValue(fkey), LookIn:=xlFormulasがセットとの説明をwebでみかけたので
変更した次第です。