如何在 Excel 中透過單擊啟用儲存格進行編輯？

本文將介紹如何在 Excel 中透過單擊啟用儲存格進行編輯。請按照以下步驟逐步操作。

使用 VBA 程式碼透過單擊啟用儲存格進行編輯

使用 VBA 程式碼透過單擊啟用儲存格進行編輯

以下 VBA 程式碼可以幫助您透過單擊啟用儲存格進行編輯。

1. 打開需要透過單擊啟用儲存格的工作表。右鍵點擊工作表標籤，然後從右鍵選單中選擇「檢視程式碼」。

2. 在開啟的 Microsoft Visual Basic for Applications 視窗中，將以下 VBA 程式碼複製並貼到 程式碼 視窗中。

VBA 程式碼：透過單擊啟用儲存格進行編輯

#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 視窗。

從現在開始，當您單擊當前工作表中的任何儲存格時，該儲存格會立即被啟用。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！