Excelでセルをダブルクリックしたときに指定された行または列を非表示または再表示するにはどうすればよいですか？

通常、行や列は右クリックしてコンテキストメニューから「非表示」または「再表示」を選択することで非表示または表示できます。この記事では、Excelでセルをダブルクリックして指定された行や列を迅速に非表示または表示する方法について説明します。

VBAコードを使用してセルをダブルクリックしたときに指定された行または列を非表示または再表示する

VBAコードを使用してセルをダブルクリックしたときに指定された行または列を非表示または再表示する

次のVBAコードを使用すると、特定のセルをダブルクリックすることでワークシート内の指定された行または列を迅速に非表示または再表示できます。以下の手順に従ってください。

1. 行または列を非表示にしたいワークシートを開きます。シートタブを右クリックし、コンテキストメニューから「コードの表示」をクリックします。

2. 開いたMicrosoft Visual Basic for Applicationsウィンドウで、必要な以下のVBAコードのいずれかをコピーしてコードウィンドウに貼り付けてください。

VBA: ワークシート内のセルをダブルクリックして指定された行を非表示/再表示する:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("10:13")
        xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
    End If
End Sub

VBA: ワークシート内のセルをダブルクリックして指定された列を非表示/再表示する:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("D:E")
        xRgHidden.EntireColumn.Hidden = Not xRgHidden.EntireColumn.Hidden
    End If
End Sub

注釈: コード内では、A1:A4、10:13、およびD:Eは、範囲A1:A4内の任意のセルをダブルクリックすると、行10:13または列D:Eが自動的に非表示になることを示しています。

3. Alt + F11キーを押して、 Microsoft Visual Basic for Applicationsウィンドウを閉じます。

これ以降、範囲A1:A4内の任意のセルをダブルクリックすると、行10:13または列D:Eが自動的に非表示になります。そして、そのセルをもう一度ダブルクリックすると、すべての非表示の行または列がすぐに再表示されます。

関連記事:

• Excelでセルをクリックまたはダブルクリックして指定されたユーザー フォームを開くにはどうすればよいですか？
• Excelでセルをダブルクリックしてチェックマークを追加するにはどうすればよいですか？
• Excelでセルをダブルクリックして現在の日付/時刻を自動的に追加/入力するにはどうすればよいですか？
• Excelでセルをダブルクリックしてそのセルの値に1を加算するにはどうすればよいですか？
• Excelで特定のセルをクリックしたときにカレンダーをポップアップさせるにはどうすればよいですか？