excel如何设定按钮,如点一下鼠标就有对号或取消对号
3个回答
展开全部
首先,插入一个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
展开全部
右击菜单栏----表单 表单裏面有一个框起来的对号。点击到你想到的地方。即可实现
来自:求助得到的回答
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在开发工具里面,点击插入,插入表单控件里面的复选框就可以了,如果要实现某个功能是需要写VBA代码的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询