Excelでセルを1回クリックして編集モードにするにはどうすればよいですか？

この記事では、Excelで1回クリックしてセルを編集モードにする方法について説明します。以下の手順に従って操作してください。

VBAコードを使用して1回クリックでセルを編集モードにする

VBAコードを使用して1回クリックでセルを編集モードにする

次のVBAコードを使用すると、1回クリックでセルを編集モードにすることができます。

1. 1回クリックでセルをアクティブ化したいワークシートを開きます。シートタブを右クリックし、右クリックメニューから「表示 コード」を選択します。

2. 開いたMicrosoft Visual Basic for Applicationsウィンドウで、以下のVBAコードをコピーしてコードウィンドウに貼り付けます。

VBAコード：1回クリックでセルを編集モードにする

#If Win64 Then
'Updated by Extendoffice 2018/2/2
    Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#Else
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#End If
Const VK_NUMLOCK = 144
Const VK_CAPITAL = 20
Const VK_SCROLL = 145
Dim xOldNLState As Long
Dim xOldCLState As Long
Dim xOldSLState As Long
Const KEY_MASK As Integer = &HFF80 '

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (GetKeyState(vbKeyShift) And KEY_MASK) <> 0 Then Exit Sub
    xOldNLState = GetAsyncKeyState(VK_NUMLOCK)
    xOldCLState = GetAsyncKeyState(VK_CAPITAL)
    xOldSLState = GetAsyncKeyState(VK_SCROLL)
    SendKeys "{F2}"
    If GetAsyncKeyState(VK_NUMLOCK) <> xOldNLState Then
        Application.SendKeys "{NUMLOCK}"
    End If
    If GetAsyncKeyState(VK_CAPITAL) <> xOldCLState Then
        Application.SendKeys "{CAPSLOCK}"
    End If
    If GetAsyncKeyState(VK_SCROLL) <> xOldSLState Then
        Application.SendKeys "{SCROLLLOCK}"
    End If
End Sub

3. Alt + Qキーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを閉じます。

これで、現在のワークシート上の任意のセルを1回クリックするだけで、そのセルが即座にアクティブになります。

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！