我在工作表中运行一个私人小组。 我可以点击一些启用/禁用它？ 即我可以编程一个button？

这是我的代码。 这是一个function，使得当我点击一个单一的解锁单元格，它增加了一个值。 我有一个问题，让它总是运行。 有时会运行，有时我必须打开代码并在最后一个END SUB之后按回车键。 我想要的是一个button，刷新此代码，以便VBA工作。

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Key As Integer If Target.Count > 1 Then Exit Sub Key = GetKeyState(MOUSEEVENTF_LEFTDOWN) If Key And 1 Then If IsNumeric(Target.Value) Then Target.Value = Target.Value + 1 Application.EnableEvents = False Target.Resize(1, 2).Select Application.EnableEvents = True End If Cancel = True End If End Sub 

Answer 1

你觉得这个简化的代码适合我吗？

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Value = Target.Value + 1 Target.Resize(1, 2).Select Application.EnableEvents = True End If End Sub