Office Hack

はじめに、複製したいチェックボックスを選択します。

①【ホーム】、②【検索と選択】、③【オブジェクトの選択】の順に選択します。

B2セルの【チェックボックス】を選択します。

Ctrl+Dを押すと、チェックボックスがコピーされます。

さらに、Ctrl+Dを押すと、同じチェックボックスがコピーされます。

エクセルファイルを開きます。この時点でチェックボックスを含むシートが用意されています。

エクセルシートを「Excel マクロ有効ブック」で保存したいので、はじめに【ファイル】タブを選択します。

①【名前を付けて保存】タブ、②【このPC】の順に選択します。

「名前を付けて保存」ダイアログボックスが表示されました。

①【ブックを保存したいフォルダー（例：デスクトップ）】を選択し、②『ファイル名（例：マクロ有効化）』を入力し、③ファイルの種類を【Excel マクロ有効ブック】に変更し、④【保存】ボタンを押します。

「マクロ有効化」のファイルが保存されました。

「Excel マクロ有効ブック」で保存されたエクセルファイルを開きます。

①シート内のチェックボックスを【右クリック】し、②【コントロールの書式設定】を選択します。

「コントロールの書式設定」ダイアログボックスが表示されました。

①【コントロール】タブを選択し、②「リンクするセル」のセル番地を【削除】し、③【OK】ボタンを押して完了です。

①「チェックボックス」を【右クリック】し、②【マクロの登録】を選択します。

「マクロの登録」ダイアログボックスが表示されました。

①『マクロ名（例：チェック1_Click）』を入力し、②【新規作成】ボタンを押します。

「Microsoft Visual Basic for Applications」ダイアログボックスが表示されました。

①『以下のコード』を入力し、②【Sub/ユーザー フォームの実行】を選択します。

コードの概要としては各チェックボックスのリンク先をチェックボックスがあるセルの1つ右に表示し、0か-1を返します。

Sub チェック1_Click()

'チェックボックスの1つ右に0か-1を返す
With ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(0, 1)
.Value = Not .Value
End With

End Sub

場合によっては「Microsoft Visual Basic」ダイアログボックスが表示され、実行時エラーになる可能性があります。

この場合は、そのまま【終了】ボタンを押します。

【×】ボタンを押します。

チェックボックスが入っているセルの1つ右側のセルに「-1」が返されたことがわかります。

【チェックボックスと-1を含むセル】を範囲選択し、Ctrl+Cを押します。

【チェックボックスと返した結果をコピーしたいセル（例：B3からC10）】を選択し、Ctrl+Vを押します。

チェックボックスと返した結果が指定したセルにコピーされました。

試しにチェックボックスのチェックマークを1つ外してみましょう。

チェックボックスが1つ外れ、「0」が返されました。

チェックボックスを1つ外しても全てのチェックボックスのチェックマークが外れず、個別のチェックボックスのみ結果を返すことができるようになりました。

①エクセルシートのセル内にあるチェックボックスを【右クリック】し、②【コントロールの書式設定】を選択します。

「コントロールの書式設定」ダイアログボックスが表示されました。

①【コントロール】タブを選択します。②リンクするセルに『セル番地（例：C2）』を入力し、③【OK】ボタンを押します。

チェックマークがついているセル右下の■（フィルハンドル）を下に【ドラッグ】してオートフィルします。

複数のセル内にチェックボックスが配置されました。

そのうち1つの【チェックボックス】を選択します。

1つのチェックボックスのチェックマークを外したつもりが、全てのチェックマークが外れてしまいました。

では、チェックボックスにリンクするセルを設定した場合に、チェックボックスを別々に動作させる設定方法は無いのでしょうか？

上記「マクロを使ってリンクするチェックボックスをコピーする」セクションには、チェックボックスをコピーしても別々に動作させる設定方法について記載しています。