Excel VBA メニューバーに年月日を表示する

Excel VBA  メニューバーに年月日を表示する

参考にしたサイト

http://seadragon.info/excelvba/excel_library1_0.htm

http://seadragon.info/excelvba/

 

コピペ、西暦と平成の表示を追加

追記

このままだと日付が変わって、excelを起動して日付が自動更新されない（excel起動時にマクロを手動で実行する必要がある）

対策

マクロ名を　Sub auto_open() に変更して、VBAＰｒｏｊｅｃｔ(PERSONAL.XLS)に保存すれば、exsel起動時にマクロが実行されるので日付を今日に変える事が出来る？（アドイン化が必要・・アドインにする方法が課題）

C:\Documents and Settings\[ ユーザー名 ] \Application Data\Microsoft\Excel\XLSTART\PERSONAL.XLS

’Sub メニューバーに日付()

Sub auto_open()
  
    Const DATEPARAM = "datemenu"   'だぶらないで、上書きしていくようにParameterプロパティでつかみます
    Dim datemenu, cntrl
   
    For Each cntrl In CommandBars("Worksheet Menu Bar").Controls
        If cntrl.Parameter = DATEPARAM Then
            cntrl.Delete                    '古いものを削除する
        End If
    Next cntrl
   
    Set datemenu = CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup)
    datemenu.Caption = Format(Date, "ggge年 " & "( yyyy )  " & "m月" & "d日（aaa）") '今日の日付と曜日を表示させる
    datemenu.Parameter = DATEPARAM
End Sub

ブログ内関連記事

http://telstar.blog.so-net.ne.jp/2011-04-30