-
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
- Meghalt a Windows 10, éljen a Windows 10!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Vivo X200 Pro - a kétszázát!
- Anime filmek és sorozatok
- Soundbar, soundplate, hangprojektor
- iPhone topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Borotva, szakállnyíró, szakállvágó topic
- A fociról könnyedén, egy baráti társaságban
- Samsung Galaxy S25 - végre van kicsi!
- További aktív témák...
- Árváltozás + játék DVD: Splinter Cell Blacklist the 5th Freedom Edition
- MS SQL Server 2016, 2017, 2019
- Calman Home for LG licenc (PGenerator támogatással) ÚJ ára 66.000 Ft.
- Árváltozás + játék DVD: Fallout New Vegas Collector's Edition
- Árváltozás+játék DVD: Bioshock Infinite Ultimate Songbird Edition
- HATALMAS AKCIÓK! GARANCIA, SZÁMLA - Windows 10 11, Office 2016 2019 2021,2024, vírusírtók, VPN
- Apple iPhone 13 Pro max 512GB,Újszerű,Dobozával,12 hónap garanciával
- Asus TUF Gaming F15 FX507 - 15,6"FHD 144Hz - i5-12500H - 8GB - 512GB SSD - RTX 3050 - 1 év garancia
- HIBÁTLAN iPhone 14 Pro 128GB Space Black -1 ÉV GARANCIA -Kártyafüggetlen, MS3590
- LG 49SE3D-B 49" FullHD LED Monitor
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő