エクセルを開いた時に当日の日付を色付けする方法

質問

https://docs.google.com/open?id=0B8L_mOtMEbjIaUV6RU93ZjE4NWs

このようなエクセルがあり、原稿スケジュールを把握したいと考えております。
それにあたり、開くと同時にその日の日付が1番左に来て欲しいと思っています。
（※現在19月と書いてある部分が開く度に、その日の日付に変わりセル全体を左へ移動させる）のですが、簡単に実現する方法はございますでしょうか？

また、少しプログラミングを組まないと行けないということであれば、実現するためにどういう考え方をすればよろしいでしょうか？

回答No.2

KURUMITO

例えばシートのC1セルから右横方向に日付が入力されているとして、そのシートを開いたときに画面をお望みのようにするためには「開発」タブの「Visual Basic」をクリックしてから左の画面に表示されるそのブックについての「This Workbook」を選択してから右側の窓に次のマクロを入力します。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If IsDate(Range("C1").Value) = False Then Exit Sub
Range("C1").Select
ActiveWindow.SmallScroll ToRight:=Date - Range("C1").Value + Range("C1").Column - 1
Cancel = True
End Sub

別のシートを選択してから該当のシートに画面を変えることで表示が自動的にお望みの画面に変わります。

回答No.1

chayamati

その日を１番左にするには、
A列を左にして、Ａ列から何番目にあるかを計算しこの数値だけ左へスクロールします

例えばＡ列が4/1で１日分が１セルの時今日の日を左にするには

Sub Macro1()
Range("A1").Select
ActiveWindow.SmallScroll ToRight:=Date - Range("A1")
End Sub