Excel如何直接输出勾选对号？如何快速设置？

Excel如何直接输出勾选对号？如何快速设置？

在Excel中，我们经常需要创建勾选框来表示数据的选中状态。通过以下步骤，您可以轻松地在Excel中设置直接输出勾选对号，并快速进行操作。

一、准备工作

在开始之前，请确保您的Excel版本支持VBA宏（Visual Basic for Applications）。大多数现代版本的Excel（如Excel 2010及以上）都支持VBA。

二、使用VBA宏创建勾选对号

1. 打开Excel，然后打开您想要添加勾选对号的工作簿。

2. 按下 `Alt + F11` 打开VBA编辑器。

3. 在VBA编辑器中，找到您想要添加勾选对号的工作表，右键点击该工作表名称，选择“插入” > “模块”，在打开的模块窗口中粘贴以下代码：

```vba

Sub AddCheckboxes()

Dim ws As Worksheet

Dim cell As Range

Dim i As Long

Set ws = ActiveSheet

With ws

For i = 1 To 10 ' 假设我们添加10个勾选框

Set cell = .Cells(i, 1) ' 假设我们添加到第一列

.DrawObject("Rectangle", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Rectangle", cell.Left, cell.Top, 10, 10).ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)

.DrawObject("Rectangle", cell.Left, cell.Top, 10, 10).ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10, 10).ShapeRange.LockAspectRatio = msoFalse

.DrawObject("Line", cell.Left, cell.Top, 10,