Question

excel如何设定按钮,如点一下鼠标就有对号或取消对号

Answer 1

首先，插入一个Acitvex按钮控件。为了达到比较期望的效果。比如：选择了一个空单元格，按钮就显示“插入对勾”，当选择了含有对勾的单元格时，按钮就变成“取消对勾”。我们需要插入工作表事件过程，右键工作表标签，查看代码，然后贴入以下事件代码：

该代码在选择单元格时会识别其中是否有对勾，然后自动转变提示字样。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With CommandButton1
        If Target.Range("a1").Value = "√" Then
            .Caption = "取消对勾"
        ElseIf Target.Range("a1").Value <> "√" Then
            .Caption = "插入对勾"
        End If
    End With
End Sub

接下来输入按钮的事件代码，根据单元格是否包含对勾来对应执行写入或清除。

Private Sub CommandButton1_Click()
    With Me
        If ActiveCell.Value = "√" Then
            ActiveCell.ClearContents
        ElseIf ActiveCell.Value <> "√" Then
            ActiveCell.Value = "√"
        End If
    End With
    ActiveCell.Select
End Sub

最后，只有选择事件还不够，如果插入对勾后，按钮应该立即更新显示“取消对勾”，或在删除对勾后立即更新显示“插入对勾”，因此需要第二个工作表事件：

Private Sub Worksheet_Change(ByVal Target As Range)
    With CommandButton1
        If Target.Range("a1").Value = "√" Then
            .Caption = "取消对勾"
        ElseIf Target.Range("a1").Value <> "√" Then
            .Caption = "插入对勾"
        End If
    End With
End Sub

Answer 2

右击菜单栏----表单 表单裏面有一个框起来的对号。点击到你想到的地方。即可实现

Answer 3

在开发工具里面，点击插入，插入表单控件里面的复选框就可以了，如果要实现某个功能是需要写VBA代码的