ブック内の複数のシートの列を非表示にする方法は？

Excelでは、XNUMXつのワークシートの列をすばやく非表示にできますが、一度に複数のシートの列を非表示にしようとしたことがありますか？ 通常、すべてのシートを選択して非表示機能を適用しようとしても、正常に機能しません。 この記事では、複数のワークシートの列をすばやく非表示にする方法について説明しますか？

VBAコードを使用してブック内の複数のワークシートの列を非表示にする

VBAコードを使用してブック内の複数のワークシートの列を非表示にする

次のコードは、すべてのワークシートで特定の列をすぐに非表示にするのに役立ちます。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード：一度に複数のシートの列を非表示にします。

 Sub Hide_Columns()
'Updateby Extendoffice
    Dim iWs As Integer
    Dim sCol As String
    On Error Resume Next
    sCol = Application.InputBox("Input entire column,Eg A:A OR A:B", _
                                "Kutools for Excel", , , , , , 2)
    If sCol = "" Then
        MsgBox "Empty columns", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    For iWs = 1 To ThisWorkbook.Worksheets.Count
        ThisWorkbook.Sheets(iWs).Columns(sCol).Hidden = True
    Next iWs
    On Error GoTo 0
End Sub

3。 次に、 F5 このコードを実行するためのキーを押すと、すべてのワークシートで非表示にする列を入力するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

4. そして、 OK ボタンをクリックすると、指定した列がすべてのワークシートで一度に非表示になります。