- gban: Ingyen kellene, de tegnapra
- Geri Bátyó: Megint tahó voltam – SZEMÉLYISÉGFEJLŐDÉS
- weiss: Logi MX Master 3S FW NEM frissítés
- Argos: Adjátok vissza a netet! - szeretnék elaludni!
- Magga: PLEX: multimédia az egész lakásban
- MasterDeeJay: Alacsony fogyasztású házi szerver a korábbi projektekből összeépítve
- nonsen5e: DPD tapasztalatok
- adika4444: MikroTik IPv6 DIGI PPPoE-vel
- Kempingezés és sátrazás
- sziku69: Szólánc.
Hirdetés
-
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
-
bucihost
senior tag
-
Fferi50
Topikgazda
válasz
bucihost
#42194
üzenetére
Szia!
Mit csinálna a fájl a másik helyen?
Ha a makróval szeretnéd a képeket másik helyen berakni, akkor természetesen nem fogja ott megtalálni azokat.
A beágyazott képeknek elvileg benne kellene lenniük a fájlban (ezért írta Delila, hogy az X kép helyett jelet tegyél a cellába), méret növekedés megmutatja ezt.
Ahhoz, hogy a képek megjelenjenek nem kell újra betölteni azokat.
Üdv. -
Fferi50
Topikgazda
Szia!
Kijelölöd az összes ábrádat a nyilakkal együtt, jobb egérgomb - csoportosítás. Így "egy" ábrává '"olvad össze". Szétbontás ugyanígy a jobb egérgombbal.
Egy-egy alakzatot és nyilat elvileg lehet úgy mozgatni, hogy a nyíl "vándorol" az alakzatnak megfelelően (azaz nyúlik vagy zsugorodik is).
Üdv. -
ny.janos
tag
Miután leírtam a javaslatot, utána gondolkodtam még rajta pár percet, hogy milyen más (általam ismert) megoldásokat lehet érdemes számításba venni.
Ha az adathalmazod több hónapnyi / esetleg évnyi adatot is tartalmaz, akkor mindenképpen fontolóra venném egy kimutatás készítését, annál egyszerűbb megoldás nem igen van.
Ha pl. nem teljes havi (heti, félhavi stb.) összesítésre lenne szükséged, akkor ahhoz készethetsz egy táblázatot egymás mellé a kezdő és végdátumokkal. Ha feltesszük, hogy a kezdő dátumok az A oszlopban, az összegezni kívánt időszak végét jelölő dátumok pedig a B oszlopban vannak, akkor a korábban javasolt képlet használható az alábbi módon:
=SZUMHATÖBB($K$5:$K$20;$D$5:$D$20;">="&A2;$D$5:$D$20;"<="&B2)A SZUMHATÖBB függvény helyett egyébként két tömb szorzataként is megkapható az eredmény, ha kihasználjuk a relációs vizsgálat azon tulajdonságát, hogy az "igaz" értéket 1-nek, a hamis értéket 0-nak értelmezi az excel, de ehhez pl. össze kell szorozni azokat, vagy két - (mínusz) jelet kell tenni eléjük. (Ezt a működést pl. itt a fórumon tanultam, köszönhetően Mutt egy korábbi hozzászólásának). Vagyis az eredmény megkapható így is:
=SZORZATÖSSZEG($K$5:$K$20*(DÁTUM(2019;5;1)<=$D$5:$D$20)*($D$5:$D$20<=DÁTUM(2019;5;31)))
vagy így=SZORZATÖSSZEG($K$5:$K$20;--(DÁTUM(2019;5;1)<=$D$5:$D$20);--($D$5:$D$20<=DÁTUM(2019;5;31)))Ha tömbképletet használsz, akkor a SZUM függvény is használható a SZORZATÖSSZEG helyett, de akkor a képlet rögzítését követően a cellát Ctrl + Shift + Enter-rel kell lezárnod.
=SZUM($K$5:$K$20*(DÁTUM(2019;5;1)<=$D$5:$D$20)*($D$5:$D$20<=DÁTUM(2019;5;31)))
-
ace05
senior tag
Üdv! Kapcsolat diagramot kell csinálnom. Tudom alakzatokkal és vonal rajzolással meg lehet csinálni. De olyat tud az excel, hogy tegyük fel van 5 ábra, azt nyilakkal összekötöm ahogy kapcsolódnak. Majd mikor mozgatom, akkor a nyilak is mozognak az ábrával, majd beállnak szépen az ábra új helyén ? A smartart-ban az egyszerű csillagdiagram jó lenne, de ott az a baj, hogy egy ábrához kapcsolódik a többi és nem lehet megszüntetni kapcsolatot kettő között.
-
Fferi50
Topikgazda
válasz
Petium001
#42191
üzenetére
Szia!
Az Fkeres függvény alkalmas rá, a 4. paramétert igaznak beállítva. Csinálsz egy táblázatot, ami a súly függvényében mutatja a szállítási költséget és a haszonkulcsot, figyelembe véve a határokat.
Pl. súly 0 szállítási ktg 10, súly 10 szállítási költség 5, súly 20 szállítási ktg 0
Első oszlop súly, második oszlop ktg. Az Fkeres a határt is beleértve az alatta levő értéket adja vissza.
Ugyanígy a haszonkulcsra is.
Üdv. -
Petium001
csendes tag
Sziasztok!
Szeretném megkérdezni, megoldható e a következő feladat valamilyen módon:
Van egy lista, termékek kódjával, termékek súlyával, termékek beszerzési árával, súlyfüggő szállítási költséggel, súlyfüggő haszonkulccsal.
Hogyan lehet megoldani, hogy a végösszeg a változó súly és változó szállítási költség, valamint a haszonkulcs ( egy bizonyos súlyig %, afölött pedig fix), összege?
Köszönöm
-
Fferi50
Topikgazda
válasz
Richard
#42187
üzenetére
Szia!
A táblázatokban az a szép, hogy lehet velük szuperül dolgozni.
Pl.Range("Táblázat3[[#All],[Hozam]:[Hozam2]]").Copy
A Hozam és a Hozam2 közötti oszlopokat másolja egy lépésben.
A kettőspont jelenti azt, hogy ami közte van.
Érdemes megnézned a Táblázatok-hoz kapcsolódó Súgót. Ott vannak a műveleti lehetőségek.
(Nomeg néha a makrórögzítés is segít -- mint nekem most
)
Ha a fejléceket nem szeretnéd másolni, akkor a #All helyett írd #Data.Üdv.
-
válasz
Fferi50
#42186
üzenetére
Köszönöm, ezt ismerem ( Te mutattad nemrég
). A probléma csak az, hogy nem szeretném 82 oszlop nevét beírni, főleg hogy max 30 érték lehet az Union-ban.Ezért keresek olyan megoldást, hogy megnevezek két oszlopot és az elsőtől az utolsóig jelölje ki.
Már, ha egyáltalán ez megoldható?!
-
Fferi50
Topikgazda
válasz
Richard
#42185
üzenetére
Szia!
Az oszlopoknál használhatod a neveket (ha ismered őket) az index szám helyett. Ha több oszlopot is szeretnél kijelölni, akkor az Union függvényt használhatod:With Worksheets("munka1").ListObjects("tabla1")Union(.ListColumns(nev1).Range, .Listcolumns(nev2).Range, . Listcolumns(nev3).Range).Copy 'ahány oszlopot szeretnél kijelölni, annyit kell a függvényhez beírni.End With
Üdv. -
Olyan megoldás létezik erre
With Worksheets("munka1").ListObjects("tabla1").ListColumns(1).Range.Resize(, 82).CopyEnd With, hogy az oszlopok száma és annak kiterjesztése helyett meg lehessen adni a tábla fejlécében levő szöveget? Tehát, hogy ne az első 82 oszlopot jelölje ki a táblából, hanem mondjuk a megadott oszlopnévtől adott oszlopnévig bezárólag csinálja?
Vagy ide valami .Find megoldás dukál?
-
válasz
Delila_1
#42183
üzenetére
Köszönöm!
Így már látom mit hagytam ki
Addig jutottam, hogy kiírta a munkalapok mellé a táblát, de csak a B oszlopba 1-et. Ha több tábla volt azt nem folytatta C,D,E... oszlopokban.
(#42182) Fferi50 : El volt csúszva a táblanevek oszlop lefelé 1 cellával, mert a tábláknál nem volt x-1. Közben este erre rájöttem, köszi!
-
Delila_1
veterán
válasz
Richard
#42179
üzenetére
Sub Lap_Tabla()Dim sor As Integer, CV, lap As Integer, oszlop As Integersor = 1For lap = 1 To Worksheets.CountWith Sheets(1)oszlop = 1.Cells(sor, oszlop) = Sheets(lap).NameFor Each CV In Sheets(lap).ListObjectsoszlop = oszlop + 1.Cells(sor, oszlop) = CV.NameNextEnd Withsor = sor + 1NextEnd Sub -
válasz
Fferi50
#42180
üzenetére
Így már értem és működik is, köszönöm!
Már csak azt kellene megoldani, hogy a munkalapok neve mellé azokat a táblákat tegye, amik az adott munkalapon vannak.
Erre nem jövök rá, mert a táblákból bármit ki bírok íratni a táblanév mellé, de a munkalap mellé az azt tartalmazó táblákat nem
-
Fferi50
Topikgazda
válasz
Richard
#42179
üzenetére
Szia!
1. Az i és x változód ne Single legyen, hanem Integer vagy Long (ha sok munkalapod van).
2. A Range("A1").Cells(x,1) helyett használd nyugodtan a Cells(x,1) formát, ez a helyes.
3. A Cells(i,x+1) cella az i-edik sor x+1-edik oszlopban, tehát biztosan nem az x-edik sorban.
4. A For Each tbl ciklus pontosan a lehetséges több tábla miatt van.
5. Ha a táblák nevét az A oszlopba betett munkalapnév mellé a B,C stb oszlopban szeretnéd látni, akkor a Cells(x,i) cellába kell íratnod és i értéke 2-től induljon, továbbá minden táblás ciklus előtt 2-re kell állítanod az értékét, hogy ne írja felül az A oszlopban levő értéket.
Remélem, ez alapján már menni fog.
Üdv. -
Sziasztok.
Sajnos ismét elakadtam.
Szeretném kiíratni A oszlopba az adott excel fileban levő munkalapok nevét, a mellette levőbe pedig a munkalapon levő táblázatok neveit.
Eleve nem csinálja amit szeretnék, mert csak a munkalapok neveit teszi be A oszlopba, de felvetődik a kérdés mi van akkor, ha több tábla is van egy munkalapon?
Kérem aki tudja hol lövök mellé segítsen:
Sub proba_1()Dim ws As WorksheetDim tbl As ListObjectDim i As Single, x As Singlei = 1x = 1For Each ws In ThisWorkbook.WorksheetsRange("A1").Cells(x, 1) = ws.Namex = x + 1For Each tbl In ws.ListObjectsRange("A1").Cells(i, x + 1).Value = tbl.Namei = i + 1Next tblNext wsEnd SubKöszönöm
-
csiben1
tag
Sziasztok!
Adott lenne egy Excel munkafüzet amiben van több munkalap. Ugye ha módosítom a tartalmát és bezárom, a következő megnyitáskor azt a munkalapot jeleníti meg elsőnek, ahol a mentés történt.
Kérdésem az volna, hogy be lehet-e állítani, hogy függetlenül attól, hogy melyik munkalapon mentettem el, mindig az első lapot nyissa meg vagy egy adott nevűt.Előre is köszönöm a segítséget!
-
ny.janos
tag
Szia!
Ha jól rémlik, akkor egyrészt SZUMHA függvénybe nem tudsz egyszerre két feltételt megadni ÉS függvénnyel. Erre a SZUMHATÖBB függvény való. Másrészt a feltételnél a relációjeleket időzőjelbe kell tenned, és nem kell szerepeljen benne a cellahivatkozás (D5).
=SZUMHATÖBB($K$5:$K$24;$D$5:$D$24;">="&DÁTUM(2019;5;1);$D$5:$D$24;"<="&DÁTUM(2019;5;31)) -
Delila_1
veterán
válasz
bucihost
#42170
üzenetére
Másik megoldás, hogy a "nagy piros x kép" ne növelje a fájl méretét.
A két, csillagokkal jelölt sor a kép méretét határozza meg. A 0.4-et írd át kedved szerint. Ki is hagyható ez a két sor.Sub PlacePics()Dim Path As String, Pics As Range, Pic As RangePath = "C:\Users\branyiczkif\Desktop\AjanlatKepek\kepek\"Set Pics = ActiveSheet.Range("B2:B20")For Each Pic In PicsPic.Offset(0, -1).SelectOn Error Resume NextActiveSheet.Pictures.Insert(Path & Pic.Value & ".png").SelectSelection.ShapeRange.ScaleWidth 0.4, msoFalse, msoScaleFromTopLeft '***Selection.ShapeRange.ScaleHeight 0.4, msoFalse, msoScaleFromTopLeft '***If VarType(Selection.ShapeRange) = vbError ThenPic.Offset(0, -1).Value = "X"Pic.Offset(0, -1).Font.ColorIndex = 3On Error GoTo 0End IfNext PicEnd Sub -
-
bucihost
senior tag
válasz
bucihost
#42167
üzenetére
Találtam egy macrot, ami jó lenne. Viszont ha nem talál képet, akkor "lehal" a macro.
Mit kellene hozzá írni, hogy ha nem talál képet akkor tovább lépjen vagy egy általam definiált képet rakjon oda? (egy nagy piros X)Sub PlacePics()
Dim Path As String, Pics As Range, Pic As Range
Path = "C:\Users\branyiczkif\Desktop\AjanlatKepek\kepek\"
Set Pics = ActiveSheet.Range("B2:B20")
For Each Pic In Pics
Pic.Offset(0, -1).Select
ActiveSheet.Pictures.Insert(Path & Pic.Value & ".png").Select
Next Pic
End Sub -
Lokids
addikt
Sziasztok!
Képletezési segítség kell.
Adott 6 mező dátumokkal.
mondjuk a1:a6A7-be szeretnék egy igaz, vagy hamis végeredményt.
A feltétel:
Tudni akarom, hogy van-e lejáró feladat. A mezők a feladat határideje, a módosított határidők.
Ha A6 <= mai nap+30 és nem üres, különben A5, ha az üres akkor A4 stb..
Hogy néz ki ez helyesen? -
-
Pakliman
tag
válasz
Jarod1
#42159
üzenetére
1. Biztos, hogy az a cella az aktív, amelytől balra lévő oszlopokat és amely fölött lévő sorokat rögzíteni akarod?
2. Én VBA-ban találkoztam vele.
Ott is KIZÁRÓLAG egy bizonyos, programból létrehozott és kitöltött munkalappal csinálja (Office2016, a létrehozott munkafüzet 4 munkalapot tartalmaz kódból létrehozva!).
A kódot lépésenként végrehajtatva jó értékek vannak a "fagyasztásnál", mégis a P2 cella helyett az I15-öt zárolja.
Ez nem működik:.Cells(2, 16).Select
ActiveWindow.FreezePanes = TrueHelyette ezt használom:
With ActiveWindow
If .FreezePanes Then .FreezePanes = False
.SplitColumn = már_nem_mozgó_oszlop
.SplitRow = már_nem_mozgó_sor
.FreezePanes = True
End With -
Pakliman
tag
válasz
pero19910606
#42157
üzenetére
Public Sub Kitölt()
Dim us As Long
Dim i As Long
Dim sNév As String
'Feltételezzük, hogy az adatok az "Adatok" munkalapon vannak...
With Worksheets("Adatok")
'Megkeressük az utolsó beírandó adat sorát
us = .Cells(.Rows.Count, "A").End(xlUp).Row
'feltételezzük, hogy az adatok a 2. sorban kezdődnek (1. a fejléc)
For i = 2 To us
If True Then 'Ha van valamilyen feltétele a kitöltésnek (pl.: csak a Lekvárzsibbasztó Gépgyár érdekel), akkor a True helyére azt írd be
'kitöltjük a "KÖRLEVELET" a megfelelő adatokkal... pl.:
Worksheets("KÖRLEVÉL").Cells(3, 5) = .Cells(i, 1)
'...stb
'...mentés...(cégnév_azonosító -> megfelelő helyekről összeállítva...)
sNév = "D:\cégnév_azonosító."
'PDF-ként...
Worksheets("KÖRLEVÉL").ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNév & "pdf", OpenAfterPublish:=False
'...majd xlsm-ként...
Worksheets("KÖRLEVÉL").Copy
ActiveWorkbook.SaveAs Filename:=sNév & "xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
ActiveWorkbook.Close
End If
Next i
End With
End Sub -
#42157
pero19910606
csendes tag
pero19910606
csendes tag
Sziasztok!
Szeretnék egy kis segítséget kérni körlevélhez hasonló dologban. Próbáltam így macro-s megoldást tálalni de nem sikerült.
Van egy adattáblám az alábbi adatokkal:
Cégnév
Azonosító
Értékelési szempontok:
-Szerződés hossza
- Készletszint.... stb...Van egy sablon amit kereső függvények segítségével feltoltok adatokkal az azonosító alapján.
Ha ez megtörtént le kellene mentem pdf-be és excelbe is -file név--> cégnév_azonosító
Egy "for" ciklussal lehetne ezt megoldani valahogy, nem ?
Beírja az azonosítót-> függvények behozzak a szükséges adatokat->mentés-> kezdődhet ellőről addig amíg egymás alatt felsorolt azonosítók el nem fogynak.
Van esetleg valakinek ötlete erre? Egy ideje foglalkozom már macro írással is, de ciklust sajnos még nem tudok írni.
Köszönöm előre is ha tudtok segíteni!
Üdv!
Pero -
CTRL+lefele gombbal tudsz a kitöltött oszlop utolsó elemére lépni, ha folytonos a kitöltés.
Ha nem folytonos, akkor az üres mező előtti utolsó adatot tartalmazó mezőre lép (illetve utána a következő első adatot tartalmazóra és így tovább).
Valamint meg tudod tenni, hogy elrejted az összes nem használt sort és akkor nem görget tovább. -
bobsys
veterán
Milyen fuggvenyt tudok hasznalni a VLOOKUP helyett ha a keresett ertek olyan cellaban van amiben nem csak kizarolag a keresett ertek van?
Van egy email cim amit keresek de a tablazatban vannak cellak amikben tobb email cim is van vesszovel elvalasztva es ott N/A ad vissza -
ny.janos
tag
Szia!
Remélem nem tűnt úgy, hogy negatív kritikával akartam volna illetni a megoldásodat. Ha mégis, akkor elnézést kérek. Biztosíthatlak, hogy nem ez volt a célom. Mivel a megoldás megértésére tett próbálkozás során ugyanazt az adatot írtam véletlenszerűen le a feltételezett cikkszámként, mint már korábban is, akkor jöttem rá, hogy a megoldás sajátossága okozhat nem várt eredményt, ha esetleg Gicz adatainál is előfordulna ilyen eset. (Nekem egyébként biztos semmilyen megoldás nem jutott volna eszembe a kérdés kapcsán.)Sokszor csak ámulok azokon a képletes megoldásokon (a makróhoz láma vagyok, azokat így el sem olvasom) melyeket írtok és remélem, hogy még sokat tanulhatok tőletek. Még a tanulás mellett is gyakran írtok azonban olyan számomra felfoghatatlan megoldásokat, amelyeknek az értelmezésébe bele sem kezdek. Ez esetben örültem, hogy legalább megértettem, hogyan működik a megoldás és ezért bátorkodtam kiegészítést tenni. Ugyanakkor fel sem merült bennem, hogy a megoldásod e sajátosságáról te erről nem tudtál volna (a hozzászólásodra történő válaszom azonban megtévesztő lehetett ebből a szempontból).
-
ny.janos
tag
Szia!
Elég sokszor ámulok egy-egy megoldáson és úgy is próbálom megérteni, hogy mi a megoldás alapja, ha nem nekem volt szükségem rá. Ebből elég sok mindent lehet tanulni.
Mikor próbálkozik valaki a megoldás megértésével sok esetben más véletlenszerű adatokat használ, mint a feladványban volt. Így esett, hogy felfedeztem egy sajátosságot a megoldásban, ami törvényszerűen következik annak logikájából:
A javasolt megoldás azzal a korlátozással használható, ha B oszlopban az azonos adatok minden esetben egy tömbben vannak és később másutt nem fordulnak újra elő.
-
bozsozso
őstag
Szuper ez így jó lesz köszönöm.
Annyit módosítottam, hogy nem sum kell hanem különböző sorok darabszáma.
Tudom sok bajom van, de most jelenleg fixen meg van határozva, hogy pl. 50 sorom lesz így az átrendezésnél az 51.sorba rakom. viszont ha valamelyik oszlopban a sorok száma meghaladja az 50-et az nem fog megjelenni. A kérdésem csak annyi, hogy ezt lehet valahogy dinamikusan változóra csinálni? Tehát a max sorok száma határozza meg, hogy hová kerüljön az összesítés.Pl.: a max. sorok száma 50 így az 51-be kellene az összesítés, de ha a max.sorok száma csökken 30-ra akkor a 31-be legyen az összesítés, ha ezek után úgy változnak az adatok, hogy 70 sor lesz akkor a 71-be kerüljön.
-
Mutt
senior tag
válasz
TigerCat
#42021
üzenetére
Szia,
Mac-en nagyon apró, így ha elmentem 125%-on, az túl nagy Windows alatt és fordítva.
Láttam választ, de nem láttam OS ellenőrzést, amire az Application.OperatingSystem függvény használható VBA-ban.
Private Sub Workbook_Open()
If Application.OperatingSystem Like "Windows*" Then
ActiveWindow.Zoom = 100
Else
ActiveWindow.Zoom = 150
End If
End Subüdv
-
Mutt
senior tag
válasz
#73966957
#42028
üzenetére
Szia,
... Hogyan tudnék excelben létrehozni egy olyan munkafüzetet, ahol ha megadom, hogy pl. 100.000 Ft az alapára a kerékpárnak, majd pedig megadom a 3*10db opciót árakkal, akkor az excel kiszámolja nekem az összes létező variációt, tehát mind a 1.000db-ot és mondjuk egymás alá megadja nekem egy táblázatban.
Makrómentesen az Excel 2010-től elérhető Power Query tud segíteni.
1. A különböző opciókat táblázattá alakítsd át, FFeri mintáját felhasználva van 4 táblázatom egymás mellett. Az elsőben csak a kerékpár alapára van, a többiben pedig a választható elemek (eltérő színekkel jelöltem ezeket). Mindegyik táblázatnak adjál egy beszédes nevet (én Alap, Vaz, Gumi, Attetel, Szin-t használtam).
2. Ezeket az adatokat Power Query-be kell tölteni, rajta állsz az adott adatsoron és Adatok -> Beolvasás táblázat/tartományból.
3. Nem kell semmit Power Query-ben még csinálni, csak Adatok betöltése adott helyre opciót választani és Csak kapcsolatot megadni.
A 2-3-as lépéseket meg kell csinálni mindegyik adatsorral, vagyis lesz 5 db Power Query kapcsolatunk a fájlunkban. Adatok -> Lekérdezések és Kapcsolatok alatt lehet őket látni.
4. Jobb klikk az Alap lekérdezésen a kapcsolatok lapon és Referencia/Hivatkozást választva visszajutunk a Power Query-be, ahol a egy új Egyéni oszlopot kell felvenni.
5. Az egyéni oszlop képlete csak a másik táblának a neve (pl. Vaz).
6. Az új oszlop jobb felső sarkában lévő ikonra kattintva ki lehet bontani az adatokat.
Az eredmény egy keresztszorzat lesz:
7. Az 5-6-os lépéseket végezd el a többi választható opciókat tartamazó adatsorokkal.
A végén vmi hasonlót kapsz:
8. Egy újabb egyéni oszlopban már csak a különböző változatok teljes árát kell kiszámolni, ami egy sima összeadás.
9. Az eredményt vissza kell tölteni Excelbe, a Bezárás és betöltés opcióval.
üdv
-
Mutt
senior tag
válasz
bozsozso
#42050
üzenetére
Szia,
... ki lehetne úgy egészíteni, hogy a gyümölcsökhöz tartozó számokat az alján összesítse, hogy hány db?...
A 4-es lépésnél a csoportosításnál kell egy plusz beállítás: összegezni is kell az értékeket.
A 6-os lépés elé érdemes beszúrni egyet, amikor az összegzett értéket a legutolsó oszlopba húzzod, így amikor transzponálod az adatokat, akkor az utolsó sorba fog kerülni.
A többi lépés teljesen azonos.
üdv
-
Fferi50
Topikgazda
válasz
csferke
#42129
üzenetére
Szia!
Azt gondolom én is, hogy akkor két pivot kell, az egyik legyen a diagram forrása, a másik pedig az összeg szemléltetése.
Esetleg még lehetne olyan az összeg szerintiben, hogy egy határ alatt összevonni a cégeket egyéb címszó alatt és az egyéb kategóriát külön kibontani - van ilyen kördiagram fajta.
Üdv. -
csferke
senior tag
válasz
Fferi50
#42126
üzenetére
Szia!
Igen, a cégnév - összeg kötött/párban lévő adat.
Ha a Pivot-ban a cégnév van rendezve akkor így néz ki a diagram. Jól áttekinthető.
Ha viszont a Pivot-ban az összeget rendezem, akkor ilyen a diagram. Eléggé áttekinthetetlen/kusza.
Azt szeretném, hogy az áttekinthetőség miatt a Pivot-ban az összeg legyen csökkenő sorrendben de a diagram a cégek szerint legyen abc sorrendben, mint az első képen.
Sajnos van egy olyan sanda gyanúm, hogy két Pivot táblát kell létrehoznom, mint ahogyan (#41217) sztanozs írta
-
válasz
sztanozs
#42117
üzenetére
Csináltam ehhez egy teljesen általános megoldást, három Named Range-dzsel:
_C0 - Azonosító oszlop első elemére mutató Range (abszolút címzéssel, a példában Sheet2-n B2 mező, de lehet akárhol, bármelyik munkalapon)=Sheet2!$B$2
_C1 - Dinamikos Range a számoláshoz=OFFSET(_C0,0,0,ROW()-Row(_C0)+1,1)
_C2 - A Kalkulátor (ezt kell megadni a formázás feltételeként)=NOT(MOD(SUM(SIGN(FREQUENCY(MATCH(_C1,_C1,0),ROW(_C1)-Row(_C0)+1))),2))A formázáshoz
1) ki kell jelölni az azonosító mező első elemét és elnevezni_C0-nak
2) be kell regisztrálni a fenti_C1és_C2Named Range-eket (copy-paste).
3) ki kell jelölni a teljes formázandó táblázatot
4) új feltételes formázást készíteni és kiválasztani az utolsó lehetőséget (Formula alapján)
5) formázást beállítani (háttér kitöltést valami másra, mint az alap)
6) formulába beírni:=_C2
Voila. -
-
csferke
senior tag
Sziasztok!
Egy munkalapból készítek egy Pivot kimutatást A(oszlop) - cégnév, B(oszlop) - összeg
Ebbő a Pivot-ból egy kördiagram készül.
Amikor a Pivot az A oszlop szerint van rendezve akkor a diagram is így alakul.
Amikor a Pivot-ot a B szerint rendezem akkor a diagram is ez szerint rakódik össze és így
eléggé átláthatatlan, kusza az egész.Azt szeretném elérni, hogy a Pivot a B oszlop szerint legyen rendezve (eddig ok) a diagram pedig továbbra is az A oszlop szerint készüljön. Lehetséges?
köszi
Angol Excel 2007 -
ny.janos
tag
válasz
harkhon
#42112
üzenetére
Szia!
Az általad vázolt probléma nagyon hasonlít arra az esetre, mikor arra kerestem megoldást, hogy ha adott egy termékhalmaz (cikkszámok) és hozzájuk tartozó időszaki árak (az időszak kezdte van megadva, onnantól érvényes az ár a következő időszak kezdetéig), akkor hogyan lehet egy adott termék adott napon érvényes árát megkeresni a halmazból.
(Eseted annyiban tér el, hogy te egyaránt az adott termékhez tartozó utolsó "időszaki" - esetedben beszerzési napi - árat keresed. Vagyis logikailag a te feladványod egyszerűbb, de egy MA függvénnyel kombinálva a feladat visszavezethető az általam keresett megoldásra azzal, hogy a megoldás többre használható, mint neked jelen esetben szükséged van.)A megoldási verziókat tartalmazó fájlt Mutt a 38096-os hozzászólásában linkelte számomra, az előzményeket (hozzá tartozó youtube videó stb.) vissza tudod olvasni, ha kíváncsi vagy rá.
-
-
Pl beraksz egy segéd oszlopot ezzel a függvénnyel (D oszlopra írtam meg):
=IF(B2=B1;D1;IFERROR(NOT(D1);TRUE))
Feltételes formázásra meg ezt:Formula: =$D2
Formázásra meg valami kitöltést.Segédoszlop nélkül ez kicsit bonyolultabb.
Kell pár named range (adott sheet-re beállítva):CTC: =OFFSET($B$2;0;0;ROW()-1;1)
_C1: =SIGN(FREQUENCY(MATCH(CTC;CTC;0);ROW(CTC)-1))=SIGN(FREQUENCY(MATCH(CTC;CTC;0);ROW(CTC)-1))Feltételes formázás formulája pedig:
Formula: =NOT(MOD(SUM(_C1);2)) -
Fferi50
Topikgazda
Szia!
Kell hozzá egy segédoszlop és utána feltételes formázással megoldható.
A segédoszlop (a példában X oszlop) képlete: a második cellába:
=HA(B2=B1;X1;NEM(X1))
Ezt végighúzod a segédoszlopon. A képlet eredménye IGAZ és HAMIS lesz felváltva, ahogyan a cikkszámok váltakoznak.
Ezután kijelölöd a formázandó területet. A továbbiakat sajnos csak a magyar nyelvű Excel alapján tudom leírni, de gondolom megtalálod az ábra alapján majd.
Kezdőlap - feltételes formázás - új szabály:
Ezután kiválasztod, hogy a cellák formázása képlettel, beírod a képlethez =$X2
Utána kiválasztod a formátumot, amit érvényesíteni szeretnél az IGAZ sorokhoz.
Majd OK.
Ha nem a kívánt eredmény jön elő, akkor válaszd a Feltételes formázás - szabályok kezelése menüpontot és ott beállíthatod a formázandó tartományt a kívánságod szerint, illetve ellenőrizheted a képletet is.
(A képen azért látsz a képletben $D2 értéket, mert én a D oszlopba tettem azt a képletet, amit nálad az X oszlopba javasoltam.)Üdv.
-
Fferi50
Topikgazda
válasz
harkhon
#42112
üzenetére
Szia!
Egy szép kis tömbképlet jó lehet neked.
1. Másold át a cikkszámokat egy oszlopba vagy egy új munkalapra és távolítsd el az ismétlődéseket.
A következő képletek azt feltételezik, hogy az eredeti cikkszám az A oszlopban, a dátum a B oszlopban, az ár pedig a C oszlopban van.
Az átmásolt egyedi cikkszámok az E oszlopba kerültek, az első sortól kezdve.
Az F oszlopba így kapod az utolsó vásárlás dátumát:=INDEX($B$1:$B$20;HOL.VAN(MAX(($A$1:$A$20=$E1)*($B$1:$B$20));$B$1:$B$20;0))
A G oszlopban pedig az ehhez tartozó ár:=INDEX($C$1:$C$20;HOL.VAN(MAX(($A$1:$A$20=$E1)*($B$1:$B$20));$B$1:$B$20;0))
Mindkét képlet tömbképlet, vagyis Ctrl+Shift+Enter kombóval kell lezárni, az Excel pedig kapcsos zárójelbe teszi, az első sorba kell beírni, majd húzhatod lefelé. A záró sor a $20 helyett legyen a nálad levő utolsó sor.Üdv.
-
Gicz
addikt
Sziasztok!
Az alábbi problémára keresek megoldást, nem jöttem rá guglizással a megoldásra, hátha majd itt...
Szeretném a könnyebb átláthatóság érdekében azt megcsinálni, hogy B oszlop alapján, ahol BA01099-van az legyen fehér hátterű, a következő összetartozó csoport, BA01100 tartalmazó sorok legyen szürke hátterűek, aztán a következő BA01101 sorok legyenek megint fehérek, és így tovább. Remélem érthető mit szeretnék, így összertozó csoportontként automatán színezést készíteni. Van erre valami megoldás?
Angol office 2016-ról van szó.
Köszönöm!
-
harkhon
tag
Sziasztok,
Segítséget szeretnék kérni, van egy elég nagy táblázatom ~ 16000 sor... , az A oszlopban cikkszámok vannak, amiket az utóbbi 10 évben vásároltunk, majd az ár, végül pedig a vásárlás dátuma.
Ki kellene gyűjtenem, hogy legutóbb melyiket milyen áron vettük. A gondom az, hogy én az f keresig jutottam, ami sajna az eslő találatnál megáll, vagyis nem nézi a dátumot :/
Ehhez tudnátok valami javaslatot adni, hogy honnan lenne érdemes megközelíteni a feladatot?Előre is köszönöm
-
-
#42109
lappy
őstag
balazsbence
#42107
lappy
őstag
válasz
balazsbence
#42107
üzenetére
Minta nélkül elég nehéz lesz megoldani. Hogy van e benne szabályszerűseg az abból látszik csak.
-
#42107
balazsbence
senior tag
balazsbence
senior tag
Sziasztok!
Egy kis segetségre volna szükségem. Egy excel táblából kellene kivarázsolnom 700 telefonszámot, névvel együtt és azt a googleba importálnom kapcsolatként. Ezután egy iphone-nal szeretném használni a névlistát. Megoldható ez gyorsan?
Köszi a segítséget -
#42105
Peterhappy
őstag
Fferi50
#42103
-
#42103
Fferi50
Topikgazda
Peterhappy
#42101
Fferi50
Topikgazda
válasz
Peterhappy
#42101
üzenetére
Szia!
Örülök, hogy sikerült, ügyes vagy!Üdv.
-
Fferi50
Topikgazda
válasz
Richard
#42100
üzenetére
Szia!
'"vannak olyan munkalapok ahol egyéb számításhoz szükséges változók és egyebek vannak szintén külön táblában."
Ha tudod, hogy melyek ezek a munkalapok, akkor a nevük alapján ki lehet hagyni a másolásból:Dim mlapnevek as Stringmlapnevek="Munka1,Munka2,Munka5,Munka11"For Each sh In WorksheetsIf sh.ListObjects.Count > 0 ThenIf Instr(mlapnevek,sh.name)=0 ThenFor Each tbljöhet a folytatásNextEnd If
A vastag sorokat kell beírni pluszba. Az mlapnevek változóba azok a nevek kerüljenek, amely munkalapokról nem kell másolni.
Üdv. -
#42101
Peterhappy
őstag
Fferi50
#42092
:
Új hozzászólás Aktív témák
Hirdetés
- PC Game Pass előfizetés
- Assassin's Creed Shadows Collector's Edition PC
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- HP EliteBook 835 G7 AMD Ryzen 5 4650U
- AKCIÓ! Apple Mac Studio M1 MAX 2022 32GB 512GB számítógép garanciával, hibátlan működéssel
- LG 65BX - 65" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready!
- Beszámítás! Samsung Galaxy Tab S6 Lite 2020 64GB 4G tablet garanciával hibátlan működéssel
- Bomba ár! Lenovo ThinkPad L380 - i5-8GEN I 8GB I 512SSD I 13,3" FHD I HDMI I Cam I W11 I Gari!
Állásajánlatok
Cég: FOTC
Város: Budapest