質問: .find(what:=range("h20").value, _ lookin:=xlvalues, lookat:=xlpart) という感じで検索してみても反映されずに無反応状態です...。
回答: 試してみて 日付をシリアル値にして検索 dim c as range dim myform1 as string dim firstaddress as string with worksheets("入力フォーム").usedrange.columns(2) myform1 = .cells(1).numberformatlocal .numberformatlocal = "標準" set c = .find(what:=clng(range("h20").value), _ lookin:=xlvalues, lookat:=xlwhole) .numberformatlocal = myform1 参考url:http://www.moug.net/tech/exvba/0050163.html