まりふのひと

日付のタイトル（セルB1）をクリックしたら今日の行にジャンプさせるマクロ

Excel VBA まめ録

絶好のパソコン日和‥‥

「まめ録」も一歩完成に近づいたが、おかしな現象も見つかって．．．

§１．日付のタイトルをクリックしたら、今日の行に移動する

「まめ録」の項目は次のようになっている。


ここで、セルB1 をクリックしたら、今日の行に移動するマクロを「はじめての裏技 Excel VBA」等を参考に作った。

  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. If Target.Column = 2 And Target.Row = 1 Then 'B1
  3. Columns("B").Find(Format(Now, "gee/mm/dd"), LookIn:=xlValues).Select
  4. End If
  5. End Sub

  • 当然のことながら、シート毎に記述する必要があり、その意味で汎用性はない。（まだ力不足）
  • B列を選択すると、このマクロが働いてしまい、結果として B列が選択できない。
    　このExcel を開き直し、［マクロを無効にする］必要がある。
§２．まめ録マクロ.xls を閉じても、暫くの間、Excel.exe が動いている