行が非表示になったときにチェックボックスを隠すにはどうすればよいですか？

通常、チェックボックスが含まれている行を非表示にすると、そのチェックボックスは行と一緒に非表示にならず、下のスクリーンショットに示されているように、他の行の内容と重なってしまいます。Excelで行を非表示にしたときにチェックボックスを隠すにはどうすればよいでしょうか？この記事では、その解決方法をご紹介します。

VBAコードを使用して行が非表示になったときにチェックボックスを隠す

VBAコードを使用して行が非表示になったときにチェックボックスを隠す

以下のVBAコードを実行することで、Excelで行が非表示になったときにチェックボックスを隠すことができます。

1. 隠したいチェックボックスがあるシートタブを右クリックし、右クリックメニューから「コードの表示」を選択します。

2. 「Microsoft Visual Basic for Applications」ウィンドウで、以下のVBAコードをコピーして「コード」ウィンドウに貼り付けます。

VBAコード：行が非表示になったときにチェックボックスを隠す

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xChkBox As CheckBox
    Dim xCell As Range
    Dim xHide As Boolean
    If Target.EntireRow.AddressLocal = Application.Intersect(Target, Target.EntireRow).AddressLocal Then
        xHide = (MsgBox("Hide Rows ???", vbYesNo + vbQuestion, "Kutools for Excel") = vbYes)
        Target.EntireRow.Hidden = xHide
        For Each xChkBox In ActiveSheet.CheckBoxes
            Set xCell = xChkBox.TopLeftCell
            If Not Intersect(xCell, Target) Is Nothing Then
                xChkBox.Visible = Not xHide
            End If
        Next
    End If
End Sub

3. その後、「Microsoft Visual Basic for Applications」ウィンドウを閉じるために「Alt」＋「Q」キーを同時に押します。

4. 隠したいチェックボックスのある行全体を選択すると、ダイアログボックスがポップアップするので、「はい」ボタンをクリックしてください。

これで、下のスクリーンショットに示すように、すべてのチェックボックスが行と一緒に非表示になります。

注: 非表示になっているチェックボックス付きの行を表示するには、非表示の行を含む行全体を選択し、ポップアップするダイアログボックスで「いいえ」ボタンをクリックしてください。すると、チェックボックス付きの行が表示されます。

関連記事：

• Excelで今日の日付に基づいて行を非表示にするにはどうすればよいですか？
• Excelでプラスまたはマイナス記号を使用して行または列を非表示/表示するにはどうすればよいですか？