エクセルを開いた時、セル左上角に持ってくる方法

エクセルを開いた時、BVAで、本日の日付の文字列を検索し、
左上角に自動でスクロースする方法を考えております。

ご存じの方がおられましたら教えてください。

No.1 ベストアンサー 回答者： ki-aaa 回答日時： 2010/12/14 08:00

試してみて。

Sub スクロールa()
Dim myreg As Range
Set myreg = Cells.Find(Date, LookAt:=xlWhole)
If myreg Is Nothing Then
MsgBox "今日の日付がないか、値が検索できません。"
Exit Sub
End If

Application.Goto myreg, True
End Sub

この回答へのお礼

有難うございます。　実現できました。

お礼日時：2010/12/20 20:21

No.2 回答者： YON56 回答日時： 2010/12/14 09:23

ファイルを開いたときに、

Sheet1のセルA1を選択し、そこに今日の日付を入力するとしてのマクロを記述します。

マクロはBVEのThisWorkbookに記述します。

Private Sub Workbook_Open()

Sheets(1).select
Range("A1").select
Range("A1")=Date

End Sub

この回答へのお礼

有難うございます。
参考になりました。

お礼日時：2010/12/20 20:22