VBA实现双击单元格自动输出对号再次双击取消对号

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
      
      
      
      

       
       
1.
       
       
2.
       
       
3.
       
       
4.
       
       
5.
       
       
6.
       
       
7.
       
       
8.
       
       
9.
       
       
10.
       
       
11.
       
       
12.