-
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
-
Juditta_56
aktív tag
aaa.xlsx
A K2 cellában (segédoszlop) a képlet:=HA(AZONOS($A2;$A1);"";1)
Ezt elrakhatod bárhová, csak akkor az E2 cellában lévő képletben=HA(AZONOS($K2;1);MIN(INDIREKT(CÍM(SOR();OSZLOP($D$1))):INDIREKT(CÍM(HOL.VAN(1;$K3:$K1000;0)+SOR()-1;OSZLOP($D$1))));E1)
módosítsd az összes K-t a megfelelő betűjelre. Utána persze húzd végig az E oszlopon. Arra figyelj, hogy a K oszlopban lévő képletet egy sorral tovább húzd, mint ahány adat van az A oszlopban.
Biztos fogok kapni, hogy miért az INDIREKT függvényt használom, de nekem bevált.
-
Delila_1
veterán
Függvénnyel nem, de egy rövid makróval igen.
Másold modulba a makrót. Állj a cellára, is indíthatod.
Ha sok ilyen színesítendő cellád van, akkor tehetsz a gyorselérési eszköztárra a makróhoz egy ikont.Sub Piros()
Dim elso As Integer, hossz As Integer
elso = InStr(ActiveCell, "(") + 1
hossz = Len(ActiveCell) - elso
ActiveCell.Characters(Start:=elso, Length:=hossz).Font.Color = RGB(255, 0, 0)
End SubNagyon sok színezendőhöz érdemes egy ciklust írni.
-
föccer
nagyúr
Jelöld ki a felső sort és állíts be rá autoszűrőt. Válaszd ki a megfelelő dátumot és a kategória szerint rakd sorrendbe, majd részösszeggel tudod csoportosan összegezni az adott tételeket.
Lehet egyszerűbb lenne külön vezetni minden hónapra a táblázatot és akkor egy szumha megoldást jelent.
üdv, föccer
-
Sasos
senior tag
Lehet. Ha - az előző példánál maradunk - az A1 cellára teszel egy szűrőt. Majd az "Adatok" fülön "Rendezés és szűrés" opciónál kiválasztod a "speciális" lehetőséget. A "Csak az egyedi rekordok megjelenítése" előtti jelölőnégyzetbe pipa, és már jó is. Így az A oszlopban nincs ismétlődés és közben a C-ben látod, hogy melyik hányszor szerepel az A-ban.
-
Sasos
senior tag
-
Delila_1
veterán
Tedd be a képeket, ahogy sikerül, és egy makróval az összeset egyszerre méretezheted.
Sub Egyforma_meret()
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 77.25
Selection.ShapeRange.Width = 113.25
Application.CutCopyMode = False
End SubA szélesség, és magasság értéket változtathatod, hogy a kívánt értéket elérd. Ha egész számot adsz, a végére #-ot tegyél, pl. 83#.
Új hozzászólás Aktív témák
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- iKing.hu Realme 14 Pro+ Pearl White 512GB használt karcmentes 6 hónap garancia
- HP AI Laptop 15 - Intel Core Ultra 7 255U 16GB 1000GB 1 év garancia
- iPhone 15 Pro 256GB 88% (1év Garancia)- ÚJ EREDETI AKKUMULÁTOR - AKCIÓ
- PC konfig /Ryzen 7 9800X3D, 32GB RAM, 1TB SSD/ akciós áron eladó!
- Samsung Galaxy Z Flip6 12/512GB - ÚJSZERŰ, Kártyafüggetlen, Kék - 1 év garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest





Fferi50