Anhand von ausgewählten listbox-Wert dynamisch ausblenden/einblenden von Spalten

Willkommen zu Stack Overflow. Manchmal werden die makro-recorder ist dein Freund.

Ich nahm ein makro von mir ausblenden von Spalten E bis H. Hier wurde der aufgezeichnete code:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 7/17/2012 by Jimmy Peña
'

'
    Columns("E:H").Select
    Selection.EntireColumn.Hidden = True
End Sub

Die Select/Selection-pair-Mädchen ist ein klares Indiz dafür, dass ich verketten können diese zwei Linien. Kürze ich den code wie folgt:

Columns("E:H").EntireColumn.Hidden = True

Da die Immobilie nimmt einen Wert von True ich weiß, dass ich Spalten ausblenden, indem Sie den Wert auf True und Spalten anzeigen, indem Sie den Wert auf False.

Da Sie noch nicht angezeigt, der code, den Sie verwenden, werde ich einen generischen Ansatz, die Sie benötigen, anpassen für Ihre Nutzung.

Ich habe eine listbox, um ein Beispiel Benutzerformular. Dieser code wird selektiv ausblenden/einblenden je nachdem, welcher Wert ausgewählt ist.

Private Sub ListBox1_Click()

  Dim selectedValue As String

  ' get selected value from listbox
  selectedValue = ListBox1.value

  Application.ScreenUpdating = False

  ' unhide any columns
  Cells.EntireColumn.Hidden = False

  Select Case selectedValue
  Case "JAN"
    Columns("E:H").EntireColumn.Hidden = True
  Case "FEB"
    Columns("I:M").EntireColumn.Hidden = True
  Case "MARCH"
    Columns("N:R").EntireColumn.Hidden = True
  Case "APRIL"
    Columns("S:W").EntireColumn.Hidden = True
  Case "MAY"
    Columns("X:AB").EntireColumn.Hidden = True
  Case "JUNE"
    Columns("AC:AG").EntireColumn.Hidden = True
  End Select

  Application.ScreenUpdating = True

End Sub