チェックボックスにチェックが入ったデータだけを別シートへ転記する仕組みを作成しました。

最終的には、

・案件データベース

・新規登録名簿

の2つへ自動転記できるようになりました。

しかし完成までの道のりは意外と大変でした。

一番苦戦したのは、転記処理ではなくチェックボックスの作成です。

今回は実際にAIへ依頼しながら完成するまでの流れを記録します。

■Step1 AIに依頼

【AIへの指示】

Excel VBAでチェックボックスを使ってON/OFFを切り替えたいです。
セルをクリックするだけでチェックを入れたり外したりできる方法を教えてください。

👉 なぜこの指示にしたか
標準のチェックボックスが小さく使いづらかったためです。
サイズ変更できないか確認したところ、別の方法を提案されました。

■Step2 AIの回答

AIからは図形やセルを利用した疑似チェックボックスの提案がありました。

セルをクリックするだけでON/OFFを切り替えられるとのことでした。

👉 一言評価
発想は面白かったですが、最初は仕組みを理解できませんでした。

■Step3 実際に実行

AIが作成したコードをモジュールへ貼り付けました。

しかし何度クリックしても反応しませんでした。

■Step4 結果確認

❌ エラーではないが動かない

モジュールにコードを入れても反応なし

原因が分からず再度AIへ相談

■Step5 AIに修正依頼

【修正依頼の内容】

指定されたセルをクリックしてもチェックボックスがON/OFFできません。

👉 修正した理由
コード自体に問題があると思ったためです。
しかし原因はコードではありませんでした。

AIからは

「そのコードはSheetへ入れてください」

との回答でした。
最初は意味が分かりませんでしたが、シートモジュールへ貼り付ける必要がありました。
とりあえずシートモジュールとは？？？
まさか・・・・・と思いAIへ確認

ここですか？（下図の画像を貼付）

AIから

「はい　その場所です」

やっとコードを貼り付ける場所がわかりました。

■Step6 修正版の結果

シートへコードを移動すると動作しました。

ただし表示されたのはチェックマークではなく「0」と「1」でした。

さらにAIへ相談すると表示形式を変更するよう案内されました。

設定後はチェックボックスとして表示できました。

その後はチェックが入った案件だけを

・案件データベース

・新規登録名簿

へ転記するVBAを作成して完成しました。

■今回のAI評価

今回のコードは問題なく動作しました。
ただしVBA特有の設定場所を知らないと初心者は迷いやすいです。
AIは質問を繰り返しても丁寧に回答してくれたため、完成までたどり着けました。

■今回の気付き

・モジュールとシートモジュールは役割が違う

・VBAの疑似チェックボックスは工夫が必要

・動かない原因がコードとは限らない

・理解できるまで質問できるのはAIの強み

・言葉で状況を伝える力も重要

・GASのチェックボックスは圧倒的に簡単

■完成コード

実際に使用した完成コードはこちら

【VBA版】

▶ VBAで実務用チェックボックスを作る方法コード

▶ VBAでチェックボックスにチェックしたら2つのシートへ転記するコード

【VBA版】

▶ GASでチェックボックスにチェックが入っていたら2つのシートに転記するコード

■AIへ依頼する時のコツ

同じ機能を作る場合は

・どのセルで使用するか

・クリックで切り替えたいか

・チェック時に何を実行したいか

・使用するシート名

まで伝えると精度が上がります。

■結論

✅ AIでVBAのチェックボックス機能は作れる

✅ モジュールとシートの違いを理解する必要がある

✅ 修正しながら進めれば実務で利用できる

■ひとこと

今回は設定場所でかなり苦戦しました。

それでもAIのおかげで最後まで完成できました。

■次回予告

次回は「VBAで担当者別集計」を検証します。

このコードでできること

・入力フォームの内容をSheet2へ登録
・チェック済みデータのみSheet3へ転記
・完了案件と未完了案件を自動で振り分け

VBAコード

Sub 登録処理()

    Dim wsForm As Worksheet
    Dim ws2 As Worksheet
    Dim ws3 As Worksheet
    Dim nextRow2 As Long
    Dim nextRow3 As Long

    Set wsForm = Worksheets("案件入力フォーム") ' 入力フォーム
    Set ws2 = Worksheets("案件データベース")
    Set ws3 = Worksheets("新規登録名簿")

    ' Sheet2へ転記（必ず）
    nextRow2 = ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Row + 1

    ws2.Cells(nextRow2, 1).Value = wsForm.Range("C2").Value '案件名
    ws2.Cells(nextRow2, 2).Value = wsForm.Range("C3").Value '顧客名
    ws2.Cells(nextRow2, 3).Value = wsForm.Range("C4").Value '担当者
    ws2.Cells(nextRow2, 4).Value = wsForm.Range("C5").Value '受注日
    ws2.Cells(nextRow2, 5).Value = wsForm.Range("C6").Value '金額
    ws2.Cells(nextRow2, 6).Value = wsForm.Range("C7").Value 'ステータス
    ws2.Cells(nextRow2, 7).Value = wsForm.Range("C8").Value '備考

    ' 完了チェックがある場合のみSheet3へ
    If wsForm.Range("C9").Value = "1" Then

        nextRow3 = ws3.Cells(ws3.Rows.Count, 1).End(xlUp).Row + 1

        ws3.Rows(nextRow3).Value = ws2.Rows(nextRow2).Value

    End If

End Sub

カスタマイズ例

パターン①

完了以外に「保留」も転記する

If wsForm.Range("C9").Value = "1" Or wsForm.Range("C7").Value = "保留" Then

    nextRow3 = ws3.Cells(ws3.Rows.Count, 1).End(xlUp).Row + 1

    ws3.Rows(nextRow3).Value = ws2.Rows(nextRow2).Value

End If

パターン②

チェックが入ったらメッセージを表示する

If wsForm.Range("C9").Value = "1" Then

    nextRow3 = ws3.Cells(ws3.Rows.Count, 1).End(xlUp).Row + 1

    ws3.Rows(nextRow3).Value = ws2.Rows(nextRow2).Value

    MsgBox "完了案件を転記しました"

End If

よくあるエラー

症状

チェックを入れても「新規登録名簿」へ転記されない

対処法
・C9セルが「☑」になっているか確認
・参照セルが変更されていないか確認

症状

実行時エラー「インデックスが有効範囲にありません」

対処法
・シート名を確認する
・「案件入力フォーム」「案件データベース」「新規登録名簿」が存在するか確認する

サンプルファイル

このコードを試せるサンプルファイルを配布しています。

▶ サンプルファイルをダウンロード（.zip）

関連記事

▶ VBAで入力フォームの内容を別シートへ登録するコード

▶ VBAで入力フォームを自動クリアするコード

▶ VBAで疑似チェックボックスを作成する方法

次回予告

次回は「VBAで担当者別にデータを集計するコード」を紹介予定です。

・実務で使いやすいチェックボックスの作り方

・フォームコントロールを使わない管理方法

・VBAでチェックをON/OFFする方法

Excelにはチェックボックス機能があります。

しかし実務ではフォームコントロールを使わずに管理する場合もあります。

この記事では、セルをクリックするだけでチェックをON/OFFできる実務向けの方法を解説します。

結論

・セルには0と1を保存する

・表示形式で☐と☑を表示する

・VBAでクリック時に0と1を切り替える

・集計や転記処理が簡単になる

・実務の管理表で使いやすい

なぜこの方法を使うのか

Excelのチェックボックスは便利ですが、大量に配置すると管理が大変になります。

実務では、

・0＝未チェック

・1＝チェック済み

として管理し、表示だけを変更する方法がよく使われます。

見た目はチェックボックスですが、中身は数値なので集計や転記が簡単になります。

手順

Step1 表示形式を設定する

チェックボックスとして利用するセルを選択します。（今回はセルC９）

右クリック → セルの書式設定を開きます。

表示形式 → ユーザー定義を選択します。

種類に以下を入力します。

[=1]"☑";[=0]"☐"

設定すると、

・0 → ☐

・1 → ☑

と表示されます。

Step2 VBA画面を開く

Excelで Alt + F11 を押します。

VBE（Visual Basic Editor）を開きます。

Step3 対象シートを開く

左側のプロジェクトエクスプローラーから対象シートをダブルクリックします。

例

・案件入力フォーム

など

Step4 コードを貼り付ける

対象シートへ以下のコードを貼り付けます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Address <> "$C$9" Then Exit Sub

    Application.EnableEvents = False

    If Target.Value = "0" Or Target.Value = "" Then
        Target.Value = "1"
    Else
        Target.Value = "0"
    End If

    Application.EnableEvents = True

End Sub

Step5 動作確認をする

Excelへ戻ります。

C9セルをクリックすると、

☐ ⇔ ☑

が切り替わります。

この方法のメリット

集計しやすい

中身は数値なのでCOUNTIFなどで集計できます。

VBAで判定しやすい

チェック済みだけを簡単に抽出できます。

シートが重くなりにくい

フォームコントロールを大量に配置する必要がありません。

転記処理に利用しやすい

チェック済みデータだけを別シートへ転記できます。

よくあるトラブル

チェックが切り替わらない

原因
コードを標準モジュールへ貼り付けている

解決方法
対象シートへ貼り付ける

☑と☐が表示されない

原因
表示形式が設定されていない

解決方法
ユーザー定義の表示形式を設定する

他のセルで使えない

原因
C9セルのみ対象になっている

解決方法
以下の部分を変更する

If Target.Address <> "$C$9" Then Exit Sub

次回の記事につながるポイント

今回の方法では、

・0＝未チェック

・1＝チェック済み

としてデータを管理しています。

そのためVBAではチェック済みデータだけを簡単に判定できます。

次回は、チェックが入っているデータだけを2つのシートへ転記する方法を解説します。

関連するガイド記事

▶ VBAとは何か

▶ VBAの始め方

▶ VBAの実行方法

▶ マクロを有効にする方法

関連コード記事

▶ VBAで案件データを登録するコード

▶ VBAで入力フォームを自動クリアするコード

▶ VBAで平均値を計算するコード

まとめ

実務では見た目だけチェックボックスにし、中身を0と1で管理する方法がよく使われます。

集計や転記との相性も良く、管理表を作る際に便利なテクニックです。

■このコードでできること

・案件データベースへ自動登録
・チェック時のみ別シートへ自動転記
・入力フォームを自動クリア

GASコード

function saveProject() {
  var ss = SpreadsheetApp.getActiveSpreadsheet();
  var wsForm = ss.getSheetByName("案件入力フォーム");
  var wsDB = ss.getSheetByName("案件データベース");
  var wsNew = ss.getSheetByName("新規登録名簿");

  // 最終行取得
  var lastRow = wsDB.getLastRow();
  var nextRow = lastRow + 1;

  // 案件ID生成（A00001形式）
  var seq = nextRow - 1;
  var caseId = "A" + ("00000" + seq).slice(-5);

  // 日付
  var now = new Date();
  var formattedDate = Utilities.formatDate(
    now,
    Session.getScriptTimeZone(),
    "yyyy/MM/dd HH:mm"
  );

  // 入力値取得
  var c2 = wsForm.getRange("C2").getValue();
  var c3 = wsForm.getRange("C3").getValue();
  var c4 = wsForm.getRange("C4").getValue();
  var c5 = wsForm.getRange("C5").getValue();
  var c6 = wsForm.getRange("C6").getValue();
  var c7 = wsForm.getRange("C7").getValue();
  var c8 = wsForm.getRange("C8").getValue();
  var isChecked = wsForm.getRange("C9").getValue();

  // 案件データベースへ登録
  wsDB.getRange(nextRow, 1).setValue(formattedDate);
  wsDB.getRange(nextRow, 2).setValue(caseId);
  wsDB.getRange(nextRow, 3).setValue(c2);
  wsDB.getRange(nextRow, 4).setValue(c3);
  wsDB.getRange(nextRow, 5).setValue(c4);
  wsDB.getRange(nextRow, 6).setValue(
    Utilities.formatDate(
      new Date(c5),
      Session.getScriptTimeZone(),
      "yyyy/MM/dd"
    )
  );
  wsDB.getRange(nextRow, 7).setValue(c6);
  wsDB.getRange(nextRow, 8).setValue(c7);
  wsDB.getRange(nextRow, 9).setValue(c8);

  // チェックありのみ別シートへ転記
  if (isChecked === true) {

    var nextRowNew = wsNew.getLastRow() + 1;

    wsNew.getRange(nextRowNew, 1).setValue(formattedDate);
    wsNew.getRange(nextRowNew, 2).setValue(c2);
    wsNew.getRange(nextRowNew, 3).setValue(c3);
    wsNew.getRange(nextRowNew, 4).setValue(c4);
    wsNew.getRange(nextRowNew, 5).setValue(
      Utilities.formatDate(
        new Date(c5),
        Session.getScriptTimeZone(),
        "yyyy/MM/dd"
      )
    );
    wsNew.getRange(nextRowNew, 6).setValue(c6);
    wsNew.getRange(nextRowNew, 7).setValue(c7);
    wsNew.getRange(nextRowNew, 8).setValue(c8);

  }

  // 入力フォームクリア
  wsForm.getRange("C2:C8").clearContent();
  wsForm.getRange("C9").setValue(false);

  // 完了通知
  SpreadsheetApp.getUi().alert("案件を登録しました。");
}

■カスタマイズ例

パターン①

チェックボックスのセルを変更する

var isChecked = wsForm.getRange("D10").getValue();

パターン②

転記先シート名を変更する

var wsNew = ss.getSheetByName("顧客管理表");

■よくあるエラー

症状

TypeError: Cannot read properties of null

対処法
・シート名が一致しているか確認する
・全角半角の違いを確認する

症状

チェックしても転記されない

対処法
・C9がチェックボックスになっているか確認する
・TRUE/FALSEが取得できているか確認する

■サンプルファイル

このコードを試せるGoogleスプレッドシートを配布しています。

▶ 案件入力フォーム_スプレッドシート_2（GASコードなし）

▶ 【完成】案件入力フォーム_スプレッドシート_2（コード付き）

■関連記事

▶ GASで案件データを登録するコード（setValue）

▶ GASで入力フォームを自動クリアするコード

▶ GASで担当者別にデータを集計するコード

■次回予告

次回は「担当者別集計」を紹介予定です。