VBA(エクセル)の件で

質問

Altキーと"x"を同時に押すと、A1に現在の日時が表示された後にブックが最小化される。

上記のVBAを教えていただきたいのですが。
よろしくお願いいたします。

回答No.2

mu2011 · ベストアンサー

２つのマクロを標準モジュールに登録してお試しください。

マクロ１
Application.OnKey "%x", "マクロ２"
　%：altキー　

マクロ２
ActiveSheet.Cells(1, 1) = Date　’アクティブシートのA1に日付設定
Application.WindowState = xlMinimized　’ウィンドウを最小

各詳細はOnKey、WindowStateで検索して下さい。

お礼

希望どおりのことができました。
ありがとうございました。

回答No.3

imogasi

才に走った考え方ではないか。
ALT+Xは、他のソフトで別のことに使われるようで、紛らわしい。
日付はA1にCTRL+;で入れられたり、VBAでDate()で入る。
自分以外は、それ（このショートカット）が存在することの解説が無いと、使えない。
ウインドウズなどのショートカットキーは公知として、解説書などに載っていて、覚えさせられるが、私製のものはそうは行かない。
ボタンでも作って、Captionを「日付設定・最小化」とかにして、そのクリックイベントにせっていするほうが良いのでは。
ーー
ほかに
Sub test01()
Application.OnKey "a", "test02"
End Sub
Sub test02()
MsgBox "AAA"
End Sub
上記を実行しておくと
aを押すとTest02が実行される。
%aにするとALT+aを押したときにそうなる。
Sub test03()
Application.OnKey "%a", "test04"
End Sub
Sub test04()
MsgBox "BBB"
End Sub
級BASIC時代からにたものがあったが、しかし今では特異な方法と思う。
http://officetanaka.net/excel/vba/tips/tips67.htmなど参照。
ーー
ウインドウズの最小化は
ActiveWindow.WindowState = xlMinimized

お礼

参考になりました。
ありがとうございました。

回答No.1

layy

参考になれば。

『マクロにショートカットキーを割り当てる』
で検索してみる。
ページあり。

お礼

参考になりました。
ありがとうございました。