在本文中，我们将使用工作表的双击事件来检查和取消选中单元格。

原始数据包含一些食品。我们要打勾我们已购买的那些物品。

ArrowRawData

双击一个单元格，将在其上添加刻度线。同样，可以通过再次双击将其删除。

ArrowOutput

代码说明

如果Target.Column = 3，则以上代码用于限制双击事件，仅在双击第三列的单元格时才执行。

取消= True上面的代码用于防止单元格进入编辑模式。

Target.Font.Name =“ Marlett”

上面的代码用于将Marlett字体分配给目标单元格。

如果Target =“”，则Target =“ a”

其他目标=“”

结束于上面的代码用于插入刻度线并将其删除。在Marlett字体中，“ a”表示刻度线，而空格用于删除刻度线。

请遵循以下代码

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

'Checking whether target cell is in third column

If Target.Column = 3 Then



'Prevent cell going into Edit Mode

Cancel = True



'Changing font type of the cell

Target.Font.Name = "Marlett"



'Checking if target cell value is blank then inserting tick

If Target = "" Then

Target = "a"

Else

Target = ""

End If

End If

End Sub

如果您喜欢此博客，请在Facebook和Facebook上与您的朋友分享。

我们很希望收到您的来信，请让我们知道我们如何才能改善我们的工作并使您的工作更好。写信给我们[email protected]