如何在excel中快速插入或添加多个复选框

Excel技巧 2021-11-25 09:00:43

本文将讲述如何在excel中快速插入或添加多个复选框。如何在Excel中的一个单元格中添加一个复选框。如何在Excel中使用“填充句柄”或“VBA宏”添加多个复选框。

在一个单元格中添加一个复选框

如果要在单元格中添加一个复选框，可以按以下步骤执行：

1＃选择开发工具选项卡，然后单击控件组下的插入命令，选择复选框。

Excel 中如何一次插入多个复选框

2＃单击要插入复选框的一个单元格。它将出现在那个单元格中。

Excel 中如何一次插入多个复选框

3＃您可以移动光标将复选框拖动到所需位置。

如果要在Excel中快速添加多个复选框，可以使用“填充”手柄根据已创建的一个复选框创建多个复选框。请参阅以下步骤：

1＃如上所述插入一个复选框

2＃将复选框移动到单元格中，然后选择该单元格，将自动填充手柄拖动到要填充的单元格区域上。

Excel 中如何一次插入多个复选框

3＃您将看到每个单元格中添加了多个复选框。

Excel 中如何一次插入多个复选框

您还可以编写新的Excel VBA宏快速添加多个复选框，只需执行以下操作：

步骤1：打开您的Excel工作簿，然后单击开发工具选项卡下的“Visual Basic”命令，或者只需按“ALT + F11”快捷方式。

Excel 中如何只複製內容和格式102

步骤2：然后将出现“Visual Basic编辑器”窗口。

Excel 中如何只複製內容和格式91

步骤3：单击“插入” – >“模块”以创建新模块。

Excel 中如何只複製內容和格式101

步骤4：将以下VBA代码粘贴到代码窗口中。然后单击“保存”按钮。

Excel 中如何一次插入多个复选框

Sub addMultipleCheckBoxes()
On Error Resume Next
Set wr = Application.Selection
Set wr = Application.InputBox("Select one Range that you want to add checkbox in:", "addMultipleCheckBoxes", wr.Address, Type:=8)
Set wsheet = Application.ActiveSheet
i = 1
For Each R In wr
With wsheet.CheckBoxes.Add(R.Left, R.Top, R.Width, R.Height)
With Selection
.Characters.Text = R.Value
.Caption = "Check Box" & i
i = i + 1
End With
End With
Next
wr.ClearContents
wr.Select
End Sub