- iPhone topik
- Mobil flották
- Nokia 6.2 - kötelezők röviden
- Samsung Galaxy A55 - új év, régi stratégia
- Samsung Galaxy S23 Ultra - non plus ultra
- Megérkeztek a Xiaomi 15T sorozatának telefonjai Magyarországra
- Apple iPhone 17 - alap
- Honor 200 Pro - mobilportré
- Végre egy tényleg jó Duotts bringa! - E29 teszt
- Sony Xperia 1 V - kizárólag igényeseknek
-
Mobilarena
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
superecneB #6916 üzenetére
Ha 2007-esnél régebbi verziód van, lefuttatod az alábbi kis makrót, ami a zöld hátterű cellák sorában a C oszlopba 1-et, a nem zöldek mellé 2-t ír. Ezután már tudod rendezni a C oszlop szerint, igény esetén a C-n belül más oszlopokat is bevehetsz a rendezésbe.
Sub szin()
Dim sor As Integer
sor = 1
Do While Cells(sor, 1) <> ""
If Cells(sor, 1).Interior.ColorIndex = 35 Then
Cells(sor, 3) = 1 'Itt írd át a 3-at, hogy ne a 3. (C) oszlopba írja a számot
Else
Cells(sor, 3) = 2 'és itt.
End If
sor = sor + 1
Loop
End SubA különböző zöldeknél a 35 helyére a megfelelő számot írd.
-
válasz
superecneB #6916 üzenetére
Hali!
2007-esben ez megoldható, nézd meg, hogy működik-e 2003-ban is(teljesen elfelejtem a 2003-at lassan)
1. Alaphelyzet
2. Belekattintok az adott oszlopba, Rendezés és szűrés/Egyéni sorrend
3. Megjelenő ablakban meg lehet adni, hogy a Rendezés alapja, az a cella színe legyen, mindez KÉPBEN
4. Leokézod és ez lesz az eredményFire.
-
WildBoarTeam
senior tag
válasz
superecneB #6916 üzenetére
Szia
Tudtommal az Excel "formázás" alapján nem tud rendezni (vagyis neked csak az kell, hogy ezek előre kerüljenek, a többi sorrendje mindegy, bár jelen esetben mindegy).
Szerintem ez nem ilyen egyszerű, de pl ha van a keresett értékeidben valami közös, akkor az alapján, már szűrhetnéd (Autószűrő vagy hasonló?).
Új hozzászólás Aktív témák
- Törött Apple iMac 19.2 i5-8500 Radeon Pro 560X 4GB 16GB 256GB SSD 21.5" 4K Retina
- HIBÁTLAN iPhone 13 mini 128GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3337, 94% Akkumulátor
- Lenovo Thinkcentre M920t Tower/ M720s SFF / i5-8-9. gen/ WIN10-11/számla, garancia
- ÁRGARANCIA!Épített KomPhone Ryzen 5 4500 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
- OLCSÓBB!!! HP Z8 G4 Workstation (gamer célra is) dupla CPU Xeon Gold 6134
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest