VBA实现双击单元格自动输出对号再次双击取消对号
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Me
If ActiveCell.Value = "√" And Split(ActiveCell.Address, "$")(1) = "D" Then
ActiveCell.ClearContents
Else
If ActiveCell.Value <> "√" And Split(ActiveCell.Address, "$")(1) = "D" Then
ActiveCell.Value = "√"
End If
End If
End With
ActiveCell.Select
End Sub
