-
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
- Konzolokról KULTURÁLT módon
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- PlayStation 5
- Kutya topik
- Vezetékes FEJhallgatók
- Elektromos autók - motorok
- Windows 10
- Az olcsó Macbook sokkolja a PC-ipart az ASUS társvezetője szerint
- Hobby elektronika
- TCL LCD és LED TV-k
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Fallout 4 Pip-Boy Edition eladó
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- 170 - Lenovo Legion Pro 7 (16IRX9H) - Intel Core i9-14900HX, RTX 4090
- Apple iPhone 11 Pro 64GB, Kártyafüggetlen, 1 Év Garanciával
- RÉSZLETRE .OPCIONÁLIS. G.SKILL Trident Z5 Neo RGB 96GB (2x48GB) DDR5 6000MHz
- GYÖNYÖRŰ iPhone 13 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS4681
- BESZÁMÍTÁS! MSI Ventus 3X OC RTX 3090 24GB videokártya garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


Fferi50