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

• #8537 Fire/SOUL/CD félisten Robb202 #8536

  Új Válasz 2010-10-25 19:08:22 #8537

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Robb202 #8536 üzenetére

  Hali!

  Használj AcitveX ComboBox vezérlőt. A munkafüzet megnyitásakor végbemenő eseményhez/eseménybe [ Workbook_Open() ] írsz afféle inicializáló eljárást, ahol feltöltöd adatokkal amit kell, ebben az esetben a ComboBox1-et

  Private Sub Workbook_Open()
  
  With Sheets("Munka1").ComboBox1
  .Clear
  .AddItem ("Igen")
  .AddItem ("Nem")
  End With
  
  End Sub

  Cella színe, attól függően, hogy igen vagy nem-et választottál a ComboBox1-ből

  Private Sub ComboBox1_Change()
  Select Case ComboBox1.Text
  Case "Nem"
  Range("A1").Interior.Color = RGB(255, 0, 0)
  Case Else
  Range("A1").Interior.Color = RGB(0, 255, 0)
  End Select
  End Sub

  A függvényed visszaadott értékét ez alapján már elég egyértelmű feldolgozni, és aszerint színezni a megfelelő cellát...

  Fire.

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