Excel,Active X复选框“勾”到“交叉”?

时间:2013-10-28 14:43:10

标签: excel checkbox activex

有没有办法添加交叉“X”而不是勾选。在复选框中。 ?请帮忙。

3 个答案:

答案 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-之间切换。

这就是它的样子:

Example screenshot

以下是示例workbook的链接。

答案 1 :(得分:0)

很抱歉,但Excel中的ActiveX复选框不支持此功能。

答案 2 :(得分:0)

您可以使用wingdings并使用小写o和x。小写o打印开箱。一个小写的x,打印一个带有x的盒子。