以下の表のように、チェックボックスにチェックすると同時に、その行が自動で非表示になる仕組みを実現する方法について解説していきます。
※こちらで作成したファイルは、記事の最後にて配布しています。
今回の仕組みでは、チェックすると同時に自動でフィルター機能が実行され絞り込みされます。
そのため、フィルター機能を解除することで、簡単に再表示することもできます。
1. 開発準備
今回は、以下の表をもとに作成していきます。
あらかじめ、「済」の項目にチェックボックスを用意しています。
チェックボックスが用意されているセルには、TRUE（チェックされている）/FALSE（チェックされていない）の値が入力されます。
今回は、用意したチェックボックスをチェックすると同時に、フィルター機能による絞り込み（「済」がFALSEの行のみを表示）を実行します。
このように特定のシート上のセルが編集されると同時に、何かしら処理を実行するには、「シートモジュール」の「イベントプロシージャ」を活用します。
シートモジュールは、該当するシートのタブ上で右クリックし、[コードの表示]を選択することで表示できます。
選択すると、以下のエディタ画面（VBE）が表示されます。
また、該当するシートのシートモジュールが表示された状態になります。
「Option Explicit」は、VBEの設定次第では表示されません。「Option Explicit」についての解説はこちらでは省略します。
次に、特定のシート上のセルが編集されると同時に処理が実行される特殊なプロシージャ（イベントプロシージャ）を用意する必要があります。
そのためには、シートモジュールの左上のリストから「Worksheet」を選択します。
「Worksheet」を選択すると、自動で「Worksheet_SelectionChange」というプロシージャが表示されます。
このプロシージャは、該当するシート上のいずれかのセルが選択されると同時に処理が実行されるイベントプロシージャです。
ただ、今回使用するイベントプロシージャは、セルが編集されると同時に処理が実行されるものになります。
そのため、右上のリストから「Change」を選択します。
表示された「Worksheet_Change」というプロシージャを活用します。
「Worksheet_SelectionChange」というプロシージャは削除して問題ないです。
2. コードの記述
以下のコードを記述します。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge >= 100 Then Exit Sub
Dim t As Range
For Each t In Target
If t.Row >= 3 And t.Row <= 15 And _
t.Column = 2 Then
Range("B2").AutoFilter 1, False
Exit Sub
End If
Next t
End Subでは、コードについて解説していきます。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge >= 100 Then Exit Sub
Dim t As Range
For Each t In Target
'省略
Next t
End Sub「Worksheet_Change」というプロシージャの引数「Target」に、編集されたセルの情報が渡されます。
複数セルを同時に編集した場合は、複数セルの情報が渡されます。
こちらでは、編集された１つ１つのセルに対して処理を実行します。
そのため編集されたセルが多い場合は処理が重たくなってしまうため、１００セル以上が同時に編集された場合は処理を終了しています。
次に、編集された１つ１つのセルの情報を受け取る用の「t」という入れ物（変数）を用意し、その「t」にセルの情報を１つ１つ渡して、繰り返して実行しています。
If t.Row >= 3 And t.Row <= 15 And _
t.Column = 2 Then
Range("B2").AutoFilter 1, False
Exit Sub
End If繰り返し処理の中で、対象のセルの行番号が３以上、１５未満、列番号が２のとき、要するに、チェックボックスの範囲内が編集されたときに、チェックされていない行のみをフィルター機能で絞り込みしています。
１回絞り込みを行えば、繰り返し行う必要はないので、処理を終了しています。
3. 完成
以上の内容で実現できます。
チェックボックスにチェックするだけで、その行がフィルター機能により非表示になります。
▼サンプルファイル▼
