キーボードの「F9」をしたら、セルの色が黄色。「F10」を押したら、セルの色が赤【VBA】

2024年6月29日2026年1月14日

経緯

以前、「あるセルの範囲で”F9”キーを押したら、コードが動く」というのを作りました。

今回は、”F9”、”F10”キー両方できないかやってみました。

仕様

セルS1:S3にカーソルがあって、”F9”キーを押したら、セルの色が黄色に変わる。”F10”キーを押したら、赤に変わる。

という仕様です。

コード

では、コードです。

シートのコードモジュール:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next ' エラーが発生しても無視して続行

    ' F9キーとF10キーの通常の動作に戻す
    Application.OnKey "{F9}"
    Application.OnKey "{F10}"

    ' カーソルが指定された範囲にあるかどうかをチェックし、F9キー押下時の動作を設定
    Call SetF9Key(Target)

    ' カーソルが指定された範囲にあるかどうかをチェックし、F10キー押下時の動作を設定
    Call SetF10Key(Target)

    On Error GoTo 0 ' エラー処理をリセット
End Sub

Private Sub Worksheet_Deactivate()
    On Error Resume Next ' エラーが発生しても無視して続行
    Application.OnKey "{F9}" ' F9キーの通常の動作に戻す
    Application.OnKey "{F10}" ' F10キーの通常の動作に戻す
    On Error GoTo 0 ' エラー処理をリセット
End Sub

標準モジュール:

Sub SetF9Key(ByVal Target As Range)
    If Not Intersect(Target, ActiveSheet.Range("S1:S3")) Is Nothing Then
        Application.OnKey "{F9}", "ChangeColorToYellow"
        Debug.Print "F9キーが設定されました"
    End If
End Sub

Sub SetF10Key(ByVal Target As Range)
    If Not Intersect(Target, ActiveSheet.Range("S1:S3")) Is Nothing Then
        Application.OnKey "{F10}", "ChangeColorToRed"
        Debug.Print "F10キーが設定されました"
    End If
End Sub

Sub ChangeColorToYellow()
    On Error Resume Next
    If Selection.Cells.Count = 1 Then
        If Not Intersect(Selection, ActiveSheet.Range("S1:S3")) Is Nothing Then
            Selection.Interior.Color = RGB(255, 255, 0) ' 黄色
            Debug.Print "セルの色が黄色に変更されました"
        End If
    End If
    On Error GoTo 0
End Sub

Sub ChangeColorToRed()
    On Error Resume Next
    If Selection.Cells.Count = 1 Then
        If Not Intersect(Selection, ActiveSheet.Range("S1:S3")) Is Nothing Then
            Selection.Interior.Color = RGB(255, 0, 0) ' 赤
            Debug.Print "セルの色が赤に変更されました"
        End If
    End If
    On Error GoTo 0
End Sub

・F9キーまたはF10キーを押したときに、イミディエイトウィンドウ（VBAエディタのView > Immediate Window）にメッセージが表示されるか確認します。

・「F9キーが設定されました」や「F10キーが設定されました」というメッセージが表示されれば、キーの設定は成功しています。

・「セルの色が黄色に変更されました」や「セルの色が赤に変更されました」というメッセージが表示されれば、色の変更も成功しています。

こんな感じです。

以上になります。

参考になれば、幸いです。