有没有办法添加交叉“X”而不是勾选。在复选框中。 ?请帮忙。
答案 0 :(得分:1)
根据Gary的学生的建议,我想出了以下黑客:
将以下代码放在工作表的模块中,并带有单元格:
Option Explicit
Private mRngOld As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Set rng = Range("B2")
If Application.Intersect(Target, rng) Is Nothing Then
Set mRngOld = Target
Exit Sub
End If
If rng.Value = "X" Then
rng.Value = "-"
Else
rng.Value = "X"
End If
If Not mRngOld Is Nothing Then mRngOld.Select
End Sub
如果您现在点击单元格(在示例中为B2
),您将在X
和-
之间切换。
这就是它的样子:
以下是示例workbook的链接。
答案 1 :(得分:0)
很抱歉,但Excel中的ActiveX复选框不支持此功能。
答案 2 :(得分:0)
您可以使用wingdings并使用小写o和x。小写o打印开箱。一个小写的x,打印一个带有x的盒子。