キーを押してマクロを実行する - 病理診断を Excel を使ってやってみる

キーを押してマクロを実行する

https://gyazo.com/7f0f745382f73758790b6737e33ca5d8

Application.OnKey

キーカウンター（数取器）で使用する機能です。エクセルファイルを開いた後、キーボードによりマクロを実行できるようにしています。

エクセルファイルを開いたときに自動でマクロを実行したい

Workbook_Open

https://gyazo.com/44c235138fd2ad6daac0cfca168250d6

以下をコピーします。

Private Sub Workbook_Open()

Application.OnKey "{z}", "ctrlz"

Application.OnKey "{x}", "ctrlx"

Application.OnKey "{c}", "ctrlc"

Application.OnKey "{v}", "ctrlv"

Application.OnKey "{b}", "ctrlb"

Application.OnKey "{n}", "ctrln"

Application.OnKey "{m}", "ctrlm"

Application.OnKey "{a}", "ctrla"

Application.OnKey "{s}", "ctrls"

Application.OnKey "{d}", "ctrld"

End Sub

標準モジュールには以下をコピーします。

Sub ctrlz()

Range("C10") = Range("C10") + 1

End Sub

Sub ctrlx()

Range("D10") = Range("D10") + 1

End Sub

Sub ctrlc()

Range("E10") = Range("E10") + 1

End Sub

Sub ctrlv()

Range("F10") = Range("F10") + 1

End Sub

Sub ctrlb()

Range("G10") = Range("G10") + 1

End Sub

Sub ctrln()

Range("H10") = Range("H10") + 1

End Sub

Sub ctrlmx()

Range("I10") = Range("I10") + 1

End Sub

Sub ctrla()

Range("C5") = Range("C5") + 1

End Sub

Sub ctrls()

Range("D5") = Range("D5") + 1

End Sub

Sub ctrld()

Range("E5") = Range("E5") + 1

End Sub

https://gyazo.com/7892c236eab082387b4c0a0dc3af01ab

サイトメニュー