-
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
-
alfa20
senior tag
válasz Fferi50 #44250 üzenetére
Igen ezt ismerem, de nem boldogulok vele, mert az alaptáblában dátum szerint napi árbevételek vannak 2019 és 2020. A pivot rendezi egymás mellé év szerint az árbevételt.
És ide szeretnék egy változás oszlopot, mekkora a változás mértéke 2019-hez képest.
Ehhez az kellene, hogy a pivot 2019-es árbevételét kivonja a mellette lévő pivot 2020 árbevételéből."Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
Taktoj
aktív tag
válasz Fferi50 #44249 üzenetére
Köszia a tippeket, ezeket megcsináltam azon üres cellálkat hagytam meg amik szükségesek, feltéterles formázásokat töröltem, továbbá töröltem 10 ezer sort 10 oszlopot, igy maradt 4100 sorom s 20 oszlopom autoszűrővel, tábálázatnak formáztam nemrég..talán nem kellett volna?.. max 10 képlet van benne,s az egész egy fulet kulon lapra atmasoltam, hivatkozásokat eltávolitottam. Gyorsabb lett, de csak annyira hogy rámondhassuk. egy adatra amibol 18 db van a 4100 ból 45 másodpercig szűrte... a baj már nem is izgat csak hogy hogyan tudnék ebbol minimálisan használható dolgot csinálni, mentés sima xlsx lett.? biztos kihagytam valamit , de nem akarom újra csinálni nem regelt 2016 on fut, ezt próbálgatom, de lehet jobban járok ha nem is veszem meg... inkabb visszatérek a gg tablazathoz?
[ Szerkesztve ]
Az élet olyan, mint egy doboz bonbon. Sosem tudhatod, mit veszel ki belőle.
-
Mutt
aktív tag
válasz alfa20 #44251 üzenetére
Szia,
PowerPivot-tal megy, az kinézettel csak annyi a gond, hogy a lenti képen az I-J oszlopot el kell rejteni ha zavaró.
Lépések:
1. Pivot létrehozásakor az adatmodelt is be kell pipálnod ahhoz hogy elérd a DAX függvényeket.
2. Megtervezed a Pivot-odat.
3. A mezőválasztónál a fejlécen jobb klikk, majd új mező létrehozása, aminek a képlete esetemben:=CALCULATE(SUM(Range[Value]);FILTER(Range;Range[Date (Year)]=MAX(Range[Date (Year)])))-CALCULATE(SUM(Range[Value]);FILTER(Range;Range[Date (Year)]=MIN(Range[Date (Year)])))
A mezőneveket a sajátod szerint add meg. A képlet feltételezi hogy csak 2 éved van, MIN/MAX.
4. Behúzód a helyére az új mezőt.
5. Csinosítgatsz.Alternatív megoldás:
Pivot melletti oszlopban képletekkel kiszámolod a különbséget. Itt figyelned kell arra, hogy a Pivot tud bővülni vagyis a fix hivatkozások miatt érdemes INDEX/MATCH és IFERROR-okat használni.Egy másik lapra kiteszed a Slicer-t és ott megint INDEX/MATCH párossal megjeleníted a végeredményt. Az eredeti lapot pedig elrejted.
Ezt hívják dashboard-nak. A lényeg a vizualizáció, a háttérszámítások egy "rejtett" helyen vannak, a fő lapon mindig csak a kívánt tartalom jelenik meg dinamikusan.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Fferi50
őstag
válasz Taktoj #44253 üzenetére
Szia!
Szerintem valami ott még mindig nem kerek. Így látatlanban sajnos nem tudok sokkal többet mondani.
Ha kikapcsolod az automatikus újraszámítást (manuálisra állítod), akkor mennyi a futásidő?
Talán megpróbálnám először 100 sorral, aztán 1000 sorral és nézném, hogy mennyi ideig dolgozik.
Milyen függvények vannak benne? Ha táblázat, akkor az automatikusan terjed a tartományban. Indirekt, eltolás és egyéb volatile függvények okozhatnak ilyet még esetleg.
Ha nem szupertitkos a dolog, akkor priviben esetleg elküldhetnéd és megnézném. Mondjuk ma este még rá tudok nézni, utána csak a jövő hét közepén érek rá.
(Tudod, a dokihoz is el kell menni, a távdiagnosztika csak ritkán műxik.)
Üdv. -
Mutt
aktív tag
Sziasztok,
Másik fórumon az alábbi probléma merült fel: felhasználó szeretné ha megad számokat és azok ismétlésének számait (ami eltérő is lehet), akkor abból a legkönnyebben legyen egy kész lista.
A képen bal oldali listából kellene a jobb oldali.
Power Query-vel ez nagyon könnyen elérhető. A lényeg, hogy felsorolást kapcsos zárójellel az alső és felső érték megadásával lehet létrehozni. pl. {1..99} vagy {'a'..''z'}
A listát sorokba kell bontatni és kész is az eredmény.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Taktoj
aktív tag
Valaki esetleg próbálta már telegram egyik csatornájáról scrapelni?, Mennyire lehetséges hogy nagy tudásommal megtudnám csinálni? illetve gondolom nem nagyon milyen szakit kellene keresnem ezügyben?
Az élet olyan, mint egy doboz bonbon. Sosem tudhatod, mit veszel ki belőle.
-
maliszka
csendes tag
Hello, a lenti problémára keresek megoldást, a rászánt időt természetesen honorálom :)
Ezt a költségfigyelő alkalmazást használom:
https://play.google.com/store/apps/details?id=com.handyapps.expenseiq&referrer=utm_source%3Deiqweb%26utm_campaign%3Dheadlink
Ebbe lehet importálni CSV file-ból pl banki adatokat, amiket nem akarok egyenként felvenni.
De képtelen vagyok excel táblából úgy konvertálni, hogy elfogadja a program.Itt van leírva, hogy mit fogad el, de nekem nem megy :)
https://www.expense-iq.com/faq
IMPORT, EXPORT DATA & CLOUD SYNCErre kellene nekem egy sablon + egy útmutató. Excel vagy open office, mindegy.
Előre is köszi
-
zsoltzsolt
addikt
Sziasztok!
Hogyan lehet egy táblázatba adott számú, jelen esetben 59.000 sort beszúrni? Vagyis, hogy a számát pontosan lehessen megadni!
Előre is köszönöm az ötleteket! -
Delila_1
Topikgazda
válasz zsoltzsolt #44259 üzenetére
Modulba tedd.
Az aktív cella fölé szúr be 59.000 sort.Sub Sorbeszuras()
Rows(Selection.Row & ":" & Selection.Row + 59000).EntireRow.Insert
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Mutt
aktív tag
válasz maliszka #44258 üzenetére
Szia,
...Ebbe lehet importálni CSV file-ból pl banki adatokat, amiket nem akarok egyenként felvenni....
A fenti képen bal oldalt van egy elméleti adatsor letöltve a bankodból, jobb oldalt pedig a programnak megfelelő sorrend van.
H2-ben ez a képlet:
=HA($A2<>"";B2;"")
J2-ben pedig ha magyar területi beállítású Excel-t használsz akkor ez (a helyette a tizedesvesszőt pontra cseréli a proginak, importálásnál ez az alapértelmezett):
=HA($A2<>"";HELYETTE(SZÖVEG(C2;"#0,00");",";".");"")
K2-ben ez a képlet (feltételezve hogy csak a tényleges kiadásokat/bevételeket vezeted):
=HA(A2<>"";"C";"")
I2 képlete:
=HA($A2<>"";SZÖVEG(A2;"éééé-hh-nn");"")
M2 képlete:=HA(ÉS($A2<>"";D2<>"");D2;"")
I-oszlopba neked kell bevinned a programban használd kategóriáidat (javasolt egy adatérvényestés ehhez).
O-oszlopban ezen adatokat már csak össze kell fűzni és a végére még egy vesszőt tenni.
O2-ben a képlet:=HA(A2<>"";SZÖVEGÖSSZEFŰZÉS(",";HAMIS;""""&H2:M2&"""")&",";"")
Ezeket a képleteket jó sokszor másod le és kész is a sablonod.
A következő lépés már csak az O-oszlopban lévő adatok kijelölése és másolása egy szövegszerkesztöbe ami képes UTF-8-as kódolással menteni. pl. az ingyenes Notepad++
Ezek után a fájlt már csak fel kell másolni a telóra.üdv
Ps. A https://github.com/viszi/codes/blob/master/Excel/Useful/Export2CSV/Export2CSV.xlsm oldalon van egy Excel fmakró, ami képes kimenteni adott elválsztókkal a kijelölt tartományt. Ez majdnem jó lenne, de az ékezetes karaktereket nem jó kódolással menti ki a programnak így esetedben felejtős.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
HREH
senior tag
Van egy munkalapom, amelyen a C1:G1 tartományban van 5 játékos neve.
Azt szeretném elérni, hogy ha az A2 cellába manuálisan beírok egy nevet, akkor az A21-es celláig automatikusan töltse ki a cellákat, a megadott nevek sorrendjében, majd ismét kezdje az elejétől.
Itt egy kép, hogy mire gondolok: link (nem A21-ig csináltam a képet, de addig kellene, hogy működjön)
A2-be beírom a Dani nevet, aláírja már automatikusan az Elemért, majd ismét indul az elejétől. Természetesen a nevek változnak a C1:G1 tartományban.
Az A2:A21 tartomány fix, 20 játékon keresztül kell osztó, a csavar annyi benne, hogy lehet 6-7-8 játékos is, ekkor hasonlóképpen kellene, hogy működjön a dolog.Jöhet akár makróval is.
Köszönöm![ Szerkesztve ]
"Fun isn't something one considers when balancing the universe. But this... does put a smile on my face."
-
Delila_1
Topikgazda
Az A3 cella képlete
=HA(INDEX($1:$1;1;HOL.VAN(A2;$1:$1;0)+1)="";$C$1;INDEX($1:$1;1;HOL.VAN(A2;$1:$1;0)+1))
Ezt másolhatod lefelé akármeddig.
Szerk.: a neveket is tetszőlegesen bővítheted az első sorban.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Zola007
veterán
Adott egy nagyon egyszerű függvény:
=MARADÉK(M168-N167;1)Két időpont közötti óra/percet kellene kiszámolnia
Nagyrészt jól működik, kivéve pl. mikor
N167=23:00
M168=06:00Ekkor kiakad és
• cellába nem ír semmit
• belekattintva nem látszik a függvényből semmi , csak a cellák száma, de kurzorral lehet mozogni a "semmiben" jobbra-balra
• de függvényszerkesztőben látszik és ott jól is írja az értéket
mi lehet a gond?Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
Zola007
veterán
úgy nem működik az összeadás utána
hiába megadom formátumnak a 24 órán túlnyúlást [ó]:pp formátumban, ilyen 1726:00 és hasonlókat kapok[ Szerkesztve ]
Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
gepesz13
tag
Sziasztok!
Valamit elnyomtam és nem tudok rájönni, hogy mit. Excel táblában a nyilakkal nem az aktív cella mozog hanem az egész lap. Kérlek segítsetek mert kezdek begolyózni.
Üdv és köszi! -
Bazs1981
aktív tag
Sziasztok!
Abban kérném a segítségeteket, hogy véletlen számot kellene generálnom 0,1 és 0,5 között, mi ennek a képlete?
-
Telda
addikt
Sziasztok!
Nagy segítséget szeretnék kérni .
Van nekem két munkalapom.
Az egyes munkalapon lévő számok közül szeretném kikeresni az összes olyan tételt, ami a kettes munkalapon lévőkkel kezdődik.
Például a kettes lapon szerepel a 4105709V, akkor keresse ki az összes tételt ami ezzel kezdődik.
4105709V-045
4105709V
4105709V-091
4105709V-006
4105709V-126
4105709V-193
4105709V-236
4105709V-269
4105709V-301
Eddig ezt szűréssel csináltam, de egyenként nagyon lassan halad.
Csatolom a munkafüzetet.
[link] -
Delila_1
Topikgazda
A kettes lapon lévő tartománynak nevet adsz. Legyen ez pl. Lista.
Az egyes lapon a tartománynak feltételes formázást adsz, a képlet=HOL.VAN(A2;Lista;0)
Vagy képletet írsz az egyes lapon a B oszlopba.
=HA(HOL.VAN(A2;Lista;0);1)
A fellelhető értékek mellé 1-et ír, a többihez #HIÁNYZIK szöveget. Biztosan lehetne szépíteni, de most szaladok.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Fferi50
őstag
-
Fferi50
őstag
Kiegészítés:
Ha feltételes formázást szeretnél (mert akkor nem kell segédoszlop), az alábbi képletet használhatod. Jelöld ki az A2 cellát, majd:
Kezdőlap - Feltételes formázás - Új szabály - A formázandó cellák kijelölése képlettel -- Érték formázása ha ez a képlet igaz:=HAHIBA(HOL.VAN(HAHIBA(BAL($A2;SZÖVEG.TALÁL("-";$A2)-1);$A2);Lista;0);"N")<>"N"
Kiválasztod a megfelelő formázást. OK.
Ezután a szabályok kezelése menüpontban beállítod az érvényesség tartományát az A oszlopodnak megfelelően.
Szűrésnél így az A oszlopra használhatod a színszűrőt.Üdv.
-
Fferi50
őstag
-
Telda
addikt
válasz Fferi50 #44290 üzenetére
De az is kell .
Minden olyan szám kell aminek a kezdete megegyezik a Listában lévőkkel.
A Listában vannak olyan számok amik V-re végződnek. (Ezeket szépen le is válogatta.)
Pl. ez 30480700 benne van a listában, akkor a következőket találja meg:
30480700S01-073
30480700-073
30480700
Vagy ez 4186396V van a lsitában, akkor:
4186396V
4186396V-045
4186396V-301
4186396VS01-045
Ilyen "Kezdete" szürést nem lehet tömegesen csinálni?Köszönöm hogy ennyi idő szánsz rám!
[ Szerkesztve ]
-
Fferi50
őstag
Szia!
"Minden olyan szám kell aminek a kezdete megegyezik a Listában lévőkkel."
Bocs, de meddig számoljuk a kezdetet? Hány karakterig? Milyen határoló karakter van? V vagy S vagy - vagy micsoda más?
Mert a listádban van 6-7-8-9 karakteres keresendő tétel....
És hat karakterig elég sok egyezőség is.
Legalább a keresendő listád lenne egyértelmű....
A képletet minden érvényes elválasztó/határoló karakterre meg kellene csinálni.
Üdv.[ Szerkesztve ]
-
Pakliman
tag
Szia!
Egy kis makrózással megoldható...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = Range("A1").Address Then
'Duplaklikk az A1 cellán
Cancel = True 'Megakadályozzuk, hogy szerkesztő módba lépjen a cellában.
Dim sha As Worksheet: Set sha = Worksheets("Munka1") 'ActiveSheet
Dim shk As Worksheet: Set shk = Worksheets("Munka2")
Dim usa As Long: usa = sha.Cells(sha.Rows.Count, "A").End(xlUp).Row 'A Munka1 utolsó sora
Dim usk As Long: usk = shk.Cells(shk.Rows.Count, "A").End(xlUp).Row 'A Munka2 utolsó sora
Dim sora As Long
Dim sork As Long
'Nem kell folyton újraszámolni, sem villogtatni a képet...
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
'Kiürítjük a B oszlopot...
sha.Range("B2:B" & usa).ClearContents
For sora = 2 To usa
For sork = 2 To usk
If sha.Cells(sora, 1) Like shk.Cells(sork, 1) & "*" Then
'Ha a Munka1 aktuális cellája "hasonlít" a Munka2 aktuális cellájára, akkor...
sha.Cells(sora, 2) = 1 '...a Munka2 2. oszlopába berakunk egy 1-est
Exit For 'Mivel van találat, a több elemet már nem vizsgáljuk, továbblépünk...
End If
Next sork
Next sora
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End If
End Sub -
-
szricsi_0917
tag
Sziasztok
Egy kis segítséget szeretnék kérni.
Mi lehet a probléma az alábbi makró részlettel?
Ez csak egy teszt, tehát csak próba elnevezések vannak benne:Sub proba()
Set abc = Sheets("Összerendelés").Range("A1:A10000").Find(What:=18, LookIn:=xlValues)
Set abc1 = abc.Offset(0, 29)
Sheets("Összerendelés").Range("af6") = Application.WorksheetFunction.CountA("Összerendelés!" & abc.Address & ":" & abc1.Address)
End SubSzerintem rosszul adom meg a CountA tartományát.
[ Szerkesztve ]
-
szricsi_0917
tag
válasz szricsi_0917 #44295 üzenetére
Sziasztok
Közben megtaláltam a megoldást! -
Fferi50
őstag
válasz szricsi_0917 #44295 üzenetére
Szia!
Makróban a tartományokat a Range tulajdonsággal kell megadni.Sheets("Összerendelés").Range("af6") = Application.WorksheetFunction.CountA(Sheets("Összerendelés").Range(abc.Address & ":" & abc1.Address))
Üdv. -
Enikő 39
friss újonc
Sziasztok,
segítséget szeretnék kérni. Van egy táblázat, mely hús megrendelést tartalmaz és egy lapra 8 ember megrendelését lehet feltüntetni. Lenne egy névlista, melyet a táblázatban a név melletti cellában szeretnék feltüntetni, de úgy, hogy ne kelljen mindegyiket egyesével beirogatni nyomtatáskor. Ehhez kérnék segítséget, hogy ezt hogyan lehetne megoldani... Arra gondoltam, hogy egy másik munkalapra felvinném sorban a neveket és valamilyen hivatkozással? vagy nem tudom...
Van erre valakinek valamilyen ötlete?Köszönöm a segítséget!!
-
Fferi50
őstag
Szia!
Ha még nincs megoldásod, ezt a makrót másold be egy modul lapra.Sub keresi()
Dim kodok As Range, adatok As Range, adat As Range, kod As Range, adatcim As String
Sheets("Munka1").Range("B:B").Clear
Set kodok = Sheets("Munka2").Range("A1").CurrentRegion
Set adatok = Sheets("Munka1").Range("A1").CurrentRegion
Set adat = adatok.Cells(1)
For Each kod In kodok.Cells
Set adat = adatok.Find(what:=kod, after:=adat, LookIn:=xlValues, lookat:=xlPart)
If Not adat Is Nothing Then
adatcim = adat.Address
Do
adat.Offset(0, 1).Value = 1
Set adat = adatok.Find(what:=kod, after:=adat, LookIn:=xlValues, lookat:=xlPart)
Loop While adat.Address <> adatcim
Else
Set adat = adatok.Cells(1)
End If
DoEvents
Next
Application.ScreenUpdating = True
MsgBox "Készen vagyunk!"
End Sub
A munkalapok neveit igazítsd a sajátodéhoz. A makró minden olyan érték mellé beír egy db 1-est, amelyik a kódok listájában előforduló értékkel kezdődik. Ne lepődj meg, ha kicsit sokáig fut.
Üdv.
Új hozzászólás Aktív témák
- Samsung Galaxy Z Flip5 - ami kint, az van bent
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- HiFi műszaki szemmel - sztereó hangrendszerek
- Androidos fejegységek
- Linux - haladóknak
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- War Thunder - MMO Combat Game
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Parfüm topik
- Motorola Moto G24 Power - hol van az erő?
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Eladó Steam kulcsok kedvező áron!
- Vírusirtó, Antivirus VPN kulcsok
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!