Note: The other languages of the website are Google-translated. Back to English

如何在Excel中快速插入多个复选框?

我们如何快速在Excel中插入多个复选框? 请在Excel中遵循以下棘手的方法:

使用填充手柄插入多个复选框

使用VBA代码插入多个复选框

使用Kutools for Excel一键插入和删除多个复选框


箭头蓝色右气泡 使用填充手柄插入多个复选框

在Excel中,Fill Handle是执行许多事情的强大功能。 它也可以填充复选框。 首先,您必须插入一个复选框。 进行如下操作:

1。 点击 开发商 在菜单栏中,然后单击 插页,然后选择下面的复选框图像 表格控制。 看截图:

doc-insert-multiple-checkboxes1

2。 单击复选框图像,您将看到加号指针,单击要添加复选框的位置。

doc-insert-multiple-checkboxes2

3。 选择复选框并将其移至单元格,然后删除该复选框的名称。

4。 然后选择复选框所在的单元格。然后将填充手柄拖到要填充的单元格范围内。 看截图:

doc-insert-multiple-checkboxes3


一键插入多个复选框:

Kutools for Excel's 批量插入复选框 实用程序可帮助您一次快速插入多个复选框。 单击以免费下载此功能。

doc插入多个复选框10

Kutools for Excel:具有300多个方便的Excel加载项,可以在30天内免费试用,没有任何限制。 立即下载并免费试用!


箭头蓝色右气泡 使用VBA代码插入多个复选框

如果您认为第一种方法有些麻烦,那么以下VBA代码可以帮助您轻松快速地插入多个复选框。

1。 点击 开发商 > Visual Basic中,一个新的 适用于应用程序的Microsoft Visual Basic 将显示一个窗口,单击 插页 > 模块,然后将以下代码输入到 模块:

Sub InsertCheckBoxes()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Ws = Application.ActiveSheet
Application.ScreenUpdating = False
For Each Rng In WorkRng
    With Ws.CheckBoxes.Add(Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        .Characters.Text = Rng.Value
    End With
Next
WorkRng.ClearContents
WorkRng.Select
Application.ScreenUpdating = True
End Sub

2。 然后点击 文档乘法计算 3 按钮运行代码。 然后将弹出一个提示框,提醒您选择要插入复选框的单元格范围。 看截图:

doc-insert-multiple-checkboxes4

3。 然后点击 OK,这些复选框已被整齐精美地插入了该范围。 看截图:

doc-insert-multiple-checkboxes5


箭头蓝色右气泡 使用Kutools for Excel插入多个复选框

在这里,我可以向您介绍一种轻松便捷的方式来插入多个复选框,Kutools for Excel,其 批量插入复选框 功能,您可以将复选框插入空白单元格或包含数据的单元格。

Kutools for Excel : 带有300多个便捷的Excel加载项,可以在30天内免费试用.

安装后 Kutools for Excel,请执行以下步骤:

1。 选择要插入复选框的单元格范围。

2。 点击 库工具 > 插页 > 批量插入复选框,请参见屏幕截图:

doc-insert-multiple-checkboxes06

3。 然后,您选择的单元格已被复选框填充,如以下屏幕截图所示:

将复选框插入空白单元格 将复选框插入数据单元格
doc-insert-multiple-checkboxes7 doc-insert-multiple-checkboxes8

提示。 如果您想快速删除多个复选框,请尝试使用 Kutools for Excel删除复选框 如以下屏幕截图所示。 它在60天内无限制地提供完整功能, 请下载并立即免费试用.

doc-insert-multiple-checkboxes9

Kutools for Excel:具有300多个方便的Excel加载项,可以在30天内免费试用,没有任何限制。 立即下载并免费试用!


箭头蓝色右气泡 使用Kutools for Excel插入和删除多个复选框

Kutools for Excel:具有300多个方便的Excel加载项,可以在30天内免费试用,没有任何限制。 立即下载并免费试用!

相关文章:

如何在Excel中快速删除多个复选框?


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (51)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
出色的宏,可以快速轻松地将复选框插入选定范围; 谢谢你。 您是否考虑展示一个宏示例,以在选定范围内插入一个自定义下拉列表,其中包含三个选项:“是”、“否”和“可能”?
该评论由网站上的主持人最小化
很棒的把戏……我很喜欢。
该评论由网站上的主持人最小化
为什么这个班只有一个男生???
该评论由网站上的主持人最小化
[quote]为什么这个班只有一个男生???丹尼尔(Daniel)[/quote] :lol: 这只是为了演示。
该评论由网站上的主持人最小化
优秀的宏作品在单元格中添加复选框,谢谢你:-)
该评论由网站上的主持人最小化
优秀作品。 谢谢 :roll:
该评论由网站上的主持人最小化
惊人的! 非常感谢!
该评论由网站上的主持人最小化
当我这样做时,一切都很好(谢谢!)除了选中这些框时,它会自动在单元格中填充黄色。 我如何才能做到唯一发生的事情是选中该框,没有填充颜色? 谢谢!
该评论由网站上的主持人最小化
[quote]当我这样做时,一切都很好(谢谢!)除了选中这些框时,它会自动在单元格中填充黄色。 我如何才能做到唯一发生的事情是选中该框,没有填充颜色? 谢谢!通过#肖恩[/quote] 只需像评论中所说的那样更改行: .FormatConditions(1).Interior.ColorIndex = 6 '勾选时更改其他颜色 如果您不想要颜色更改,请完全保留它。 干杯!
该评论由网站上的主持人最小化
我做到了,但是当我检查一个 boc 时,所有这些都被一起检查。 我怎样才能把它们分开?
该评论由网站上的主持人最小化
代码效果很好! 我现在编辑颜色我想将每个单元格中的复选框居中,知道我需要为此修改什么吗? 谢谢!
该评论由网站上的主持人最小化
[quote]代码很好用! 我现在编辑颜色我想将每个单元格中的复选框居中,知道我需要为此修改什么吗? 谢谢!紫罗兰色[/quote] 对于 WorkRng 中的每个 Rng,使用 Ws.CheckBoxes.Add((Rng.Offset(0, 1).Left - Rng.Left) / 2 + Rng.Left - CkBoxSize, Rng.Top, 0.33, Rng.Height ) .Characters.Text = Rng.Value 结尾
该评论由网站上的主持人最小化
当我打开它时它一直给我一个错误,它必须修复错误? 有什么帮助吗? 如果有人愿意提供帮助,我将发布我从 Microsoft Office 获得的报告。
该评论由网站上的主持人最小化
当您使用链接的单元格复制复选框时,复选框会有点疯狂。 当我想将这些单元格复制到其他地方时,我必须编写一个东西来重置链接。
该评论由网站上的主持人最小化
然后我们可以过滤这些复选框吗? 基本上只显示那些参加过的人?
该评论由网站上的主持人最小化
然后我们可以过滤这些复选框吗? 基本上只显示那些参加过的人?
该评论由网站上的主持人最小化
完全是的。 复选框实际上独立于单元格。 它们基本上漂浮在电子表格上,并通过单击时插入 True 和 False 值的地址链接到单元格(如果将其设为三态复选框,则为 N/A)。 但是当您在 excel 中过滤时,它会隐藏特定的行。 它不会隐藏复选框。 我真的不建议使用这个宏进行过滤。 奇怪的事情会发生,你可能没有意识到当有几个复选框相互重叠,或者两个复选框链接到一个单元格而一个单元格链接到没有复选框时。 我通常做的是创建一个列表,而不是复选标记,我会在相邻的单元格中输入 1 或 0,然后总计。 如果您的信息变得复杂,您甚至可以透视表。 例如,假设您有另一列包含与会者的性别。 你可以算出有多少男性和多少女性参加。
该评论由网站上的主持人最小化
非常感谢!,复选框。
该评论由网站上的主持人最小化
有没有办法让复选框文本成为所选单元格的文本?
该评论由网站上的主持人最小化
是的。 就在这里。 总有办法的。
该评论由网站上的主持人最小化
[引用] 是的。 就在这里。 总有办法的。通过丹尼[/quote] 好的。 我将如何做到这一点。 我不精通excel语法。 我已经尝试过 .text 和 .value (对于上面代码中的 c )。 结果不正确。 我尝试了无数通常会得到结果但没有运气的事情。 我拥有的是一个大型项目符号列表,我想用复选框替换项目符号,并且该框的值和文本是项目符号项的原始文本
该评论由网站上的主持人最小化
嘿,伙计们,这很有帮助-谢谢! 快速提问,我对这种类型的东西完全没有经验,如果它是一个愚蠢的东西,我很抱歉! 我希望只有勾选框(没有真假),我希望这些框在未勾选时为黄色,但在勾选后没有填充,以表示尚未提交草稿和评估等的学生。这是可能的? 有人可以为此发布实际代码,或者引导我完成它吗? 提前谢谢了!!!
该评论由网站上的主持人最小化
如何更改多个复选框的参考地址
该评论由网站上的主持人最小化
我有一个 excel 电子表格,其中有一个问题,然后右侧是其他列“Controls Met,列 f 和 G 带有已选中的复选框,列 F 是或列 G 否。我只想使用过滤器来获取每个有复选标记的卷,但过滤器看不到复选标记
该评论由网站上的主持人最小化
如何更改单元格地址
该评论由网站上的主持人最小化
Sub RelinkCheckBoxes() '您选择的单元格包含行为怪异的复选框。 '然后你运行宏。 '它会更改这些复选框,以便链接的单元格与下面的单元格相对应。 '它还使复选框文本变成单元格文本。 Dim ckbox As Shape Dim rngLinkedCell As Range If ActiveSheet.CheckBoxes.Count = 0 Then Exit Sub '测试选择是一个范围。 If TypeName(Selection) "Range" Then Exit Sub For Each ckbox In ActiveSheet.Shapes '测试该形状是一个控件。 If ckbox.Type = msoFormControl Then '测试该控件是一个复选框 If ckbox.FormControlType = xlCheckBox Then '在复选框下找到选择中的单元格 Set rngLinkedCell = Application.Intersect(ckbox.TopLeftCell, Selection) '分配一个新的链接地址并重命名复选框以匹配。 If Not rngLinkedCell is nothing then With ckbox .OLEFormat.Object.LinkedCell = rngLinkedCell.Address .Name = rngLinkedCell.Address .TextFrame.Characters.Text = rngLinkedCell.Text End With End If End If End If Next
该评论由网站上的主持人最小化
代码工作得很好。 谢谢!
这里还没有评论
加载更多
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护