Új hozzászólás Aktív témák

• #15430 Delila_1 veterán Attas #15428

  Új Válasz 2012-11-07 07:11:24 #15430

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Attas #15428 üzenetére

  Az első esetben 2 tételből választhatsz. Bármelyik kiválasztása újabb 2×4 választási lehetőséget adsz (a B2:B5, vagy B8:B11 tartományból). Ennek ellenére a harmadik választásnál csak 2 újabb tartományból való választás lehetőségét adod meg a ComboBox2 AfterUpdate eseményében.

  Több elágazásnál érdemes a Select Case utasítást alkalmazni.

  Private Sub ComboBox2_AfterUpdate()
  ComboBox3.Text = ""
  
  Select Case ComboBox2.Text
  Case "GE Gen2"
  ComboBox3.List = Sheets("Adattábla").Range("C2:C6").Value
  Case "GE Gen3"
  ComboBox3.List = Sheets("Adattábla").Range("C7:C12").Value
  Case "GE Gen4"
  ComboBox3.List = Sheets("Adattábla").Range("C13:C17").Value
  '...
  '...
  End Select
  End Sub

Új hozzászólás Aktív témák