Hirdetés
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- Brogyi: CTEK akkumulátor töltő és másolatai
- sziku69: Szólánc.
- Geri Bátyó: Samsung T7 1TB külső SSD
- GoodSpeed: Márkaváltás sok-sok év után
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
-
LOGOUT
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
föccer
#54710
üzenetére
Szia,
1) XLSB formátummal elég nagy méret csökkenést lehet elérni. Pl. egy 75 MB xlsx fájl (40 oszlop és 500.000 sor, 75 millió karakter) nekem 22 MB-os lett. Egy hátránya van, ha sérül a fájl (közös megosztásnál ez esélyes lesz), akkor bukta lehet (backup sűrűn),
2) Ketté választanám a feladatokat:
- külön lenne egy fájl (javasolt hogy inkább egy CSV/TXT fájl legyen) ami tartalmazza a logokat (a fenti példa xlsx CSV-ként mentve 72 MB-os lett).
- egy másik ami a riportokat tartalmazza. Power Query-vel be lehet frissíteni és azt mutatni ami kell. Ha csak adatmodellben tárolod az adatokat, akkor ez az Excel nem lesz olyan nagy. A 72 MB-os CSV adatamodellbe téve és egy egyszerű pivottal 19MB-os xlsx fájlt adott. Be lehet állítani, hogy minden megnyitáskor frissüljön a háttérben, így a friss adatok is be fognak kerülni. A CSV/TXT fájlt gyorsabban feldolgozza a PQ mint egy akár kisebb XLSX fájlt!3) El kell engedni az Excel-t adatok tárolására. Kell egy adatbáziskezelő (pl. a MYSQL/MARIADB egy könnyen kezelhető, ingyenes megoldás) az adatokhoz. Ha a a friss logokat nem lehet egyből az adatbázisba rakni, akkor Python-al lehet automatizálni a folyamatot.
Ezek után a vizualizáció: ha kell akkor maradhat az Excel és PQ-val lehet az adatokat lekérdezni. A PQ gyorsabb lesz ez esetben mint a TXT fájlnál.
Ha az Excel-t lehet cserélni, akkor Power BI.
Itt már lesz/lehet "Query folding" ami nagyságrendekkel tudja meggyorsítani a lekérdezést és teljesen interaktívvá lehet tenni az adatokat.üdv
-
-
föccer
nagyúr
válasz
föccer
#54682
üzenetére
Microsoft® Excel® a Microsoft 365-höz MSO (2502 buildverzió16.0.18526.20546) 64 bites
Ahogy nézem augusztus 12. adták ki. Hoppá, akkor viszont benne kell, hogy legyen amit már jó régen várok, amit Delila írt.
Hehe, benne is van.
Ezt elkezdem beépíteni. Pénteken kaptam meg az új rendszert, eddig nem volt ilyen fícsör. 
-
Mutt
senior tag
válasz
föccer
#54672
üzenetére
Szia,
Milyen Excel verziód van? Van Python gombod képletek menüben?
Milyen gyakran frissülnek a verziószámok?
Jelenleg nagyon sok adatban keres a képlet, miközben lehet hogy alig volt változás.
Amin el lehetne gondolkodni, hogy mondjuk az Excel megnyitásakor egy Power Query/Pivot segítségével meghatároznánk a receptekhez tartozó legutolsó verziószámot (ez egy keresési tábla lenne) és az egy FKERES/XKERES-el raknánk be a táblába. Ha szükséges menetközben kézzel lehet frissíteni keresési táblát.Az 54653-asban mutatott képlethez pár ötlet:
1) Többször használod ugyanazt a feltételt az A és B oszlopokra. Beszíneztem párszor.
A LET-et erre vezették be, ha van akkor érdemes használni. Ha nincs akkor lehet hogy jobb lenne a munkalapon ennek a képletnek az eredményét tárolni.2) A HAHIBA elhagyható, ha a SZŰRŐ-nek használod a 3. opcióját, üres esetén mit adjon vissza.
3) A SORBA.RENDEZ és EGYEDI megoldható egy lépésben is MS365-ben, elméletben gyorsabb. CSOPORTOSÍTAS.ALAP.SZERINT függvényt lehetne kipróbálni.
=CSOPORTOSÍTÁS.ALAP.SZERINT(FÜGG.HALMOZÁS(<lista>);;;0;0)
Itt valójában csak az első paramétert adjuk meg, a többit üresen hagyjuk, illetve a 0-val nem kérünk plusz mezőket.
4) Mivel a szűrőkben ugyanazon feltételeket használod ezért kipróbálhatod, hogy csak 1 db szűrőd van: SZŰRŐ(OSZLOPVÁLASZTÁS(L2:AG100000;1;4;7;10;13;16;19;22);feltétel)
Ahol a feltétel az amit az 1-es pontban említettem. Ez esetben nem szűrűnk üres értékekre. A kapott oszlopokat ez esetben egymásra kell halmoznunk, ami bonyolítja a dolgot. Ha nem kell dinamikusan csinálni, akkor ennyi:
=LET(talalatok;SZŰRŐ(<ide jön amit fentebb írtunk>);eredmeny;FÜGG.HALMOZÁS(OSZLOPVÁLASZTÁS(talalatok;1);OSZLOPVÁLASZTÁS(talalatok;2);<további oszlopok);SORBA.RENDEZ(EGYEDI(eredmeny)))üdv
-
föccer
nagyúr
válasz
föccer
#54672
üzenetére
No, amire leírtam végig is gondoltam.
SORBA.RENDEZ(EGYEDI())-vel készítettem egy gyűjtést a receptszámokról és mellé MAXHA-val kikerestem hogy melyik recepthez melyik a legnagyobb verziószám. A kérdéses tömbben soronként kerestem be fkeressel a leganagyobb verrziót, amit simán HA feltétellen ellenőríztem. Így nincs tömbkezelés, illetve csak minimális. Az fkeres azég gyors. A MAXHA pediglen védve van még egy HA(BQ="";"";MAXHA()) feltétellel, így az sem fog feleslegesen keresni ha az előszűrő miatt a 100.000 sor helyett csak néhány ezer sor van a tömbben.Köszönöm a figyelmet
föccer
-
Mutt
senior tag
válasz
föccer
#54655
üzenetére
Szia,
A név hibát azért adja, mert a képlet végefelé a MARADÉK függvény helyett az angol MOD maradt a képletben. Azonban ezek után sem lesz jó, mert van hiba a képletben:
1) A változók (t1, t2, n1, n2, col1, col2) cellahivatkozások lesznek. Tegyél bele pl. aláhúzást (t_1, t_2 stb).
2) A# és B# csak akkor helyes, ha névkezelőben létrehoztad az A és B neveket.
3) A végén inkább VÍZSZ.HALMOZÁS kellene.Alternatív megoldások:
1) Power Pivottal egy sima pivot, mivel a két adatsor között nincs kapcsolat, ezért az összes kombinációt (Descart-szorzat) vissza fogja adni.
2) Power Query-vel is hasonló a módszer.
3) Egy másik változat LET-re.=LET(lista1;A1:A3;lista2;C1:C3;a;OSZLOPHOZ(lista1&"|"&TRANSZPONÁLÁS(lista2));hely;BYROW(a;LAMBDA(r;SZÖVEG.KERES("|";r)));VÍZSZ.HALMOZÁS(BAL(a;hely-1);KÖZÉP(a;hely+1;100)))
üdv -
Fferi50
Topikgazda
válasz
föccer
#54633
üzenetére
Szia!
" a laphoz rendelve Sub Worksheet_SelectionChange(ByVal Target As Range) eljárást használom, ellenben nem indul el a makró "
Szerintem Selection_Change eseménynek el kell indulnia. Kivéve, ha az eseménykezelés le van tiltva.
Megjegyzés (bár gondolom tudod): Az eseménykezelő eljárás elején le kell tiltani az eseménykezelést, a végén pedig vissza kell kapcsolni, különben akár végtelen ciklusba is eshet a folyamat.
Üdv. -
Fferi50
Topikgazda
válasz
föccer
#54633
üzenetére
Szia!
"ez utóbbit kipróbáltam csak akkor fog tovább menni a makró, ha eltüntetem az userformot"
A userform megjelenítését megoldhatod úgy is, hogy a makró továbbfut a láthatóság alatt, majd a folyamat végén eltünteted.
A Show metodnak van egy paramétere - modal - ami alapértelmezésben (vagyis amikor paraméter nélkül jelenítjük meg a formot) érvényes, addig "nem tűnik el" a form, amíg a user nem kattint rá.
Ha tovább szeretnénk futtatni a form láthatósága idején a makrót, akkor meg kell adni a modal paraméternek a vbModeless (0) értéket, vagyis userform.show vbModeless formában kell láthatóvá tenni a formot.
[link] itt a help hozzá.
Üdv. -
lappy
őstag
válasz
föccer
#54633
üzenetére
2. kérdésre talán ezek
- Progress Bar in Excel VBA using For Loop
- Progress Bar for all your excel Applications
ha ilyenre gondoltál -
-
#54281
macilaci78
nagyúr
föccer
#54280
macilaci78
nagyúr
válasz
föccer
#54280
üzenetére
Office 2016-om van, illetve vettem egy Office 2024-et is, de sikerült áttelepíteni a régi Win10-es gépről az új Win11-es gépre az Office 2016-ot, a 2024-es licenszet nem kellett felhasználnom.
Majd ha lesz időm ezzel foglalkozni, átküldöm.Viszont az újabb office-ban megcsinált dolgot lekezeli a régebbi? Esetleg google sheets?
-
Pá
addikt
válasz
föccer
#54237
üzenetére
Mostanában sokat dolgozom vele, tényleg sokat segít, de érteni is kell hozzá valamennyire.
Standard dolgokat szinte hibátlanul megoldja, de gyakran túlbonyolítva és nem optimalizálva. Pl ha bármit akarok keresni vagy elemeket megszámolni, akkor majdnem mindig végigiterál az egész range-n, ahelyett, hogy find vagy match-et használna, vagy countA vagy ilyesmit. Feleslegesen telepakol változóval mindent és ír 3 sort egymás alá, ahol egyik változóból kifejezi a másodikat, abból a harmadikat. Ezeket simán össze lehet vonni egy sorba meg ilyenek. Szóval végül is működik a kód, csak nem túl elegáns meg kicsit erőforrás pazarló.
De ezzel együtt lehet élni.Ha viszont valami kacifántosabb vagy nagyon nem standard dolgot kérsz tőle, akkor hajlamos nagyon belezavarodni, elkezd haluzni és szar megoldásokkal traktálni, amik nem működnek és ilyenkor nagyon könnyen bele lehet csavarodni és a végén elmegy 2 óra azzal, hogy vitatkozom vele és a szar megoldásait próbálom működésbe hozni.
Ez olyankor idegesítő, amikor amúgy a kódot megírhattam volna magamnak fél-1 óra alatt, csak gondoltam előtte gyorsan megkérdem, hátha összejön 10 perc alatt és a végén ott vitatkozom vele két órával később is.
-
Mutt
senior tag
válasz
föccer
#54237
üzenetére
Szia,
Nem kell két dictionary, hogy tudd melyik receptből mennyi van. A kulcs (key), mellett van az item tulajdonság is. A receptDict teljesen felesleges.
' Receptszámok összegyűjtése és számlálásaSet receptCount = CreateObject("Scripting.Dictionary")osszesMinta = 0For i = 2 To lastRowIf alapadatok.Cells(i, 1).Value = valasztottUzem ThenreceptSzam = alapadatok.Cells(i, 2).ValueosszesMinta = osszesMinta + 1If Not receptCount.Exists(receptSzam) ThenreceptCount.Add receptSzam, 1ElsereceptCount(receptSzam) = receptCount(receptSzam) + 1End IfEnd IfNext i
üdv -
Fferi50
Topikgazda
válasz
föccer
#54196
üzenetére
Szia!
Nem tudom, milyen biztonsági verzió van nálatok, de ezeket találtam:
Microsoft Purview információvédelem | Microsoft Biztonság
Minimum versions for sensitivity labels in Microsoft 365 Apps | Microsoft Learn
Továbbra is azt gondolom, kell legyen userre vagy más egységre szabott beállítási lehetőség, ezért az IT rendszergazdákat érdemes megszorongatni miatta. Addig marad a PrintPreview - plusz 2 enterrel
Tudom, neked sem feladatod a rendszerbeálítási lehetőségek felderítése és én sem vagyok abban a helyzetben, hogy "segíthessek" a "szakembereknek", hiszen ők azért vannak alkalmazva. (Csak információként raktam be a linkeket.)
Remélem, mielőbb megtalálják a normális megoldást.
További jó munkát!
Üdv. -
Fferi50
Topikgazda
válasz
föccer
#54194
üzenetére
Szia!
Én megpróbálkoznék a nyomtatás utáni sorban egy stop-pal a makróban, ha így megkapod ezt a képernyőt, akkor el tudod küldeni a nyomtatóra.
Esetleg PrintPreview és utána a nyomtatás gombra kattintani.
Persze így nem fut le automatikusan, de legalább működhet.
Az automatizmushoz megpróbálhatnád a Sendkeys Entert is a Print v. Export után.
(Én sem szeretem, de ha nincs más mód...)
Egyébként úgy látom, hogy ez egy MS eszköz, amiben szerintem lehet (kellene, hogy legyen) felhasználó szintű beállítási lehetőség is.
Üdv. -
Fferi50
Topikgazda
válasz
föccer
#54191
üzenetére
Szia!
Ha "direktben" nyomtatsz PDF-et, akkor látod a felugró ablakot gondolom. Ezt le tudod képernyőfotózni tanulmányozás céljából. Makróban szerintem be kellene tenni egy várakozó ciklust a nyomtatás utánra, majd - bármennyire is utálom én is... - egy Sendkey utasítással megpróbálkozhatnál, figyelembe véve az elózőekben írtakat és tapasztaltakat.
Üdv. -
Fferi50
Topikgazda
válasz
föccer
#54159
üzenetére
Szia!
A PDF exportnál van olyan lehetőség, amikor csak a kijelölt területet nyomtatja:
Azt nem tudom, nem néztem, hogy makróból állítható-e. A területet biztosan ki tudod jelölni makróból.
Ilyen lett a felvett makró, amivel csak a kijelölt területet teszi ki PDF-be.Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"xxxx.pdf", Quality:= _xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _OpenAfterPublish:=False
Üdv. -
-
Pá
addikt
válasz
föccer
#54124
üzenetére
Jah, igen, ilyen nagyon eröltetett izéket nem akartam, hogy macroval mindig visszaírom, amit módosítanak, ennyi azért nincs benne.
Viszont a validation nagyon jó ötlet, elegánsan működik, pont ilyesmiért jöttem ide.
Egyelőre az emberiség még veri az AI-t.Szóval így a worksheetet tudom lockolni, hogy ne engedje a formázást. A néhány cellát pedig, ahol szeretném engedni a formázást, azokat kiveszem a lockolás alól és validatiönnel megvédem az értékeket, szuper!
-
meke11
aktív tag
válasz
föccer
#54117
üzenetére
Köszönöm, de én ennyire nem akarok belemerülni a dolgokba.
Öntözés tervezésnél, a K-tényező számoláshoz szükség van az U-ra, amit a D60/D10 hányadosa ad meg. Az U-ból kiszámolom a hézadtérfogatot. Az U, a hézagtérfogat és D17-ből számolom a K-t. Eddig manuálisan olvastam le a szemeloszlási görbéről a D10, D17 és D60 értéket. Én valami olyat szeretnék, ami leolvassa valahogy a görbéről ezt a 3 értéket.A lappy által linkelt videó egész ígéretesnek tűnik, ha hazaértem megpróbálkozom vele
-
#54098
Fire/SOUL/CD
félisten
föccer
#54095
-
Wolfskin
őstag
válasz
föccer
#54059
üzenetére
Köszönöm!
Az lehetséges, hogy ez csak a MS 365-ben van benne? A MS honlapja szerint legalábbis... (Mátrix függvények: Egy lista vagy tartomány egyedi értékeinek listáját adja vissza. )
Én meg hiába keresem , se egyedi, se unique név alatt nincs. Most váltottam Office 2003-ról 2007-re, de még a softmaker office 2021-ben sincs benn ilyen függvény sajna.
ÜdW
-
Fferi50
Topikgazda
válasz
föccer
#54024
üzenetére
Szia!
Ha nincs O365, akkor a képlet:=DÁTUM("20" & BAL(KÖZÉP(A1;SZÖVEG.KERES("_";A1)+1;HOSSZ(A1));2);KÖZÉP(KÖZÉP(A1;SZÖVEG.KERES("_";A1)+1;HOSSZ(A1));3;2);JOBB(KÖZÉP(A1;SZÖVEG.KERES("_";A1)+1;HOSSZ(A1));2))
mivel a LET függvény csak 0365-től működik.
Vagy:=DÁTUM(("20" & BAL(JOBB(A1;6);2));BAL(JOBB(A1;4);2);JOBB(A1;2))
Ha biztosan tudjuk, hogy az utolsó 6 karakter mindig a dátum.
Üdv. -
Win-T
őstag
válasz
föccer
#53963
üzenetére
Excel 2021... ez pedig még benne volt a fejemben, hogy le kell írni, aztán mégis elmaradt, bocsánat.
Ez a verzió nem írja, hogy nem ismeri, de 1-et hoz eredménynek, holott 39-et kellene.
Ez lenne a helyes formula, jól értelmezem?=DARAB2(EGYEDI(függ.halmozas((Táblázat3[[Oszlop1]:[Oszlop2]])))) -
andreas49
senior tag
válasz
föccer
#53937
üzenetére
Szia, Sokszor használok én is sok-sok oszlopból álló munkalapot. Lehetne ezen úgy egyszerűsíteni, hogy nem Munka1 és Munka2, hanem aktuális munkalap, valamint input ablakba megadni a oszlop méretéhez hozzáadandó értéket?
Így nem kell létrehozni Munka1 és Munka2 nevű munkalapot, hanem maradhat az egyéni munkalap név. -
Fferi50
Topikgazda
válasz
föccer
#53934
üzenetére
Szia!
A SZUMHA függvénynél is lehet külön kritérium tartomány, tehát nem csak az összeg tartományra adhatsz meg feltételt az összegezésre, de csak egy feltétel tartományt használhatsz.
A SZUMHATÖBB valóban tudja az egy feltétel szerinti összegzést is, sőt többet (az ÉS logikai összefüggés szerint).
Üdv. -
Fferi50
Topikgazda
válasz
föccer
#53445
üzenetére
Szia!
"A mentett adattáblából vissza kellene keresnem, azokat az adatokat, amik megvoltak az előző táblázatban."
Ezek az adatok maradnak az új táblában ezek szerint? És képlettel nem ugyanúgy képződnének meg?
A megfelelő címzéssel kialakított képlet (ami húzható jobbra és lefelé) egyetlen utasítással beírható a tartományba!
Pl. Range("A1:XX2000").Formula (vagy Formula2) =Képlet
Üdv. -
-
#77257183
törölt tag
válasz
föccer
#53411
üzenetére
Köszi a részletes leírást ! Sikerült megcsinálnom.
Tehát ha jól értem, akkor a 100 lépés utáni végeredményt kapom meg.
Az A oszlopot veszem lépcsőfoknak akkor Pl. : 3. lépcsőfokon a fibonacci szám az 1, vagy 6. lépcsőfokon a fibonacci szám 5. Bár volt, hogy 1 és nullára jött ki, amit szerettem volna elkerülni, de mindegy.
Már ebből is tanultam. -
-
föccer
nagyúr
válasz
föccer
#53402
üzenetére
dehülye vagyok, a vissza lépés nincs benne
Sub Gomb1_Click()Dim Fib_sorszam As IntegerDim Lepes_szam As IntegerDim i As IntegerFib_sorszam = 1Lepes_szam = Sheets("Munka1").Range("F2").ValueFor i = 1 To Lepes_szamIf Application.RandBetween(0, 1) = 0 ThenFib_sorszam = Fib_sorszam + 1ElseFib_sorszam = Fib_sorszam - 2If Fib_sorszam < 1 ThenFib_sorszam = 1End IfEnd IfNextSheets("Munka1").Range("F3").Value = Sheets("Munka1").Cells(Fib_sorszam, 2).ValueSheets("Munka1").Range("F4").Value = Fib_sorszamEnd Sub -
Fferi50
Topikgazda
válasz
föccer
#53324
üzenetére
Szia!
Ha a VBA kódok védelmére gondolsz, akkor nézd meg ezt:
Tools - VBA Project Properties - Protection fül
Itt jelszóval védheted a projektet. Papírforma szerint csak a jelszó ismeretében lehet láthatóvá tenni. Ha ezt a jelszó megjegyzed, akkor nem szükséges a makrók között "elrejteni", tehát nem olvasható ki szerintem.
Azt nem tudom - mert nem érdekelt és így nem is néztem utána, hogy az Excel hol tárolja ezeket a jelszavakat és milyen nehéz megtalálni, ha "kicsomagoljuk" a fájlt.
Javaslom még, hogy bináris formában mentsd a fájlt, így kevesebb helyet foglal.
Persze aki megszállottan meg szeretné nézni, mit és hogyan alkottál, azt nem hiszem, hogy bármilyen eszközzel távol tudod tartani. Ez ellen csak nehezítéseket lehet használni. - (Kivéve, ha "védett" környezetben dolgozol és onnan nem kerülhet ki semmilyen információ... )
A beléptetés persze nagyon fontos több felhasználós, több felhasználói szintű rendszer esetén.
Üdv. -
válasz
föccer
#53245
üzenetére
Köszönöm a segítséged, de Mutt képlete megfelelően működik.
A táblázat jelenleg 775 sorból és 120 oszlopból áll.
(elég sok személyes adatot tartalmaz így nem tudom megosztani az egészet)A "B1"-be sima dátum van (pl. 2024.09.18)
Amit láttál a képen pl. 036/2024 az nem a heteket jelöli hanem a munkaszámokatAz lenne a legjobb ha minden értékhez megadná a hozzá tartozó 1-es sorba lévő értéket (pl. 036/2024; 037/2024), de ha csak a nagyobb értékhez tartozó jeleníti meg az is teljesen jó.
Jelenleg a mostani táblázat alapján 1-16 ig terjedő értékek szerepelnek, és 1 sorba akár 6 érték is lehet. -
Fferi50
Topikgazda
válasz
föccer
#53182
üzenetére
Szia!
Ha policy, akkor azt a rendszergazda meg kellene mondja, hogy mennyi inaktívitás után dobja a hálózat a kapcsolatot.
Csak 1 ötlet. Mi lenne, ha időnként egy pár karakteres fájlt írna ki a hálózati meghajtóra.
[link] itt van a közvetlen fájlkezelésre vonatkozó help.
Ezzel legalább tesztelni lehetne azt is, hogy mennyi az időtolerancia, ha másként nem derülne ki.
Pl:Sub kiir()Dim MyStr As StringMyStr = "A" & Time$Open "TESTFILE" For Output As #1Print #1, MyStrClose #1End Sub
Üdv. -
Fferi50
Topikgazda
válasz
föccer
#53180
üzenetére
Szia!
Jól értelmezem? Helyi gépen van egy fájl, ami hózati meghajtón levő fájlt nyit meg és makrót futtat rajta.
Vagy a futtató fájl is a hálózati meghajtón van?
A hálózati meghajtó betűjelesként fel van installálva vagy "hosszú névvel" éred el, illetve hogyan csatlakozol fel?
Tisztázni kellene, hogy a hálózati kapcsolat miért szakad meg. Pl a rendszergazda mentéseke futtat, stb.
Ha érzékeli a hibát, akkor lehet várni addig, amíg a kapcsolat helyre nem áll. Nem egészen értem, miért kell újracsatlakoztatni.
Üdv. -
-
#53069
Fire/SOUL/CD
félisten
föccer
#53068
válasz
föccer
#53068
üzenetére
És akkor a reg+aktiválás után lett a 2021 Pro -ból egy fizetős 365?
(néztem már régebben is ilyen videókat, ahol ezt eljátsszák, csak azt hittem, hogy ők vettek 365 kulcsot, amit az MS fiókhoz hozzáadtak és ezért lehetett simán upgradelni 365-re. Pont ezért még nem mertem bevállalni, hogy kipróbáljam, nehogy utána meg küldjék az értesítőket, hogy na akkor mostantól lehet perkálni...) -
-
Fferi50
Topikgazda
-
Fferi50
Topikgazda
válasz
föccer
#52859
üzenetére
Szia!
Csak ötletek:
- Adatok beolvasása tartományból (Power Query szerkesztővel) én valószínűleg ezzel kezdeném, rendesen masszírozhatók az adatok szépen láthatóak a lépések és "makró" is írható hozzá M nyelven.
- Alapadatok táblázattá alakítása - utána szeletelők hozzáadása
- Esetleg kimutatás - szeletelőkkel.
- Adatok - Irányított szűrés - ez megy helyben és más munkalapra is - bár sok adat esetén ez is lehet lassú.
Makró esetén lehetséges egészen más logikával is haladni, részhalmazokat létrehozni. Ekkora nagyságrend még "bekapható" a memóriába, ahol nagyon gyors a műveletek végrehajtása.
Egy 500-1000 soros mintát - természetesen publikussá tehető adatokkal - feltehetnél fájlban azzal, hogy mi a kiindulás és mit szeretnél eredményként kapni. Ezzel nem csak elméletben, hanem gyakorlatban is foglalkozhatnánk a problémával.
Üdv.
Ps. most 1 hétig nem leszek, de lesznek, vannak itt más tudósok. -
Fferi50
Topikgazda
válasz
föccer
#52838
üzenetére
Szia!
Teljesen jól érted. Először meg kell hívni paraméteresen, utána paraméter nélkül. Ha nem talál fájlt, akkor üres stringet ad vissza - a paraméteres meghívásnál is.
Amikor ismét paraméteresen hívod meg, akkor ismét az első találattól indul, tehát ha a következő meghívás ugyanazzal a paraméterrel történik, akkor ismét az első találatot adja vissza.
Üdv. -
válasz
föccer
#52826
üzenetére
Köszi a gyors választ
Ezt meg tudnám úgy csinálni, hogy ne keljen munkafüzet neveket megadnom, hanem tegyük fel, hogy az F:\123\ mappából az összes fájlt (talán .*xlsx ) nyissa meg és hajtsa végre a módosítást ugyanazokon a cellákon? Munkalap nevek ugyanazok mindenhol, csak a munkafüzet, vagyis fájlnevek változnak.
A másodikra nincs tipped? -
Guitar14
senior tag
válasz
föccer
#52797
üzenetére
+Emod:
Sajnos (vagy nem sajnos) Office 2016-om van. Cseréltem volna újra de egy két módosítástól megőrültem az újjabb Office-ban, így maradtam.Egyébként ennek az egésznek megoldását annyira egyszerűnek hittem, mondom én vagyok ilyen gyökér, hogy egy full egyszerű feladatot nem tudok megírni képlettel pedig nehezebbeket is megoldottam már.
Igazából batch programot írok ami könyvtárszerkezetet hoz létre és azokba fájlokat másol. Minden oszlop egy programművelet
"cd Mucsaröcsöge | mkdir Mappa | move xy Mappa | .....stb" A szám ami meg mellette van balra az a sorrendje, régen mindig összemásoltam őket egymás alá és a számok alapján sorrendbe raktam őket majd futtatható is volt. Gondoltam már erre a képletre régebben is csak nem vettem rá magam, most viszont akkora a tábla, hogy nem akarom gyalog összerakni futtatható sorrendbe + későbbiekben is erre a célra jó lenne. -
Guitar14
senior tag
válasz
föccer
#52793
üzenetére
Köszi, majdnem jó lett.
Be is írtam a nagy táblámba, belepörgettem és láttam, hogy csak az első sor értékeit veszi mindig.
Már értem miért írtad az "annyira szimpatikus, hogy minden oszlopban ugyan azok a gyümölcsök szerepelnek" szöveget, a valós nagy táblámba változóak soronként a szövegek csak azért írtam így oszloponként ugyanazt a példatáblába mert nem jutott ennyi gyümölcs az eszembe
Kicsit átírtam és a pirossal jelölteknél látszik a hiba.
Valami ötlet? -
Win-T
őstag
válasz
föccer
#52779
üzenetére
Na én itt már teljesen elvesztettem a fonalat.
Szóval lehetne-e olyant, hogy: Egy munkalapon egy oszlopban ott van minden név (egyedül ez változik minden hónapban ha egy ellátott meghal vagy új érkezik). Ezt manuálisan kezeljük, tiszta sor.
Lemásolja minden névhez a munkalapot amiken az X2-be és X28-ba bemásolja a nevet.
Az elkészült munkalapokat kijelöli és megnyitja a a nyomtatási párbeszédablakot nyomtatáshoz (Ezt azért kéne mert több nyomtató is van, ki kell választani melyikre küldje, illetve mivel két oldalas, be kell állítani a duplex nyomtatást. Ezeket nem tudom lehet-e makróból.)Vagy: Megcsinálom a neveket tartalmazó oszlopot és a szükséges számú munkalapot kis ráhagyással (van, hogy kell a 80, van hogy kevesebben vagyunk). A szükséges két cellába egyszerű képlettel átmásolom a neveket. Egy makró megnézi minden munkalapon, hogy X2 tartalmaz-e adatot és csak azokat a munkalapokat nyomtatja amiken igen.
Melyik verzió életképesebb? Vagy kivitelezhető egyáltalán?
-
föccer
nagyúr
válasz
föccer
#52778
üzenetére
Ezt 1x kell lefuttatni, ez megcsinálja annyiszor a másolást, ahány a For i = WsC to WsC+10 sor végén a szám (jelenleg a 10)
A munkalapon neve az N betűből és egy sorszámból fog állni.
sub Szetmasolas()
Dim i As Integer
Dim WsC As Integer
WsC = ActiveWorkbook.Sheets.Count
For i = WsC To WsC + 10
Sheets("16-32").Copy After:=Sheets(i)
Sheets("16-32 (2)").Name = "N" & i - WsC + 1
Next
End SubEz pedig kijelöli és nyomtatóra küldi az összes (jelenleg 10) munkalapot.
Sub kijelolnyomtat()
Sheets(Array("N0", "N1", "N2", "N3", "N4", "N5", "N6", "N7", "N8", "N9", "N10")).Select
Sheets("N0").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Ezt elkezdem beépíteni. Pénteken kaptam meg az új rendszert, eddig nem volt ilyen fícsör. 
Azt nem tudom, nem néztem, hogy makróból állítható-e. A területet biztosan ki tudod jelölni makróból.
Új hozzászólás Aktív témák
Fferi50- Villanyszerelés
- NFL és amerikai futball topik - Spoiler veszély!
- PlayStation 5
- Forza sorozat (Horizon/Motorsport)
- Path of Exile (ARPG)
- WoW avagy World of Warcraft -=MMORPG=-
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Mibe tegyem a megtakarításaimat?
- Víz- gáz- és fűtésszerelés
- Napelem
- További aktív témák...
- 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.
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- BLACK FRIDAY! - Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával
- Prémium PC házak akár 20-40% kedvezménnyel eladók garanciával, számlával! Upd. 12.03
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 16/32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
- Bomba ár! HP EliteBook 830 G8 - i7-1185G7 I 16GB I 512SSD I HDMI I 13,3" FHD I Cam I W11 I Gari!
- Újszerű HP 14s-dq5001nh - 14"FHD IPS - i5-1235U - 16GB - 512GB - Win11 - Magyar - Garancia
- GYÖNYÖRŰ iPhone 12 Pro Max 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS2927, 100% Akkumulátor
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: ATW Internet Kft.
Város: Budapest