エクセルでチェックリストを自動で作る方法

エクセル

2024.11.11

あなたはエクセルでチェックリストを作る時、チェックボックスを１つずつ作るのが面倒だと思ったことはありませんか？

リストを作って、その横に一つずつチェックボックスを挿入していくのは、リストの項目数が多いと手間ですよね。

エクセルのマクロを使えば、ボタンを1回押せばチェックリストができあがるので、とてもラクです。

今回は「エクセルでチェックリストを自動で作る方法」を紹介します。

エクセルでチェックリストを自動で作る方法
リストを追加してもOK
まとめ

エクセルでチェックリストを自動で作る方法

エクセルでチェックリストを自動で作る方法です。

マクロを作るときは、「開発」タブを使います。
開発タブが出ていない方は、下のリンクで出し方を紹介していますので、まずは準備をお願いします。
→エクセルで開発タブを表示する方法

１．「開発」タブをクリック　→「挿入」をクリック　→「ボタン」をクリック

２．「新規作成」をクリック

３．コード入力画面が開く

４．コードを入力

コードを入力します。

赤枠部のコードです。

    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cell As Range
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 対象のシート名を指定

    ' 最終行を取得
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row

    ' A列のチェックボックスをクリア
    ws.CheckBoxes.Delete

    ' B列にデータがあるセルを対象にチェックボックスを追加
    For Each cell In ws.Range("B1:B" & lastRow)
        If cell.Value <> "" Then
            ' Z列にリンクを設定（Z列は非表示）
            With ws.CheckBoxes.Add(cell.Offset(0, -1).Left, cell.Top, cell.Width, cell.Height)
                .LinkedCell = cell.Offset(0, 25).Address ' Z列をリンク先にする
                .Caption = ""
            End With
        End If
    Next cell

    ' Z列を非表示
    ws.Columns("Z").Hidden = True

コードを入力したら、コードの入力画面を閉じて下さい。

５．ボタンができた　→ボタンをクリック

ボタンができたら、ボタンをクリックします。