-
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
-
#34155
Juditta_56
aktív tag
huan
#34154
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
Fferi50- Diablo IV
- Asztrofotózás
- Kész rémálom lesz Linuxot használni jövőre az USA egyes államaiban
- Kerékpárosok, bringások ide!
- Parkside szerszám kibeszélő
- Hivatalos a Poco X8 Pro Max gigantikus akkukapacitása
- Macrodroid
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Poco X3 Pro - hardverfrissítés
- Arc Raiders
- További aktív témák...
- HIBÁTLAN iPhone 12 Pro Max 128GB Pacific Blue -1 ÉV GARANCIA - Kártyafüggetlen, 100% Akkumulátor
- Telefon felvásárlás!! Honor 90 Lite/Honor 90/Honor Magic5 Lite/Honor Magic6 Lite/Honor Magic5 Pro
- Apple iPhone 14 Pro 128GB,újszerű, Adatkabel,12 hónap garanciával
- Apple iPhone 14 Pro Max / 128GB / Kártyafüggetlen / 12Hó Garancia / Akku: 100%
- AKCIÓ! Apple iPad Pro 13 M5 1TB Wifi tablet garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest