如何在 Excel 中快速插入多個核取方塊？

我們如何在 Excel 中快速插入多個核取方塊？請按照以下巧妙的方法操作：

使用填滿控制把柄插入多個核取方塊

使用 VBA 程式碼插入多個核取方塊

使用 Kutools for Excel 一鍵插入和刪除多個核取方塊

使用填滿控制把柄插入多個核取方塊

在 Excel 中，填滿控制把柄是一個功能強大的工具，可以用來完成許多事情。它也可以用來填滿核取方塊。首先，您必須插入一個核取方塊。具體步驟如下：

1. 點擊功能表欄中的「開發人員」Developer，然後點擊「插入」Insert，並選擇「表單控制」Form Control 下的核取方塊圖像。參見截圖：

2. 點擊核取方塊圖像，您會看到指針變成加號，點擊您想添加核取方塊的位置。

3. 選擇核取方塊並將其移動到單元格中，然後刪除核取方塊的名稱。

4. 然後選擇核取方塊所在的單元格。接著拖動填滿控制把柄覆蓋您想要填滿的單元格區域。參見截圖：

使用 VBA 程式碼插入多個核取方塊

如果您覺得第一種方法有些麻煩，以下 VBA 程式碼可以幫助您輕鬆快速地插入多個核取方塊。

1. 點擊「開發人員」Developer > 「Visual Basic」Visual Basic，將彈出一個新的 Microsoft Visual Basic for Applications 視窗，點擊「插入」Insert > 「模組」Module，並將以下程式碼輸入到模組中：

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. 接著點擊「確定」OK，核取方塊便已整齊美觀地插入到指定區域中。參見截圖：

使用 Kutools for Excel 插入多個核取方塊

在此，我可以向您介紹一種簡單便捷的方法來插入多個核取方塊——Kutools for Excel，利用其批量插入核取方塊功能，您可以將核取方塊插入空白單元格或帶有數據的單元格中。

安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 選擇要插入核取方塊的單元格區域。

2. 點擊「Kutools」Kutools > 「插入 」Insert > 「批量插入核取方塊」Batch Insert Check Boxes，參見截圖：

3. 然後您的選定單元格將被核取方塊填充，如下列截圖所示：

將核取方塊插入空白單元格	將核取方塊插入數據單元格

相關文章：

如何在 Excel 中快速刪除多個核取方塊？