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

• #8538 Delila_1 veterán Robb202 #8536

  Új Válasz 2010-10-25 19:19:53 #8538

  Ú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 Robb202 #8536 üzenetére

  Makró és ComboBox nélkül:

  A kérdéses cellán állva Adatok/Adateszközök/Érvényesítés. Megengedve Lista, a Forráshoz eladva; raktáron; szállítás.

  Továbbra is a cellán állva Kezdőlap/Stílusok/Feltételes formázás/Cellakijelölési szabályok/Egyenlő. Ide beírod az eladva szót, hozzárendeled a megfelelő formátumot a legördülőből. Ugyanezen az úton megadod a másik két szóhoz is a kellő formátumot.

  Mód.:Ez 2007-re vonatkozik, valószínű, hogy nem változtattak ezen a lehetőségen a 2010-ben.

  [ Szerkesztve ]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

• #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.

  Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

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