-
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
-
Mutt
senior tag
válasz
Vérboci
#52062
üzenetére
Szia,
Én sem biztos, hogy értem a problémát, de talán olyan kell amit most bemutatok (Excel 2010-től működik).
Illetve lenne még egy másik lehetőség, ami nagyon új. Kb 3 hetes és csak béta tesztelőknek érhető el.
PIVOTBY függvény használata. Még én sem próbáltam ki, de 2 éven belül inkább már az lesz a standard.Mutatom, hogy mostani Excel-el mit tudnál megcsinálni.
A képen bal oldalt az adatsor ami tartalmazza, hogy adott napon adott dologgal milyen eredmények voltak.
Ezt egy táblázatban tárolom, aminek a neve "Adatsor".
Mellette van egy legördülő lista, ahol az issue-k közül lehet választani. Ez is táblázatban van, aminek a neve "Oszlop".
Jobb oldalt pedig van egy Pivot, egész pontosan egy Power Pivot egy számított mezővel, aminek a neve Hiba.Ez a "Hiba" mindig a legördülő listának megfelelő értéket mutatja.
Lépések:
1. Adatsoron állva kimutatás beszúrásánál egy plusz lépés kell. Bepipálni az adatmodel-hez a hozzáadást.
2. Megcsinálod a pivotodat de az érték mezőhöz még nem adsz hozzá semmit.
3. Állj bele a másik táblába, ahol a legördülő listából lehet választani a kivánt értéket. Majd Power Pivot menűben az "Add to data model"-t válaszd. Ha nincs Power Pivot menűd, akkor Feljesztő/Developer menűben a COM-in bövitmények között engedélyezd. Zárd be a Power Pivot ablakot.
4. Most menj vissza a kimutatáshoz és jobb klikk a táblázat nevén (ami nálam Adatsor) és válaszd az új eredmény létrehozását.
A felugró ablakban adsz neki egy nevet (nálam "Hiba") és kell egy képlet, ami ez:
=SUMX(CALCULATETABLE(Adatsor;INTERSECT(VALUES(Adatsor[Issue]);VALUES(Oszlop[Issue])));[Value])Ehhez egy kis súgó. A SUMX összegzi a megadott tábla adott oszlopát. A képlet végén található a [Value], ez az oszlop aminek az értékeit összeadja. Előtte pedig a CALCULATETABLE függvény segítségével állítjuk leszűrjük a teljes adatsort csak azon sorokra, ahol az "Issue" oszlopban azonos érték van, mint amit kiválasztottunk.
5. A frissen létrehozott "Hiba" eredményt add az érték mezőhöz.
Készen is vagy.Innentől csak válaszd ki a kivánt oszlopot és nyomj egy frissítést a kimutatáson.
üdv
-
Delila_1
veterán
válasz
Vérboci
#52066
üzenetére
Írtam egy kis makrót, ami elvégzi az adatokat tartalmazó oszlopok láthatóságát.
Modulba kell bemásolnod (lásd az összefoglalóban a leírását).Sub Frissites()Dim oszlop As IntegerActiveSheet.PivotTables("Kimutatás1").PivotCache.Refresh 'Itt a saját kimutatásod nevét'írd a Kimutatás1 helyéreFor oszlop = 2 To 14If Application.WorksheetFunction.Sum(Columns(oszlop)) > 0 ThenColumns(oszlop).EntireColumn.Hidden = FalseElseColumns(oszlop).EntireColumn.Hidden = TrueEnd IfNextEnd SubA füzetet makróbarátként kell mentened.
A kimutatást tartalmazó lapra kitehetsz egy gombot, amihez hozzárendeled a Frissites makrót. Gombon jobb klikk, makró hozzárendelése. -
-
Fferi50
Topikgazda
válasz
Vérboci
#51741
üzenetére
Szia!
Esetleg próbáld meg Táblázattá alakítani a tartományodat:
Beleállsz a sorba - Beszúrás - Táblázat - gondolom fejléces.
A Fájl - Beállítások - Speciális részben az Adattartomány végén a formázás és a képletek folytatása négyzetet bejelölöd.
Sajnos a táblázat végén a Tab továbbra sem fog új sort nyitni, de ha elkezded a következő sort, akkor a képletek automatikusan "lehúzódnak".
Üdv. -
Delila_1
veterán
válasz
Vérboci
#51741
üzenetére
Alt+F11-gyel belépsz a VBA szerkesztőbe. Bal oldalon kiválasztod a lapodat, a beállításoknál (Properties) a ScrollArea tulajdonságnál beállítod a területet, ahonnan nem akarsz kilépni.
A képen az A : D terület van megadva,
Szerk.: sajnos ezt minden megnyitáskor újra be kell állítani, hacsak megnyitáshoz nem írsz egy rövid makrót, a ThisWorkbook laphoz rendelve. Ekkor makróbarátként kell mentened a füzetet.
-
Mutt
senior tag
válasz
Vérboci
#51587
üzenetére
Szia,
... az eredeti táblázat nem módosítható bizonyos okokból, a kimutatáshoz azonban szükséges pár új adat.
A forrás táblázat csak dátumot tartalmaz, de a kimutatásnak heti alapon kell történnie.Kaptál már javaslatot, de szerintem van egyszerűbb megoldás is, ha Excel 2013 vagy frissebbet használsz.
PowerPivot-ot javaslok.Két módszert is mutatok, mindegyiknél az első lépés, hogy a jelenlegi adatot a Power Pivot adatmodellhez hozzá kell adni. Jelöld ki/állj az adatsoron Excelben majd Power Pivot menű (ha nincs ilyened akkor a Fejlesztő/Developer menüben a COM Add-ins alatt tudod aktiválni) és "Add Data to Model".
1. módszer
A betöltött adat végén az "Add column" oszlopba kattintva lehet ún. számított oszlopot / calculated column felvenni, ami minden soron végigmenve elvégzi a számítást, amit a táblázat feletti szerkesztőlécben lehet megadni. A formátum "oszlopnév := képlet". Ha a hét száma kell, akkor a WEEKNUM függvény kell. (Power Pivot DAX függvényeket használ, amelyek többsége hasonlít az Excel megfelelőjére, de a lényeg hogy ezek nem Excel függvények.Ha ez megvan, akkor már csak Kimutatás/Pivot kell de a forrásnak az adatmodell-t kell megadni.
Ezek után csak a frissítés gombot kell használni, az új oszlop az adatmodellben automatikusan tenni fogja a dolgát.
2. módszer
Érdemes egy dátumnaptárat létrehozni. Ehhez Excelben a legegyszerűbb megoldás, ha egy új lapon felsorold az összes napot (érdemes az év minden napját megadni, de nem kötelező) és betöltöd az adatmodellbe. Adj új oszlopokat hozzá, ami téged érdekel:
pl. hónap sorszámmal =MONTH(Table2[Dátum])
hónap rövidített névvel =FORMAT(Table2[Dátum];"mmm")
hónap teljes névvel =Format(Table2[Dátum];"mmmm")
negyedév =INT(([Month]+1)/4)+1 & "Q"Ezek után a Design fülön érdemes a naptárat megjelölni.
Ezek után kapcsoljuk össze a két táblát. Design menű és Manage relationship.
Menjünk vissza az Excelbe (File -> Close) és megint adatmodellből készítjük a kimutatást. Itt a dátummal kapcsolatos mezőket a dátumnaptárból tegyük a kimutatásba, a többi jön az eredeti adatsorból. Mivel a két tábla össze van kapcsolva az Excel a megfelelő szűrést fogja mindig elvégezni.
üdv -
-
Vérboci
addikt
válasz
Vérboci
#1437
üzenetére
Na mégis jó lesz az FKERES, csak minden adatoszlop kiiratására külön kell egy.
Szóval megy. Köszi.
SZERK.: CSakhogy felmerült egy nem is kicsiny probléma.
A megjegyzés oszlopban hiperhivatkozások vannak az eredeti bizonylatok scannelt példányához. Az FKERES az elérési utat ki is írja, de az nem lesz hivatkozás, így rákattintani sem lehet. Na most mit tegyek? Nehogy már a célegyenesben bukjak el!
[Szerkesztve] -
Vérboci
addikt
Na megjött a másik mélre.
Megnéztem, ilyesmi kellene, de hogyan lehetne ezt egy adott időszakra megcsinálni?
Mert a táblában amit küldtél az összes van szűrve, de nekem mondjuk csak az október haviak kellenek.
Illetve szükséges lenne az egész automatizálása. Tehát mondjuk kiválasztja az illető az adott időszakot és akkor egy másik lapon megjelennek a cégek és a kódok.
Tudom, sokat kérek, de fontos dolog. -
Gh0sT
addikt
Nah, megnéztem.. működik
Tegyük fel a következőt:
Az A oszlop tartalmazza a dátumokat
A B a cég neveket
A C a nemtom miket
Fogod magad és csinálsz egy autó szűrőt. Adatok --> autó szűrő
Ezután Adatok --> részösszegek
Csoportosítási alap: B oszlop fejléce (mondjuk cégnév)
Melyik függvénnyel: darab
Összegzendő oszlopok: B oszlop fejléce
OK
Eztán fent az A oszlopon klikkelsz a szűrő nyilacskájára és az egyéni szűrést választod. Itt beállítod a feltételeket a dátumra és kész...
Remélem valami hasonlóra gondoltál...
Új hozzászólás Aktív témák
Fferi50- Samsung Galaxy A54 - türelemjáték
- Google Pixel topik
- Megérkeztek a Xiaomi 15T sorozatának telefonjai Magyarországra
- AMD vs. INTEL vs. NVIDIA
- Windows 10
- Gyúrósok ide!
- Milyen okostelefont vegyek?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Padavan firmware
- PROHARDVER! feedback: bugok, problémák, ötletek
- További aktív témák...
- Bomba ár! Dell Latitude E7440 - i5-4GEN I 8GB I 500GB I 14" HD I HDMI I Cam I W10 I Gari!
- Lenovo ThinkPad T14S Gen1 Ryzen5 4650U -8GB Sale.exe: 29.10.2025-ig Kedvezményes ár! 105.000ft!
- Bomba ár! HP Elitebook 8570P - i5-3GEN I 8GB I 500GB I DVDRW I DP I 15,6" HD I W10 I Garancia!
- BESZÁMÍTÁS! 32GB (2x16) ADATA XPG Lancer RGB 7200MHz DDR5 memória garanciával hibátlan működéssel
- BESZÁMÍTÁS! MSI X370 R5 2600 16GB DDR4 512GB SSD GTX 970 4GB Zalman Z9 Neo FSP 600W
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest