Hozzászólások
-
Ha jól értem, akkor a MUnka3 lapon azt akarod, hogy ha egymás mellé írják be az értékeket az E oszloptól jobbra, akkor minden beírt adat alá tegye be az aktuális időt.
Ehhez csak annyi módosítás kell, hogy a megfelelő helyen a Target.Offset(0,1) helyett azt írd, hogy
Target.Offset(1,0). Azaz a módosított cellához képest 1 sorral lejjebb s nulla oszloppal arrább írja be az időt.Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Target.Offset(1, 0) = Time Application.EnableEvents = True End SubVisszatöltöttem,
Erre gondoltál?Imre
Hát, olyan területre tévedtél, ami még felfedezés előtt áll. Részben még nekem is.
Relációs adatbázis-kezelési ismereteid vannak?Szóval:
1) A PowerQuery megjehyzi az űtvonalakat. ha elmozgatod a fájlokat, nem fogja megtalálni őket.2) Két tábla között csak 1:N kapcsolat lehet. Az egyik táblában(Lookup tábla vagy törzs tábla) a kulcs oszlopban nem lehetnek ismétlődések. VLOOKUP (FKERES) is csak az elsőt találja meg, ott sem lehet ismétlődés a Lookup táblában.
Az adatmodellben megcsinálod a kapcsolatot a két tábla között.
A Lookup táblát te kódtáblának hívod, amásikat akkor hívjuk eredmény táblának.
A kulcs oszlop mindkettőben benne van ugye, csak a kódtáblában egyedi kulcs, ismétlődések nélkül, a másikban idegen kulcs, ismétlődésekkel.Ugye a PowerPivot táblába mindkét táblából húzhatunk mezőket.
Az a javaslat, hogy a csoportosításhoz a lookup tábla (kódtábla) mezőit használjuk, összesítésre pedig az eredménytábla mezőit.Amit Én tapasztaltam a nem létező kódokkal kapcsolatban:
– Ha az eredmény táblában van egy vagy több olyan kód, ami nem létezik a lookup táblában, és az ajánlás szerint a PIVOT SOR dobozába a lookup tábla kód mezőjét húztad, a Szumma dobozba pedig az eredménytábla bármely mezőjét, akkor a PIVOT kód oszlopában keletkezik egy „Blank”(„üres”) sor, és az összesített érték az összes olyan sorra fog vonatkozni, amihez nem talált megfelelőt a lookup táblában.
Ha ezen az összesített számon nyomsz egy dupla klikket, akkor egy új lapra kibontja , hogy mik azok a sorok az eredmény táblában, amikhez kód alapján nincs pár a lookup táblában.-Ha ugyanabben az esetben a PIVOT táblát az eredmény tábla Kód mezője alapján csoportosítod, és a lookup táblából húzol be egyéb csoportosító tulajdonságokta, akkor az eredmény táblában lévő minden kód megjelenik a csoportban, de a másik táblából nem talál hozzá párt -> blank lesz.
– Ha a lookup táblában van olyan kód, ami nem szerepel az eredmény táblában, és a PIVOT táblát a lookup tábal kód oszlopa alapján csoportosítod és az eredmény táblából húzol be összesítéseket, akkor a páratlan kódok meg sem jelennek.
– Ezen kívül lehetőség az adatmodell oldalon számított oszlopot készíteni, amit Te is említettél, hogy sikerült, és itt használni a RELATED függvényt, ami a PowerPivot-ban a VLOOKUP.
– Végül VLOOKUP jellegű összepárosítást lehet csinálni PowerQuery-ben is.
Csatoltam egy minta fájlt a hiányzó párosítású kapcsolt táblákról. Az adatmodell már készen van.
3) A Power Pivot-ban hagyományos számított mező nincs.
Helyette van aMérték (Maesure), amit 2013-ban Számított mezőnek hívtak.
Ez igazából a lényege a Power Pivot-nak. Ez egy akkora téma, hogy itt nem ios tudok hozzákezdeni. Nézz utána.4) Ezt a kérdést nem értem. Mi az, hogy kiforgatsz egy táblát?
5) A PowerPivotban nincs SQL, csak DAX. Ez összefügg a 3. kérdéssel.
Szóval van minek utánanézni, ha ezekkel akarnál dolgozni.
Érdekes, de más.Imre
Szia!
Hány fájl?
Milyen formátumban vannak?
Egy mappában vannak?
—————————-
Rákerestél már a dologra?A PowerQuery tud mappából összefűzni fájlokat.
Új lekérdezés->Fájlból->mappából.Ha Excel fáljokról van szó, akkor az még fontos, hogy csak egy munkalap legyen bennük, vagy mindegyikben az első legyen a kérdéses munkalap, és a munkalapokat ugyanúgy hívják minden munkafüzetben.
Imre
Szia!
Mit szeretnél eredménként?
Színezze őket, vagy külön lista?A külön listához képezni kell a három oszlop gyedi elemeit, és mindegyik mellé egy DARABTELI (COUNTIF) függvény a 3 oszlopra.
A azinezéshez feltetelws formazas ugyanezzel a függvénnyel.
Imre
Gondolom az a cél, hogy bármennyi alkategória lehessen.
Ha már így struktúrálod az adatokat és nem teszed külön oszlopba a kategória neveket, akkor viszont meg kell különböztetned az alkategóriákat a többi bejegyzéstől, amiket x-el jelöltél.Például a végükre írnék egy spec karaktert, mondjuk egy kötőjelet. (Édesség -, Borok -, Testápolók -, stb…)
Majd az összes kitöltött cella számából kivonjuk a kötójelre végződők számát.
És akkor a képlet így nézne ki:=DARAB2(M9:M98)-DARABTELI(M9:M98;"*-")Imre
Szia!
A password dolog így nem kerülhető meg.
Az a biztonságos, ha egy inputbox-ban megkérdezed a jelszót, és nem kerül bele a kódba.Tehát:
Private Sub Workbook_Open() Dim v as string v=inpubox("Jelszó:") Sheets("mlap1").Unprotect Password:=v stb..., mindenhol a v-t beírva End SubA frissítés végén a hibaüzenet lehet, hogy azért lehet, mert a frissítés esetleg még nem fejeződött teljesen be.
próbáld ki, hogy a RefreshAll sor után írsz egyApplication.Wait(Now + TimeValue("0:00:5"))Ez 5 másodpercet vár, mielőtt tovább futna. Addig mehet a frissítés a háttérben.
???Ha ez nem menne, akkor próbáld meg azt, hogy a kapcsolatoknál kézzel kikapcsolod a „Frissítés a háttérben” opciót.
Adatok->kapcsolatok->Tulajdonságok->Háttérfrissítés engedélyezése vagy ilyesmi.Ebben az esetben lehet, hogy a Wait sem kell.
???Imre
Szia!
Ez egy 1 dimenziós tömb.
Amikor deklarálod, akkor dinamikus tömbként tedd.
Dim sorszamok() as integer vagy longAmikor értéket akarsz bele tenni, akkor Redim kulcsszóval újradimenzionálhatod.
Ha a már benne lévő elemeket meg akarod őrizni, akkor a Redim Preserve parancs kell.
Összedobtam egy kis példát, ami az első 500 páros számot beírja egy dinamikus tömbbe While ciklussal.
Külön változóban számolja (i), hogy hol tart a számolással, és külön változót növel akkor, ha párosat talál(tombszamlalo). A tömböt csak utóbbi esetben méretezi át, a végén kiírja a tömb méretét.Sub tomb_proba() Dim sorszamok() As Long Dim i As Integer Dim tombszamlalo As Integer i = 0 tombszamlalo = 0 Do While i <= 1000 If i Mod 2 = 0 Then ReDim Preserve sorszamok(tombszamlalo) sorszamok(tombszamlalo) = i tombszamlalo = tombszamlalo + 1 End If i = i + 1 Loop MsgBox UBound(sorszamok) End SubA tömb rendezése már érdekesebb, mert a tömbökön nincs natív SORT metódus a VBA-ban.
Tehát vagy magadnak kell egy rendezést írni (nyilván csak keresni kell egyet a neten), vagy megpróbálod használni a .NET Core libet, azon belül azArrayList konstrukciót.
Erre leírást itt találsz:
http://www.snb-vba.eu/VBA_Arraylist_en.htmlA bal oldali tartalomjegyzékben van rendezés témakör is.
Ez egy szuper dolog.
Ebben az esetben persze a fenti tömböt is ArrayList-ként kell megcsinálni, és az Add metódusal beletenni a sorszámokat.Végül egy felvetés:
ha az egész algoritmust úgy csinálnád meg, hogy lentről lépkedjen felfelé, akkor a tömbbe eleve csökkenő sorrendben lennének a sorszámok nem?
Bár ha a két ciklus egymás után ugyanazon a tartományon megy végig, akkor ugye egymás után lesznek rendezve.
És ha csak egy ciklust csinálsz és vagy feltétellel nézel két dolgot?
Vagy az első ciklus változtat valamit az adatokon?Imre
Örülök, ha tudtam segíteni.
A cikket nem most ígérem, de sort fogok rá keríteni, mert nem először jött elő.
Nézz rá néha az oldalra, vagy majd jön egy hírlevél, esetleg a Facebook oldal + az oldal követőinek hírfolyamában.Ha van korábbi Excel verziód, az is fog futni Win 10-en, nincs olyan, hogy Excel for Win10 🙂
Az üres cella probléma csak eseménykezelő makróval (change esemény) lenne megoldható, de ott meg pláne gond lesz, mert az Excel makrók és a LibreOffice (vagy hasonló) makrók nem teljesen kompatibilisek.
Úgyhogy ezt kézzel kell csinálnod, vagy utánanézel.
Imre
Szia!
Ez már egy speciálisabb eset, de van rá megoldás, csak keresni kell 🙂
Én pl. többek között itt találtam:
https://www.mrexcel.com/forum/excel-questions/553903-count-unique-values-filtered-column.htmlA használt képlet elég bonyolult, nem elemeztem.
=SUM(IF(FREQUENCY(IF(SUBTOTAL(3,OFFSET(A9,ROW(A9:A42)-ROW(A9),,1)), IF(A9:A42<>"",MATCH(A9:A42,A9:A42,0))),ROW(A9:A42)-ROW(A9)+1),1))A képlet nyilván tömbképlet (CSE), a tartomány a képlet szerint az A9:A42-ben van, ezt módosítsd értelemszerűen.
Ezen kívül a függvények neveit magyarra, a vesszőket pontosvesszőre kell változtatni, ha magyar Excelen dolgozol.Hozzátenném még, hogy Excel 2013 óta az egyedi elemszámot a PowerPivot-tal is meg lehet csinálni, semmi tömbképlet.
Imre
Szia!
Sikerült reprodukálnom a problémát.
Ez egészem megdöbbentő.
Ha lesz időm, kipróbálom PowerQuery-vel is, hogy ott igaz-e ez a probléma.A jó hír az, hogy sikerült találnom egy megoldást.
Mielőtt ezt elmondanám, engedd meg, hogy a képletedhez hozzászóljak.
2007 óta nem szokás használni a HA(HIBÁS… szerkezetet, mert így mindenképpen kétszer fut le a keresés.
Mindegy, hogy HOL.VAN vagy FKERES, nagyon nem hatékony. Helyette a HAHIBA függvényt használjuk.
Ez volt az egyik új függvény a 2007-ben.
Olvasd el ezt!Node a fő probléma megoldása az (jobb híján), hogy az INDEX függvényben használni kell az oszlop paramétert is, és azt a fejlécben történő dinamikus kereséssel adjuk meg.
Írtam az INDEX függvényről is nemrég
Tehát 2D keresést kell csinálnod, ami csak a lényeget tekintve kb. így nézne ki:
INDEX(Könyvelés.xlsm!Könyvelés_query; HOL.VAN([@[Bejövő Számlaszám]]; Könyvelés.xlsm!Könyvelés_query[Bizonylatszám];0); HOL.VAN("Bizonylatszám";Könyvelés.xlsm!Könyvelés_query[#Fejlécek];0))Tehát Az INDEX függvény a teljes „Könyvelés_query” táblában keres, és az adatot az annyiadik sorból adja vissza, amit a HOL.VAN megtalált, és az annyiadik oszlopból, ahol a könyvelési tábla fejlécében a „Bizonylatszám” szöveg van.
Ez nekem működött az összerakott demóban.
Imre
