七転八起SEの備忘録

Excel起動時に目印となる線を現在の時間へ移動するプログラム

Private Sub Workbook_Open()

　Application.ScreenUpdating = False

　Worksheets(1).Activate

　'1行目より一致する時間を選択する
　Rows(1).Find(What:=Hour(Now()), LookIn:=xlValues).Select

　'線を移動させる
　With ActiveSheet.Shapes("時間").Select
　　Selection.ShapeRange.Top = ActiveCell.Top '開始行を指定
　　Selection.ShapeRange.Left = ActiveCell.Left + ActiveCell.Width / 2 '横位置をセルの中央に指定
　End With

　'A1セルを選択
　Range("A1").Activate

　Application.ScreenUpdating = True

End Sub


【補足１】
目印となる線を事前に作成しておく。
また、線の名前は「時間」にする。



【補足２】
ファイルを開いた際にVBAを起動するには、「ThisWorkbook」から「Open」を選択する。