咔片PPT · AI自动生成演示文稿,模板丰富、排版精美 讯飞智文 · 一键生成PPT和Word,高效应对学习与办公

内容导航:


一、excel表格怎么设置excel复选框


方法/步骤

为了便于讲解的需要,小编特别制作了如图所示的界面。在该界面中,有两个分类,在每一个类中都可以根据个人的爱好选择一至多项。

点击“开始”-“Excel选项”,在“基本设置”选项卡中勾选右侧的“在功能区上显示‘开发工具’”,使其显示出来。

切换到“开发工具”功能区,点击插入”下拉列表框,在弹出的列表中选择“复选框(ActiveX控件)”。

然后在文档区域拖动以绘制一个复选框。 并在该复选框上右键单击,在弹出的菜单中选择“属性”以打开“属性对话框”。

在打开的“属性对话框”中将“Caption”设置为空,”BackStyle“设置为透明,边框效果设置为0类型,完成后关闭”属性对话框“。结果如图。

确保当前处于“设计模式”下。 在“复选框”上右击选择“复制”,然后右击文档空白处在弹出的菜单中选择“粘贴”即可生成一个新的“复选框”。然后拖动到合适的位置即可。利用同样的复制和粘贴操作完成其它“复选框”的生成操作。结果如图所示。

完成“复选框”的排列后,再次点击“设计模式”以退出设计模式。此时就可以进行任意勾选或取消勾选操作了。如果想要再次编辑“复选框”的话,只需要点击一下“设计模式”就可以进行编辑了。


二、excel怎么插入复选框


在日常办公过程中,我们都会遇到在 Excel 中设计复选框的情况。虽然也有现成的符号可供选择,但是往往显得很呆板,无法实现任意勾选的功能。那么我下面教你们插入可以随便勾选的复选框。

  excel插入复选框的步骤:

1.打开EXCEL,点击“文件”中的“选项”,如下图;

2. 在选项界面中点击“自定义功能区”

3.在“自定义功能区”中点击“开发工具”,如下图;

4.在菜单栏出现了“开发工具”,在excel中任意一个位置,点击“插入”选择“复选框”,可以插入复选框。右击复选框可以对文字及复选框进行编辑。



三、excel的复选框在哪


第一步:新建一个excel且设置数据有效性【选中X列--数据--有效性】
第二步:开发工具--查看代码--把代码复制进去保存就OK了
代码如下:
Private Sub Worksheet_Change(ByVal Target As Range)

' Developed by Contextures Inc.

' www.contextures.com

Dim rngDV As Range

Dim oldVal As String

Dim newVal As String

If Target.Count > 1 Then GoTo exitHandler

On Error Resume Next

Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)

On Error GoTo exitHandler

If rngDV Is Nothing Then GoTo exitHandler

If Intersect(Target, rngDV) Is Nothing Then

'do nothing

Else

Application.EnableEvents = False

newVal = Target.Value

Application.Undo

oldVal = Target.Value

Target.Value = newVal

If Target.Column = 7 Then '这里规定好哪一列的数据有效性是多选的,A列是第1列,依次类推,如3就是C列,7就是G列

If oldVal = "" Then

'do nothing

Else

If newVal = "" Then

'do nothing

Else

If InStr(1, oldVal, newVal) <> 0 Then '重复选择视同删除

If InStr(1, oldVal, newVal) + Len(newVal) - 1 = Len(oldVal) Then '最后一个选项重复

Target.Value = Left(oldVal, Len(oldVal) - Len(newVal) - 1)

Else

Target.Value = Replace(oldVal, newVal & ",", "") '不是最后一个选项重复的时候处理逗号

End If

Else '不是重复选项就视同增加选项

Target.Value = oldVal & "," & newVal

' NOTE: you can use a line break,

' instead of a comma

' Target.Value = oldVal _

' & Chr(10) & newVal

End If

End If

End If

End If

End If

exitHandler:

Application.EnableEvents = True

End Sub