-
IT café
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
-
vakondka
őstag
válasz Fferi50 #51263 üzenetére
Szia,
Köszönöm a segítséget, nagyjából hasonló dolgokat gugliztam össze.
Azóta rájöttem, hogy normál cellába beírva hibátlanul működik, pl egy A2 mezőn, viszont nekem ez volt a képlet a cellában amit kibővítettem és az ilyen képletekkel nem hajlandó együttműködni:=RemoveAccents(srenter!E2:E13000)Kijavítottam erre és hibátlan: =RemoveAccents(srenter!E2)
Így viszont csak hagyományos módon tudtam kitölteni a 13000 cellát lefelé, viszont működikhttps://toptarget.hu - Online Marketing Ügynökség
-
13128814
tag
válasz Fferi50 #51266 üzenetére
Először is köszönöm a válaszodat!
Ez a kimutatásadatotvesz nem lesz barátom. De ez engem minősít és nem a képletet.
Akkor fordítsuk meg a dolgot, megmutatom az excelt hátha találunk egy kiskaput.
Alapvetően 3 excel van, van egy "generátor" amiből fut a makró, és tartalmaz olyan lapokat amikben benne vannak a sablonok. Az új excel alapja egy csv lekérdezés ami tartalmaz 300k+ sort. És tulajdonképpen az előző heti excelben lévő adatokat vetem össze az aktuálisat.
A generált excel releváns lapjai - amiben szeretném a pivotot legenerálni (ez a pivot tartománya, forrása):
A-tól G-ig az adatok egy lekérdezésből jönnek.
H-tól S-ig ezek képletek amiket a forráskódban tartok.
És ilyen pivotot szeretnék:
Ez már a szűrt állapot.
AH-tól behúzom az A oszlop tartalmát.
AI-tól pedig képletezve van szum függvényekkel, amiket képzelj így:
Tehát ezért lenne fontos hogy a pivot szűrése után eltűnjenek a mellette lévő sorok. És ugye mivel mikor manuálisan generálom le a pivotot, akkor pont úgyis viselkedik a többi sor, ahogy jó. Azaz egy szűrés után eltűnnek, ezért gondoltam azt hogy van valami beállítás.
De ha nincs! Akkor az emgoldás lehet, hogy valahogy úgy generálom le hogy már szűrve -> frissítem a pivotot, és utána futtatom le a fejléc + függvény subot?
[ Szerkesztve ]
-
13128814
tag
válasz Fferi50 #51270 üzenetére
Utána az AI:AR utolsó sora ami szintén sum függvényekből áll bemásolódik a következő helyre:
[link] (utolsó sor)
[link] (ide másolódik)Ami izgi, az az, hogy utána generálódik még egy pivot, viszont ott már azokat a kártyákat vizsgáljuk ahol a változás "1":
Biztos van szofisztikáltabb megoldás ezekre, én is csak örököltem ezt a feladatot, csak mivel simán elmegy 1 - 1,5 óra rá hetente, gondoltam megpróbálom lemakrózni. Az más kérdés hogy már annyi munkaórám van benne, mintha fél évig manuálisan töltögettem volna. De ez a "tudás" már az enyém!
Végül is úgy oldottam meg, hogy bekapcsoltam a szűrőket, és utána húztam végig a képleteket:
With PSheet.PivotTables("PIVOT").PivotFields("változás")
.Orientation = xlPageField
.Position = 2
.PivotItems("0").Visible = True
On Error Resume Next
.PivotItems("(blank)").Visible = False
.PivotItems("1").Visible = False
On Error GoTo 0
End With
With PSheet.PivotTables("PIVOT").PivotFields("Elérhető")
.Orientation = xlPageField
.Position = 3
.PivotItems("1").Visible = True
.PivotItems("2").Visible = True
' Hide other items if present
On Error Resume Next
.PivotItems("(blank)").Visible = False
.PivotItems("0").Visible = False
On Error GoTo 0
End With
Bár ettől függetlenül nagyon zavar hogy ilyen lett, mert így nem tetszik. Kicsit tróger megoldásnak érzem. -
föccer
nagyúr
válasz Fferi50 #51275 üzenetére
Egy kis WoT, hátha érthető az egész történet.
Főnökség ad-hoc jelleggel talál ki különböző statisztikai mutatókat és azokon "finomhangolnak" hogy éppen mit akarnak látni. 3 évre visszamenőleg, havi bontásban. Az egyes elemzéseket külön-külön rakom össze a táblákat és makróval pörgetem az időket bennük, betöltött alapadatokat. Alapadatok célszoftver riportáló eszközéből jönnek. Van hogy olyami kell, ami már meg van írva, csak más időintervallumra. Igen ám, de a gyártásfelügyeleti célszoftver nem minden riportban ad dátumot, csak a riport eszközben lehet beállítani, hogy milyen dátumok közötti adatokat adja meg. Így vagy havi bontásban szedegetem le a riporterből, vagy egy másik riporot hazsnálok, amiben van ugyan dátum, de nem arról szól amit nekem fel kell hazsnálnom. Így erre készítettem egy konverziót táblát, ami a dátumos riportból elkészíti a szükséges riport formátumot és azt átrakja az eredeti számoló táblába. Így lehúzom a 3 éves adatsort, bepakolom a konverziós táblába, ami legenerálja a szükséges riport formátumot a megfelelő havi bontásban és szépen megeteti a számoló táblával. Indítaná a számoló táblának a makróit, ami megcsinálja szsükséges elemzéseket, lementi az eredményt, majd jöhet a következő hónap, szűrés, riport generálást, adat átadás, elemzést mentés. És így tovább....
De akkor lehet azt kellene csinálni, hogy minden, már megírt makrót átrakok az riport konverziós excelbe és onnan vezérlek mindent. Igen ám ez jó is lehet, mert a 4 sub-ot bele fogom 1 for ciklusba ami végig megy a hónapokon. De mivel tudom biztosítani, hogy 1 for-on belül a 4 sub úgy fut le, hogy szépen, megvárja az egyik a másik futását, és minden rendben kiszámolódik és lementődik.
föccer
Építésztechnikus. Építőmérnök. Ingatlan adás-vétel vevő oldali támogatása. Mérnök tanácsadás, felújításhoz, átépítéshez. Excel feladatok megoldása. Lézergravírozás.
-
Pá
addikt
válasz Fferi50 #51283 üzenetére
Köszi!
Munkafüzetet nyitok meg.
Igazából ezek teljesen különálló fileok, megnyithatom őket a gépről is, shared driveról is, netről letöltve is, chatprogramon keresztül megkapva is stb...Igazából annyit szeretnék, hogy mondjuk a gépen dupla katt-al megnyitom az excel filet és amikor felugrik a password ablak, akkor VBA ismerje fel, hogy most egy "olyan" file-t nyitottam meg és írja be a jelszót magától és okézza le.
Az a nehézség, hogy ha jól tudom, akkor az Excel nem tekinti megnyitottnak a munkafüzetet, amíg a jelszót nem írtam be, így nem tudom mivel triggereljem a makrót, mert azt olvastam, hogy az openworkbook ebben az esetben nem működik.
[ Szerkesztve ]
''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
-
p5quser
tag
válasz Fferi50 #51304 üzenetére
Valami hasonlóval próbálkoztam még régebben;
If KeyCode = vbKeyUp Then
If ComboBox3.ListCount > 0 Then
ComboBox3.ListIndex = ComboBox3.ListCount - 1
End If
......
De ez volt az, amelyiknél felugrott alulról a második elemre a listában és onnan sehová nem mozdul a nyilakkal.
Ez egyébként egy "kereső"-combobox, a bevitt karakterekre szűrve változik a legördülő lista. -
p5quser
tag
válasz Fferi50 #51316 üzenetére
Először is, köszönöm a segítséget Neked és Muttnak!
Nyilván kicsit több infoval könnyebb kontextusba helyezni ezt "fel-le nyilasdit".
Szóval így néz ki a form;
Ez pedig a combobox3 (megnevezés) kódja;Private Sub ComboBox3_Enter()
ComboBox3 = scstr 'az előző keresési string
End Sub
Private Sub ComboBox3_Change()
If ComboBox3.Enabled = True Then
dic.RemoveAll 'Törli a dropdown list elemeket.
If Not Comb_Arrow And Len(ComboBox3) > 1 Then 'elkezd keresni a második leütött karaktertől
For i = 1 To lrd
If InStr(LCase(ciktomb(i, 2)), LCase(ComboBox3)) > 0 And ComboBox3 <> vbNullString _
And Not dic.Exists(ciktomb(i, 2)) Then
dic.Add ciktomb(i, 2), Nothing
ComboBox3.List = dic.keys 'a találatokat egy dictionary-be gyűjti
End If
Next i
With ComboBox3
scstr = .Text 'lementi az előző keresési stringet, mert sok hasonló nevű van, így nem kell újra beírni
If dic.Count = 0 Then .List = dic.keys
If dic.Count = 1 Then 'ha csak egy találat van beugrik a textbox1-be.
.ListIndex = 0
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
End If
If .Enabled = True And dic.Count > 1 Then .DropDown
End With
End If
End If
End Sub
Private Sub ComboBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Comb_Arrow = (KeyCode = vbKeyUp) Or (KeyCode = vbKeyDown) 'a fel-le nyíllal belelép a listába, de mindig a tetejére.
If KeyCode = vbKeyReturn Then 'enterrel (vagy clickkel) kiválasztja a tételt és a textboxba lép
ComboBox3.List = dic.keys
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub
Ezek alapján lehetséges egyáltalán hogy alulról lépjen bele a legördülő menübe a felfelé nyíllal?
Még egyszer köszönöm az ötletelést! -
p5quser
tag
válasz Fferi50 #51321 üzenetére
Az a baj az FmMatchEntryComplete-tel, hogy nem látom a listát.
Mellékelek egy videot, hogy kb. hogyan néz ki a felvitel működés közben.
Ez most egy random lista, de jól szemlélteti hogy rutinból ütve, tudja a felhasználó hogy a lista alján lesz amit keres (de nem OCD-s hogy megjegyezze a cikkszámát ). -
_NCT
őstag
válasz Fferi50 #51324 üzenetére
Szerintem ez nem annyira egzakt és egyértelmű, hogy nem veszi bele a mai dátumot, legalábbis tól-ig lehetőségnél. Ha tól-ig beállítok értéket, akkor azért teszem, hogy azok is benne legyenek. Értem a matematikáját, csak ez eléggé félrevezető, legalább egy hint lehetne erről a súgóban. Szerintem ha valahol azt látod, hogy 17-31-ig zárva van valami, akkor nem hagyod ki a 17-et, hanem azt is beleszámolod a zárva tartott napok közé.
[ Szerkesztve ]
-
forráskód
csendes újonc
válasz Fferi50 #51392 üzenetére
Szia! Köszi, hogy időt szántál rá.
A segédoszlopokat sikerült a mintád alapján a saját táblázatomba megcsinálnom.
Viszont továbbra sem teljes a kép, hogy azokat miként kell a Szumhatöbb és Darabhatöbb függvényekbe használni. Hogyan kapom meg automatikusan, hogy x csapat utolsó öt meccsén pl. hány gólt lőtt vagy mennyi győzelmet szerzett. -
Lendova
őstag
válasz Fferi50 #51499 üzenetére
Szia!
Ezt a részét már sikeresen összeszenvedtem. De köszönöm így útolag is a segítséget, mutattál rá egy másik módszert is.
Ilyen gyönyörűséget sikerült:
=(SUM(IF(MOD(COLUMN(B6:BK6),2)>0,B6:BK6,0)))-(SUM(IF(MOD(COLUMN(B6:BK6),2)=0,B6:BK6,0)))+((COUNTIF(B6:BK6,"X"))/3)+((COUNTIF(B6:BK6,"BSZ"))/3)+((COUNTIF(B6:BK6,"FX"))/3)-((COUNTIF(B6:BK6,"pi"))/3)Amivel most küzdök az, hogy valamiért negatív értéket kapok a jobb alsó sarokba a nulla helyett. Csak a [h]:mm cellaformázás miatt ############ szerepel.
All fiat goes to zero.
-
Lendova
őstag
válasz Fferi50 #51507 üzenetére
A 3 nyilazott között csak összeadás és kivonás szerepel és így lesz a karikázott negatív.
A végig nulla értékű cellát ha kiveszem a képletből, akkor már "jó". De ha nem veszem ki és a benne lévő számolt érték helyett nullát írok, ugyan így nem jó. Konkrétan olyan, mintha a 0-ból csinálni egy ici pici negatív számot csak úgy.
All fiat goes to zero.
-
mouzrr
őstag
válasz Fferi50 #51550 üzenetére
Bármilyen más formátummá állítom, nem történik semmi. A tizedeseket sem tudom növelni/csökkenteni a gombokkal.
Kipróbáltam az általad javasolt kimásolást, azzal sem volt jó sajnos.
Mintha teljesen specializálódna a cella amíg a szóközöket manuálisan ki nem törlöm. Addig formátumot sem tudok módosítani, de ha többet kijelölök, az értékeket sem adja össze, csak mutatja hogy hány cellát jelöltem ki.[ Szerkesztve ]
-
mouzrr
őstag
válasz Fferi50 #51564 üzenetére
Nagyon-nagyon köszönöm Nektek a sok segítséget.
Másodjára már sikerült hogy a karakterek közötti "szóközt" másoltam ki és azt helyettesítettem "semmivel".
Van valami ésszerű magyarázat, hogy ez a kimutatás miért ilyen? A bank szoftvere ennyire béna, hogy különleges karakterként kezeli a szóközt?
-
rovgab
csendes újonc
válasz Fferi50 #51538 üzenetére
Szia!
Bocsánat, nem voltam 2 napig gép közelben. Összedobtam egy példát, remélem így látszódni fog, hogy mit szeretnék elérni. Első oszlopok a megrendelések, a második oszlop a tárhelyek és a harmadik amit pedig kapni szeretnék eredményként. Bármilyen nyakatekert ötlet érdekel, hogyan tudnám kivitelezni. Egyáltalán lehetséges -e? Előre is köszönöm!
-
Met
nagyúr
válasz Fferi50 #51574 üzenetére
TC-ből másolom ki a filenév listát, van amiben csak számok vannak, van amiben van betű is.
Utána ezt a listát illesztem be excelbe a megfelelő sorokba.
TC-ben két kattintás '-t tenni a filenév elejére.
Egyszerűbb pluszba betenni az '-t a filenév elejére mint végigpörgetni a listát azt keresve hogy hol cseszte el a megjelenítést. Főleg hogy a szerkesztőlécben sem látszik az eredeti tartalom és keresgélhetem a txt-ben hogy hanyadik sorba mi van írva.Jól gondolom?
"If in doubt, flat out!" Colin McRae
-
Met
nagyúr
válasz Fferi50 #51577 üzenetére
Akkor nem egyszerűsödik a helyzet ha berakok minden cikkszám elé valami karaktert?
Akkor is keverni fogja a megjelenítést?
Tulajdonképpen nem kell a cikkszámnak és a kép nevének egyeznie (azt hiszem) a táblázatból szedi össze hogy az abcd123 cikkszámhoz a kiskutya.jpg-t jelenítse meg."If in doubt, flat out!" Colin McRae
-
rovgab
csendes újonc
válasz Fferi50 #51580 üzenetére
Szia!
Igen, pontosan így van ahogy leírtad. Annyi, hogy ennek a sorba rendezését (anyagszám, szavatossági idő és darabszám) megoldom még az SAP-ban, és az excel már egyből a rendes sorrendet tudja figyelni. Az első bejegyzésem nagyjából ugyanez, annyi különbséggel, hogy ott darabszámok voltak felsorolva a raklapok helyett. Csak gondoltam így teljes raklapokkal megírva egyszerűbb és átláthatóbb. -
erdey_a
őstag
válasz Fferi50 #51641 üzenetére
kényelmesebb a slicer, de nem oldja meg azt a problémát, hogy ha új héttel bővül a táblázat, akkor a pivotban az új hét csak akkor látszik, ha a a slicerben bekattintja.
Alapvetően nem lenne szükség szűrésre a pivotban, ha a régebbi elv szerint gyűjtött adatokat egyáltalán nem venné figyelembe.
legszívesebben kitörölném őket a 'csába, de nem lehet.
valamit trükköznöm kell...Vérboci
-
-
válasz Fferi50 #51719 üzenetére
Persze, ebben egyetértünk. A fejet falbaverő smiley csak annak szólt, hogy korábban kaptunk egy kódrészletet, dobott hiba nélkül, ami kódrészlet meg simán működik. Abból a kódrészletből nem derült ki, hogy az Option Explicit ott figyel előtte valahol, a deklaráció meg szerepelhetett volna globálisan is valahol...
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
föccer
nagyúr
válasz Fferi50 #51757 üzenetére
Erről tudnál még pár szót írni, hogy pontosan hogy és miért működik így? Nem vagyok programozó így nem látom át elsőre. Ezek azért nem akkora számok, hogy problémát kellene okoznia pontos számítársa. Nála is előjött ez az érték, pedig 100 lépéses iteráció van beállítva.
Építésztechnikus. Építőmérnök. Ingatlan adás-vétel vevő oldali támogatása. Mérnök tanácsadás, felújításhoz, átépítéshez. Excel feladatok megoldása. Lézergravírozás.
-
lacipapi
csendes tag
válasz Fferi50 #51762 üzenetére
Hello!
Megnéztem a neten, hogy lehet e pdf fájt csatolni, és ennek alapján csináltam. A leírás alapján minden lépés feljött (ebből gondoltam hogy lehet), de az eredmény az nem lett jó. A hiperhivatkozás nem csak egy internet cím lehet? Nekem az kellene hogy egy cellába beírt értékhez hozzá jegyen csatolva a számla is, ami pdf-be van. Ha nem pdf, akkor milyen típusú fájt lehet csatolni.
ÜdvLelkes, de már egy kicsit idős amatőr
-
föccer
nagyúr
válasz Fferi50 #51768 üzenetére
Transzponálás vagy index(hol.van()). Utóbbi csak kicsi adattömböknél tud működni. Transzponálás a jó megoldás
Építésztechnikus. Építőmérnök. Ingatlan adás-vétel vevő oldali támogatása. Mérnök tanácsadás, felújításhoz, átépítéshez. Excel feladatok megoldása. Lézergravírozás.
-
föccer
nagyúr
válasz Fferi50 #51804 üzenetére
Nem írhatok minden nap 2 kérdést ide a zopikba. Cégnél meg khhmm, még a a cellákban lévő számokat is összeadják. Számológéppel.
üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök. Ingatlan adás-vétel vevő oldali támogatása. Mérnök tanácsadás, felújításhoz, átépítéshez. Excel feladatok megoldása. Lézergravírozás.
-
ny.janos
tag
válasz Fferi50 #51837 üzenetére
Zseniális ötlet, köszönöm szépen! (Bár sokszor használom a feltételes formázást, itt és most valamiért nem jutott eszembe ezt használni.)
Mindenesetre elég gáz, hogy úgy tűnik ezek szerint, hogy nincs egyszerűen használható beépített formátumkód, ami ezt egy lépésben megcsinálná.
Új hozzászólás Aktív témák
- Retró PC játékok áron alul, német nyelven, sok ritkasággal
- Eredeti Windows 10, Windows 11, Office Akció: Office 2021, Office 2019, Office 2016 csak Retail
- Call of Duty Modern Warfare 3 ! Battlenet Gift!
- BIG BOX! - Heroes of Might and Magic 3 Double Pack (EU)
- BIG BOX! - Heroes of Might and Magic 3 (EU) csomag
Állásajánlatok
Cég: Ozeki Kft
Város: Debrecen
Cég: Ozeki Kft
Város: Debrecen