「完了したらチェックボックスにチェックを入れ、さらに完了日を入力…」
この手間を減らすため、チェックするだけで完了日が自動入力される仕組みを解説していきます。

※こちらで作成したファイルは、記事の最後にて配布しています。

チェックしたときの日付が入力されますが、チェック後に日付を直接編集することもできます。

1. 開発準備

以下のシートを元に作成していきます。

表の枠組みは、予め２７行目まで（２５件分）用意しています。
B列のチェックボックスは、[挿入]タブの[チェックボックス]にて作成されたものです。

今回は、チェックボックスが配置されたセル（B3～B27）を操作すると同時に処理（D列の完了日を入力）を実行する仕組みを実現します。
そのような、指定したセルを編集すると同時に何かしら処理を実行するには、シートモジュールのイベントプロシージャを活用します。

シートモジュールは、対象シートのタブ上で右クリックし、[コードの表示]を選択することで表示できます。

以下のエディタ画面（VBE）が立ち上がり、対象のシートモジュールが表示されます。

「Option Explicit」はVBEの設定によっては表示されません。「Option Explicit」についての解説はこちらでは省略します。

次に、セルを編集すると同時に処理が実行される特殊なプロシージャ（イベントプロシージャ）を用意する必要があります。
そのためには、シートモジュールの左上のリストから「Worksheet」を選択します。

自動で「Worksheet_SelectionChange」というイベントプロシージャが表示されます。
このプロシージャは、対象のシート上のいずれかのセルが選択されると同時に処理が実行されるものになります。

ただ今回使用するイベントプロシージャは、セルを編集すると同時に処理が実行されるものです。
そのため、次に右上のリストから「Change」を選択します。

表示された「Worksheet_Change」というイベントプロシージャを活用します。
「Worksheet_SelectionChange」は使用しないため、削除して問題ないです。

2. コードの記述①

「Worksheet_Change」内に以下のコードを記述します。

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.CountLarge > 25 Then Exit Sub
    
    Dim t As Range
    For Each t In Target
        If t.Row >= 3 And t.Row <= 27 And _
            t.Column = 2 And _
            t.Value = True Then
            
            Cells(t.Row, "D").Value = Date
            
        End If
    Next t
    
End Sub

では、処理内容について解説していきます。

Private Sub Worksheet_Change(ByVal Target As Range)
    
    '省略
    
End Sub

「Worksheet_Change」というイベントプロシージャは、自動で実行されるときに、引数の「Target」に編集されたセルの情報が渡されます。
単体のセルが編集されたなら単体のセル、複数のセルが編集されたなら複数のセルの情報が渡されます。

    If Target.CountLarge > 25 Then Exit Sub

今回用意した表は、最大で２５件までしかタスクを入力することができません。

そのため同時にチェックされることがあっても２５件までという前提で、２５件よりも多いセルが同時に編集された場合は処理を終了しています。

    Dim t As Range
    For Each t In Target
        '省略
    Next t

「Target」に含まれるセルの情報を１セルずつ受け取る用の変数（t）を用意し、「For Each」で１つずつ受け取っています。

        If t.Row >= 3 And t.Row <= 27 And _
            t.Column = 2 And _
            t.Value = True Then
            
            Cells(t.Row, "D").Value = Date
            
        End If

受け取った単体のセルに対し、行番号が３以上２７以下、列番号が２、値が「True」かどうかを確認しています。
要するに、チェックボックスがチェックされたかどうかの確認になります。

チェックされたときに、そのチェックされた行のD列に日付（Date：今日）を入力しています。

3. 完成（仮）

以上の内容で、必要最低限の機能が実現できます。
用意されたチェックボックスにチェックを入れるだけで、同じ行の完了日の項目に日付が入力されます。

しかし、このままだとチェックを外したときに日付が残ってしまいます。

ということで、チェックが外されたときに同じ行の完了日の項目を空にする処理に書き換えていきます。

4. コードの記述②

以下のように、コードを書き換えます。

続きはIT予備メンバー限定です。

リンクの共有はこちらから行えます。

  リンクコピー    X Facebook はてなブックマーク Pocket