ボタンを使用して非表示の列

ボタンを使用して特定の列を非表示にする必要がある場合は、このコードを使用できます。コマンドボタンのテキストを[列を非表示]に変更してから、[列の再表示]に再度変更することもできます。

サブHide_C（）

Dim C_ell As Range ActiveSheet.Shapes.Range（Array（ “Button 2″））。Select If Selection.Characters.Text = “Unhide Columns” Then Columns.Hidden = False Selection.Characters.Text = “Hide Columns”

Else For Each C_ell In Range（ “B1″、Cells（1、Columns.Count）.End（xlToLeft））

If C_ell = “x” Then C_ell.Columns.Hidden = True Next Selection.Characters.Text = “Unhide Columns”

End If Range（ “A2″）。EndSubを選択