如何在 Excel 中通过单击激活单元格进行编辑？

#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

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！