实现该功能目的是方便寄存器读写。
以下是一种添加到工作簿模块以确保每个表格都能响应的方法:
- 按下Alt + F11打开Visual Basic for Applications(VBA)编辑器。
- 在VBA编辑器中,双击左侧的 “ThisWorkbook”(这个工作簿),然后粘贴以下VBA代码:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Target.Value = 0 Then
Target.Value = 1
ElseIf Target.Value = 1 Then
Target.Value = 0
End If
Cancel = True
End Sub
关闭VBA编辑器后,在任何工作表中双击单元格时,都应该能够触发0和1的切换。