-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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.
-
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 SubCella 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 SubA 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.
-
-
-
válasz
Robb202
#6277
üzenetére
Hali!
Nem csak Te vagy meglepődve, mert hogy annak működnie kellene

[Munka1-en a legördülő, Munka2 A1 : A10 az adatok]
A cella/adat-tartománynak lehet nevet is adni(kijelölöd pl A1 : A10 cellákat és elnevezed pl UBUL-nak).
Az érvényesítésénél nem =Munka2!$A$1 : $A$10-ként hivatkozol rá, hanem =UBUL-ként.
Természetesen ez sem valószínű, hogy megoldja a problémád, de egy próbát megér.Fire.
-
Delila_1
veterán
Új hozzászólás Aktív témák
- Kész rémálom lesz Linuxot használni jövőre az USA egyes államaiban
- Vivo X300 - kicsiben jobban megéri
- Samsung Galaxy A55 - új év, régi stratégia
- Samsung kuponkunyeráló
- Több mint 2 millióan próbálták ki a Pragmata demóját
- Diablo IV
- Arc Raiders
- OnePlus Nord 3 - kapcsoljuk északot
- Xbox Series X|S
- Kerékpárosok, bringások ide!
- További aktív témák...
- BESZÁMÍTÁS! GIGABYTE RTX 3080 Gaming OC videokártya garanciával hibátlan működéssel
- Dobozos Új HP OmniBook 5 Flip 2-in-1 érintőkijelzős laptop i5-1334U 16gb ram 512ssd Garancia
- 0perces DDR5 5600 vadiúj Ramaxel 2x16GB memória 1 év garancia
- Új és újszerű 15-16 Gamer, irodai, üzleti, készülékek nagyon kedvező alkalmi áron Garanciával!
- Új Acer Nitro V15 FHD IPS 144Hz Ryzen7 7735HS 16GB DDR5 512GB SSD Nvidia RTX 4060 8GB Win11 Garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


Fferi50