日付の入ったセル範囲から、ある日付を選択したい

質問

Windows7 EXCEL2007でマクロ作成中の初心者です。
(1)セルには式がはいってます。
'セルL4 に =VLOOKUP(J73,年月管理!F17:I39,4,FALSE)
'セルM4 に =L4+1
'セルN4 に =M4+1
'セルO4 に =N4+1
'セルP4 に =O4+1

(2)セルの表示は年月日のうち日のみ表示
'セルL4 に 18 (2015/8/18の日付のうち日のみ）が表示されてる
'セルM4 に 19 (日付のうち日のみ）以下同じ
'セルN4 に 20 (日付のうち日のみ）
'セルO4 に 21 (日付のうち日のみ）
'セルP4 に 22 (日付のうち日のみ）

(3)検索したい年月日は次のとおりです
'セルK4 に 2015/8/21

次のようなコードでＯ4のセルを選択したいのですが、うまく行きません。
どうしたらよいか、教えて下さい。
Sub 日付選択()
Range("L4:P4").Select
Selection.Name = "日付範囲"
Range("日付範囲").Find(Range("K4").Value).Select
End Sub

回答No.4

f272 · ベストアンサー

#2です。
Sub 日付選択()
Range("L4:P4").Select
Selection.Name = "日付範囲"
Range("日付範囲").Find(What:=day(Range("K4")), LookIn:=xlValues).Select
End Sub

お礼

今ためしたら、完璧にできました。ありがとうございました。本当にたすかりました。

回答No.5

BarcodeMaster

#1です

VLOOKUP(J73,年月管理!F17:I39,4,FALSE)

これは日付を返すんでしょうか？ 2015/8/18みたいな。
それをセルの書式設定で、dで日だけ表示？

それとも日だけを返す？18みたいな。
日だけだと、2015/8/21だろうが、2015/7/21だろうが選択されてしまうと思いますが、そのあたりは別のところで整合性とってあるんでしょうか？

回答No.3

chie65536（@chie65535）

Range("日付範囲").Find(Range("K4").Value).Select
を
Range("日付範囲").Find(Range("K4").Value,Lookin:=xlValues).Select
にして「値で検索」に変更してみて下さい。

補足

教えていただいた、コードを実行したら、オブジェクト変数やwithブロック変数エラーが出てうまく行きませんでした。

回答No.2

f272

Sub 日付選択()
Range("L4:P4").Select
Selection.Name = "日付範囲"
Range("日付範囲").Find(What:=Range("K4").Value, LookIn:=xlValues).Select
End Sub

補足

教えていただいた、コードを実行したら、オブジェクト変数やwithブロック変数エラーが出てうまく行きませんでした。
　あるサイトでこんなんのが、ありましたが、これを応用して作っていただけませんでしょうか？どうしても、2015/8/21形式でなく、日にちだけ表示したいというのが条件です。

'セルに、直接シリアル値が入力されているのではなく「=A1+1」のような数式が入力されていると、DateValue関数では検索できないのでしょうか。
'セル範囲A1:A5を選択して、表示形式を「* 2001/3/14」に設定してください。
'今度は、

Sub Sample4()
Dim FC As Range
Set FC = Range("A1:A5").Find(What:=DateValue("2010/7/5"), _
LookIn:=xlFormulas)
MsgBox IIf(FC Is Nothing, "失敗", "成功")
End Sub

'は失敗しますが、

Sub Sample4()
Dim FC As Range
Set FC = Range("A1:A5").Find(What:=DateValue("2010/7/5"), _
LookIn:=xlValues)
MsgBox IIf(FC Is Nothing, "失敗", "成功")
End Sub
'は成功します。

回答No.1

BarcodeMaster

Sub 日付選択()

　　Dim intCnt As Integer

　　For intCnt = 12 To 16
　　　　If Cells(4, 11).Value = Cells(4, intCnt).Value Then
　　　　　Cells(4, intCnt).Select
　　　　　Exit Sub
　　　　End If
　　Next intCnt

　　Call MsgBox("そんな値ないよ！")

End Sub