|
VBA初心者です、下記ご教授頂きたいです。
アクティブなセルのある行の「BF列」にカーソルを飛ばすコードを「OnKey1」として以下のように書きました。
Sub OnKey1()
Range("BF" & ActiveCell.Row).Select
End Sub
このマクロにショートカットキーを割り当てたいのですが、キーは
「Ctrl押しながらテンキーの1を押下」
で動くようにしたいです。
そこでWorkbook_Openを以下のように記述しました。
Private Sub Workbook_Open()
Application.OnKey "^{97}", "ThisWorkbook.OnKey1"
End Sub
すべてThisWorkbookにコード記述しました。
動作させてみるとアクティブセルがBF列に飛ばず、データの何も入っていない最終行の最終列あたり?に飛んでしまいます。
ちなみにテンキーではなく「Ctrl+q」でテストしてみると何故かうまく動作します。
Application.OnKey "^{97}", "ThisWorkbook.OnKey1"
の "^{97}"部分を "^q"にしてみるとBF列に飛びました。
どう修正すれば意図する動作をしてくれるか、ご教授いただきたいです。
よろしくお願いいたします。
|
|