-
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
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Otthoni hálózat és internet megosztás
- Xbox Series X|S
- Kerékpárosok, bringások ide!
- Fejhallgató erősítő és DAC topik
- Egyéni arckép 2. lépés: ARCKÉPSZERKESZTŐ
- Samsung kuponkunyeráló
- Vezeték nélküli fülhallgatók
- Yettel topik
- Kínai és egyéb olcsó órák topikja
- További aktív témák...
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- PC Game Pass előfizetés
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Fallout 4 Pip-Boy Edition eladó
- ÁRGARANCIA!Épített KomPhone i5 12400F 16/32/64GB RAM RTX 5060 Ti 8GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! Xiaomi Redmi Note 13, Xiaomi Redmi Note 13 Pro, Xiaomi Redmi Note 13 Pro+
- Honor Magic6 Pro 512GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! MSI Ventus 3X OC RTX 3090 24GB videokártya garanciával hibátlan működéssel
- HIBÁTLAN iPhone 12 Pro 128GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS4493
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


Fferi50