How in a column in a double-click on the cell and the cell shows checkmark, cell line in the back of the data are then draw a line

CodePudding user response:

Help you to move to the vba zone

CodePudding user response:

Reference:

 Private Sub Worksheet_BeforeDoubleClick (ByVal Target As the Range, Cancel the As Boolean) 
If the Target. The Column=1 Then 'are only useful when the first Column double-click 
Cancel=True 
If Target.Valuehttps://bbs.csdn.net/topics/="https://bbs.csdn.net/topics/)" Then 
'cancel 
Target.Valuehttps://bbs.csdn.net/topics/="" 
'cancel behind eight columns underline mark 
Target. Offset (0, 1). The Resize (1, 8). The Font. Underline=xlUnderlineStyleNone 
The Else 
'set the 
"Target.Valuehttps://bbs.csdn.net/topics/=" https://bbs.csdn.net/topics/) 
"' 8 column behind the underline flag 
Target. Offset (0, 1). The Resize (1, 8). The Font. Underline=xlUnderlineStyleSingle 
End the If 
End the If 
End Sub