|
▼えくせーる さん:
おはようございます。
>セルを選択状態にして右ボタンをクリックすると、
>「切り取り」や「コピー」などのメニューがでてくると思います。
>そこに「独自のコマンド」を追加・削除する方法があるの知っているのですが、
>忘れてしまいました。
>教えてください。(HP知ってたら教えてください。)
>
>●目的
>ただ単に今日の日付をセルにインプットさせるイベントを作ることです。
久しぶりCommandbarを操作しました。時々やらないと忘れますね!!
'========================================================
Sub test()
With Application.CommandBars("Cell").Controls.Add(msoControlButton, , , 1, True)
.Style = msoButtonCaption
.Caption = "日付"
.OnAction = "putdate"
End With
End Sub
'========================================================
Sub putdate()
Selection.Value = Date
End Sub
確認してみて下さい。
|
|