| |
日付ですが、セルに入力されている値と
表示形式は、どのようになっていますか？
日付の検索は、ちょっと工夫が必要なので教えて下さい。
以下のコードは、思いつくまま直書きしたので、動くか分かりません。
dim FindDay as Range
dim myDate as String
dim myWeek as String
dim i as long
dim wk1 as String
dim wk2 as String
myDate = Format(Date,"mm/dd")
set FindDay = Range("A2:AE2").Find(myDate)
if FindDay is Nothing then
msgbox "見つかりませんでした。"
Exit sub
end if
myWeek = FindData.Offset(-1,0).Value
for i = 1 to 31
if Cells(1,i).Value = myWeek then
wk1 = i
Exit for
end if
next i
for i = 31 to 1 step -1
if Cells(1,i).Value = myWeek then
wk2 = i
Exit for
end if
next i
Range(CElls(2,wk1),cells(2,wk2)).select
|
|
