- VoLTE/VoWiFi
- Bemutatkozott a Poco X7 és X7 Pro
- Milyen okostelefont vegyek?
- Xiaomi 14T Pro - teljes a család?
- Honor Magic6 Pro - kör közepén számok
- Android alkalmazások - szoftver kibeszélő topik
- Huawei Mate X6 - keleti oldal, nyugati oldal
- Honor 400 Pro - gép a képben
- Samsung Galaxy S24 FE - később
- Motorola Edge 50 Neo - az egyensúly gyengesége
-
Mobilarena
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
kezdosql
#38964
üzenetére
Szia,
FFeri makrós megoldása mellett itt egy Power Query megoldás.
1. Az adatsorod táblázatban legyen
2. Excel-ben Adatok fülön Adatok beolvasása táblázatból megnyitja az adatsort Power Query szerkesztőben
3. Töröld az automatikusan létrehozott típus módosítás lépést jobb oldalon lévő lépés-szerkesztőben
4. A dátum oszlopot állítsuk át Dátum formátumra
5. Most pedig vágjuk szét a cellákban található azonosítót és szöveget. Jelöld ki az első oszlopot, majd válaszd az Átalakítás -> Oszlop felosztása -> Karakterszám alapján
Csak egyszer kell az első 4 karatker alapján szétvágni a szöveget:
Az eredmény ez lesz:
A.1 oszlopban lesz az azonosító és az A.2-ben a maradék szöveg.6. Az 5-ös lépést el kell végezned az összes oszlopon, vagyis következő oszlop kijelöl és oszlop felosztása karakterszám alapján.
7. Megvan minden oszlopra az átalakítás.
8. Jön egy furcsa lépés, az Unpivot. Jelöld ki csak a Dátum oszlopot, majd Átalakítás -> Többi oszlop elemi értékekre bontása
Az eredmény ez lesz:
9. Azt kell elérnünk, hogy az érték oszlopban az azonosítók egy másik oszlopba kerüljenek, ebben tud segíteni az hogy az attributum oszlop itt mindig ".1"-re végződik.
Egy új oszlopot fogunk beszúrni, amibe az érték oszlop adatát csak akkor írjuk be, ha az attributum ".1"-re végződik. Oszlop hozzáadása -> Egyéni oszlop opció kell nekünk.
10. Az egyéni oszlop képlete a fenti logika alapján ez lesz:
= if Text.End([Attribútum],2) = ".1" then [Érték] else null
11. Az eredmény megint nem tökéletes, mert pont ott nem látható az azonosító ahol az esemény történt.
12. Ezt lehet orvosolni az Átalakítás -> Kitöltés -> Le opcióval.
A végeredmény jól néz ki:
13. Most már csak meg kell szabadulnunk azoktól a soroktól ahol az érték oszlopban az azonosító látható, megint az attributum oszlop segít nekünk. A ".1"-re végződő attributomok nem érdekelnek minket.
Attributom oszlopon Szövegszűrők -> Nem erre végződik opcióval tudjuk elérni ezt. -
Fferi50
Topikgazda
válasz
kezdosql
#38967
üzenetére
Szia!
Próbáld ki az alábbi makrót:
Sub atrako()
Dim ws1 As Worksheet, ws2 As Worksheet, cl As Range, xx As Long, helye As Range, kodja As Range, kod As String
Set ws1 = Sheets("Munka1")
On Error Resume Next
Set ws2 = Sheets("Jelent?s")
If Err = 9 Then
Set ws2 = Sheets.Add(after:=Sheets(Sheets.Count))
ws2.Name = "Jelent?s"
Else
ws2.UsedRange.Clear
End If
On Error GoTo 0
With ws1.Range("A1").CurrentRegion
For Each cl In .Columns(1).Cells
If cl.Row > 1 Then
If Application.WorksheetFunction.CountA(.Rows(cl.Row)) > 1 Then
Set helye = ws2.Columns(1).Find(what:=cl, LookIn:=xlValues, lookat:=xlWhole)
If helye Is Nothing Then
Set helye = ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
helye.Value = cl.Value: ws2.Columns.AutoFit
End If
For xx = 1 To .Columns.Count
With cl.Offset(0, xx)
If .Value <> "" Then
kod = Left(.Value, 4)
Set kodja = ws2.Rows(1).Find(what:=kod, LookIn:=xlValues, lookat:=xlWhole)
If kodja Is Nothing Then
Set kodja = ws2.Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
kodja.Value = kod
End If
ws2.Cells(helye.Row, kodja.Column).Value = Mid(.Value, 5)
End If
End With
Next
End If
End If
Next
End With
With ws2.UsedRange
.Range("A1") = "A000"
.Sort key1:=Range("A1"), order1:=xlAscending, Orientation:=xlSortRows, Header:=xlYes
.Sort key1:=Range("A1"), order1:=xlAscending, Orientation:=xlSortColumns, Header:=xlYes
.Range("A1").Clear
End With
End SubAz alapadatok a Munka1 munkalapon vannak, ha más a lap neve, írd át légy szíves. Az új elrendezést a Jelentés nevű munkalapon hozza létre. Ha nincs ilyen nevű lap, akkor megkreálja, ha már van akkor törli a tartalmát - tehát többször is lefuttatható.
A kód szerinti sorbarendezésnél fontos, hogy az egyes oszlopokban használt négyjegyű kódok első betűje minden oszlopban az előzőnél hátrább legyen az ABC-ben (A011,B0XX,C100 stb). A sorbarendezés akkor is megy, ha nem így van, csak akkor nem lesznek az oszlopok kódjai egymás után.
Kiindulás:
Eredmény:
Üdv. -
Fferi50
Topikgazda
válasz
kezdosql
#38964
üzenetére
Szia!
A cellák elején a 4 karaktert elválasztja még a kettőspont a szövegtől, vagy csak szemléltetésül tetted oda. Esetleg szóköz elválasztja-e, ha nem kettőspont, vagy elég annyit tudni, hogy az első 4 karaktert kell számolni.
És persze ez folytatódik x oszlopon keresztül.
Kell-e az új formációban a dátumoknak sorban lenni (persze az utólag is rendezhető a végén).Üdv.
-
föccer
nagyúr
-
Delila_1
veterán
válasz
kezdosql
#35043
üzenetére
Nyiss egy új füzetet, amibe bemásolod a régi, és a javított fájl 1-1 lapját. A harmadik, üres lapon az A1-be írd be:
=EgyikLap!A1=MásikLap!A1
Természetesen a lapok igazi neve szerepeljen. A képletet húzd jobbra a kitöltött oszlopok szélességéig, és le, az utolsó sorig. Az egyezésnél IGAZ, az eltérésnél HAMIS értéket kapsz.
Jöhet a következő két lap összehasonlítása.
-
sztanozs
veterán
-
Delila_1
veterán
válasz
kezdosql
#34009
üzenetére
...soronkent es oszloponkent osszesitettek es latszott, hogy hanyszor es hol fordul elo.
Ehhez jó lenne, ha betennél egy képet. Anélkül nem világos, mit hova írsz be.
A válaszom arra vonatkozott, hogy egy tartományban miképp számolhatod meg egy karakter előfordulási darabszámát.
-
Fferi50
Topikgazda
válasz
kezdosql
#33876
üzenetére
Szia!
Ha megmondanád, hogy milyen grafikonos ábrázolásra gondoltál vagy tennél fel egy általad elképzelt mintáról képet, lehet közelebb kerülnénk. Így csak elbeszélünk egymás mellett, nem látom, milyen eredményt hamisít. A világon sok ezer statisztikus készít havi és éves adatokból grafikonokat is.
Egyébként pedig mindenki tudja, hogy a hónapok nem egyforma hosszúak és számításba is veszi, amikor lát ilyen statisztikákat.
Miért nem csinálsz heti grafikonokat, a hetek egyforma hosszúak.Mindezekkel együtt, még most sem tudjuk, hogy milyen adatokból mit szeretnél. Jó lenne ha feltennél egy mintát, akár képben, hogy milyen adataid vannak és mit szeretnél abból látni (bocs az ismétlésért, csak erősíteni szeretném, hogy nem vagyunk gondolatolvasók). Konkrét problémára tudunk konkrét megoldást javasolni.
Üdv.
-
Fferi50
Topikgazda
válasz
kezdosql
#33772
üzenetére
Szia!
"Egyszeru havi osszeveteseket, nem ertem, mit nem lehet ezen erteni."
Például azt, hogy milyen módon szeretnéd az összehasonlításokat elvégezni. Havi összes értékeket, napi átlagos értéket, átlagtól való eltéréseket, trendeket stb.
Vagy az a kérdésed, hogyan lehetne összehasonlíthatóvá tenni a különböző hónapoknak a hosszából következően eltérő értékeit? Erre pl. egy módszer, hogy az adott hónap napi átlagértékével számolva 30 napos hónapokat veszel, legyen az 28-29-30-31 napos akár. (Erre példa a kamatszámítás egyik módszere.)
Esetleg a havi trendet folytatva kiegészíted a nem 31 napos hónapok adatait becsült adatokkal.
De az is lehet, hogy beletörődsz abba, hogy a hónapok hossza különböző és olyan összehasonlításokat teszel (pl napi átlag), amelynél nem számít, hogy hány napos a hónap.Szerintem hasznos lenne egy-két statisztikai módszerekkel foglalkozó honlap felkeresése, ahol ilyen problémák megoldásának autentikus módjáróll is bizonyára lehet hasznos tanácsokat kapni.
Üdv.
-
-
Delila_1
veterán
válasz
kezdosql
#33478
üzenetére
A D4-es cella képlete
=INDEX($A$12:$D$15;HOL.VAN(C4;$A$12:$A$15;0);HOL.VAN(B4;$A$12:$D$12;0))=INDEX($A$12:$D$15,MATCH(C4,$A$12:$A$15,0),MATCH(B4,$A$12:$D$12,0))ezt kell lemásolnod D8-ig.
K3-ba
=HA(DARABTELI($B$13:$B$15;J4)>0;"A" & HOL.VAN(J4;$B$13:$B$15;0);HA(DARABTELI($C$13:$C$15;J4)>0;"B"&HOL.VAN(J4;$C$13:$C$15;0);HA(DARABTELI($D$13:$D$15;J4)>0;"C"&HOL.VAN(J4;$D$13:$D$15;0))))=IF(COUNTIF($B$13:$B$15,J4)>0,"A" & MATCH(J4,$B$13:$B$15,0),IF(COUNTIF($C$13:$C$15,J4)>0,"B"&MATCH(J4,$C$13:$C$15,0),IF(COUNTIF($D$13:$D$15,J4)>0,"C"&MATCH(J4,$D$13:$D$15,0)))) -
Delila_1
veterán
válasz
kezdosql
#33476
üzenetére
Nem azt küldted, ami az eredeti kérdésedben szerepel.
"Vizsgalni kell, hogy A oszlopban levo datum milyen savba esik" Hol van a füzetben dátum?
A csatolt füzet J4 cellájának a képlete:
=FKERES($I4;$A$4:$D$84;4;0)
A K4-é:=FKERES($I4;$A$4:$D$84;2;0) & FKERES($I4;$A$4:$D$84;3;0)Nálad az FKERES megfelelője a VLOOKUP függvény.
A D20:D23 területet kijelölve írd be a képletet:
=GYAKORISÁG(D4:D8;A20:A23), majd Shift+Ctrl+Enter-rel vidd be.A Gyakoriság függvény angol megfelelője a FREQUENCY.
Mit kell kezdeni a 2.táblával?
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Hirdetés
Fferi50- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Cyberpunk 2077
- Kezdő fotósok digitális fényképei
- Milyen processzort vegyek?
- VoLTE/VoWiFi
- Kertészet, mezőgazdaság topik
- Milyen monitort vegyek?
- Vezetékes FÜLhallgatók
- Mit tehetsz jogilag, ha átvertek, megkárosítottak a Hardveraprón?
- Tőzsde és gazdaság
- További aktív témák...
- Eladó steam/ubisoft/EA/stb. kulcsok Bank/Revolut/Wise (EUR, USD, crypto OK)
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Assassin's Creed Shadows Collector's Edition PC
- Sea of Thieves Premium Edition és Egyéb Játékkulcsok.
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
- AKCIÓ! Microsoft XBOX Series X 1TB SSD fekete játékkonzol garanciával hibátlan működéssel
- LG 65" C1 OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready!
- Honor Magic 7 Pro - Fekete - Új kipróbált készülék! Karcmentes gyárilag független! 512GB Memória!
- BANKMENTES részletfizetés Noblechairs HERO RL valódi bőr Gamer Szék
- Csere-Beszámítás! Asus Rog Strix GTX 1080Ti 11GB GDDR5X Videokártya!
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: Promenade Publishing House Kft.
Város: Budapest