（VBA）を使用してExcelで選択した列を非表示にするボタン

Question

私はヘルプを求めます。

ここは私のプロジェクトです。私は、このデータ

を持っているもの、私がやりたいことは2016年1月 に2010年1月から日と名付け、各列は、私が非表示にすることが想定再表示

するためのボタンを非表示し、ボタンを作ることです3月のすべての列は自動的に3月以外の列をすべて非表示にします。

私のコードには少し助けが必要です。これは、もしcell.entirecolumn.Hidden = cell.value = Range（ "I1"）がTrueならセルの値を持つ列が範囲内に隠れてしまいます。意味の範囲（「A1」）が再表示されますと、その後のすべての列が含まれていると非表示になりますされていないすべての列ならば...ここに私のコード

サブHide_Columns（）範囲 アプリケーションとして 薄暗い細胞であること。 （ "A1：F1" ActiveSheet.UsedRange、レンジ（））が交差内の各セルについては ScreenUpdating = Falseの cell.EntireColumn.Hidden = cell.Value =範囲（ "I1"）AND NOTのisEmpty（セル） 次電池 Application.ScreenUpdating = True End Sub

あなたがここに頼む前にGoogleを使用してみてください

サブShow_All_Columns（） Columns.Hidden = Falseの End Subの

Answer 1

。

Sub HideCols() 
    Columns("A:BZ").Select 
    Selection.EntireColumn.Hidden = True ''Hide 
End Sub 

Sub ShowCols() 
    Columns("A:BZ").Select 
    Selection.EntireColumn.Hidden = False ''Unhide 
End Sub 

、その後if文で、いくつかのColumns("A:BZ").Selectをパラメータ： 私はあなたがこれを始めることができると思います。最後に、2つのSubを呼び出すボタンを追加します。