Excelで複数のチェックボックスを素早く挿入するにはどうすればよいですか？

Excelで複数のチェックボックスを素早く挿入するには、次の巧妙な方法を試してください：

フィルハンドルを使用して複数のチェックボックスを挿入

VBAコードを使用して複数のチェックボックスを挿入

Kutools for Excelを使用して複数のチェックボックスをワンクリックで挿入および削除

フィルハンドルを使用して複数のチェックボックスを挿入

Excelでは、フィルハンドルは多くのことを実行できる強力な機能です。これを使用してチェックボックスを埋めることもできます。まず、チェックボックスを挿入する必要があります。以下の手順に従ってください：

1. メニューバーの「Developer」をクリックし、「Insert」を選択して、「Form Control」の下にあるチェックボックスの画像を選択します。スクリーンショットをご覧ください：

2. チェックボックスの画像をクリックすると、プラス記号のポインターが表示されます。チェックボックスを追加したい場所をクリックします。

3. チェックボックスを選択し、セルに移動してから、チェックボックスの名前を削除します。

4. 次に、チェックボックスがあるセルを選択し、フィルハンドルをドラッグして、埋めたいセルの範囲を選択します。スクリーンショットをご覧ください：

VBAコードを使用して複数のチェックボックスを挿入

最初の方法が少し面倒だと感じる場合、次のVBAコードを使用すると、簡単にかつ迅速に複数のチェックボックスを挿入できます。

1. 「Developer」＞「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の「 Batch Insert Check Box」機能をご紹介します。これにより、空白セルやデータのあるセルにチェックボックスを挿入できます。

Kutools for Excelをインストール後、次の手順に従ってください：

1. チェックボックスを挿入したいセルの範囲を選択します。

2. 「Kutools」＞「Insert 」＞「Batch Insert Check Boxes」をクリックします。スクリーンショットをご覧ください：

3. 選択したセルにチェックボックスが以下のように挿入されます。スクリーンショットをご覧ください：

空白セルにチェックボックスを挿入	データセルにチェックボックスを挿入

関連記事：

Excelで複数のチェックボックスを素早く削除するにはどうすればよいですか？