Hirdetés
- GoodSpeed: Bye PET Palack, hello SodaStream
- Geri Bátyó: Agglegénykonyha 2 – Főzés: szabályok, vagy szabadság?
- Geri Bátyó: Agglegénykonyha 3 – Paradicsomos káposzta (amit amúgy utálok)
- Elektromos rásegítésű kerékpárok
- Luck Dragon: Asszociációs játék. :)
- Rap, Hip-hop 90'
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
-
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
-
d@minator
addikt
Sziasztok! Van egy több lapfüles táblázat amit az androidos MSExcel nem nyit meg ürlapvezérlőkre hivatkozva. Mi a megoldás? Egyáltalán hogyan tudnám megkeresni ezeket a vezérlőket a táblázatban? Szemmel látható pl. Választógomb, jelölőnégyzet stb. Biztosan nincs benne.
Iphone MS Excel támogatja ott megnyílik. -
Delila_1
veterán
Azt nem írtad, hogy a két tábla azonos-, vagy külön lapon van-e, és hol helyezkednek el a lap(ok)-on.
Azt az esetet vettem, mikor a Munka1 és Munka2 lapokon vannak, mindkét esetben Az A1:Px tartományban, címsorral.
A makrót modulba kell másolnod. A Munka1 és Munka2 neveket írd át a saját lapjaid nevére.
Sub Osszevonas()
Dim sor As Long, usor As Long, honnan
Sheets("Munka1").Select
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = usor To 2 Step -1
Rows(sor).EntireRow.Insert
honnan = Application.Match(Cells(sor + 1, 1), Sheets("Munka2").Columns(1), 0)
Sheets("Munka2").Rows(honnan).Copy Sheets("Munka1").Range("A" & sor)
Next
End SubSzerk.: nem írtam bele hibakeresést, feltételezve, hogy a nevek azonosak a két lapon.
-
dav22
csendes tag
Sziasztok!
Nekem van két külön táblám, amiben soronként van 200 ember és mellettük 15 oszlopban adatok hozzájuk. Az egyik táblában a júliusi adatok, a másik táblában az augusztusi adatok vannak. Arra lenne szükségem, hogy ez a két tábla egy táblában egyesüljön, méghozzá úgy, hogy az azonos nevű emberekhez tartozó sorok egymás alatt legyenek. Szóval 'Minta Péter' sora mind a két táblában az első sorban van a fejléc alatt, és én a közös táblában azt szeretném, hogy az első sorban legyenek a júliusi adatai, míg a második sorban az augusztusi adatai. Majd a a harmadik-negyedik sorban következne a következő ember. Erre jelenleg csak a ctrl+c és ctrl+v csodálatos betűkombinációkat ismerem, viszont ezekkel elég hosszadalmas a művelet.
Valaki esetleg tud valami megoldást? Nagyon sokat segítene.
-
Fferi50
Topikgazda
válasz
morgusz
#32787
üzenetére
Szia!
Lehetne pl. így
Dim Outlookprogi As Object
Dim Email As Object
Dim xx As Integer
Set Outlookprogi = CreateObject("Outlook.Application")
Set Email = Outlookprogi.CreateItem(0)
On Error Resume Next
For xx = 2 To 100
If IsEmpty(Cells(xx, "I")) Then Exit For
If Cells(xx, "S") = "küldhető" And Cells(xx, "M") = 1 Then
With Email
.to = "F"
.CC = "P"
.Subject = Cells(xx, "W").Value 'ActiveCell.Offset(0, 11).Value L+11 oszlop
.Body = Cells(xx, "A").Value ' ActiveCell.Offset(0, -11).Value L-11 oszlop
.Display
End With
End If
Next
Set Email = Nothing
Set Outlookprogi = NothingAz On Error Resume Next sorral nem tudom, mit szerettél volna elérni, így önmagában nem sokat ér, csak annyit, hogy hiba esetén nem áll meg a program és nem tudod meg, hogy hiba volt - pl. nem tudta létrehozni az email objektumot, de rendületlenül készítgeti a semmit...
Üdv.
-
#32793
Fferi50
Topikgazda
TrollBalint
#32788
Fferi50
Topikgazda
válasz
TrollBalint
#32788
üzenetére
Szia!
Szerintem "csupáncsak" annyi a baj, hogy a táblázatodban vannak üres sorok és ezek is bele vannak foglalva a képletbe - emiatt a MIN függvény természetesen 0 lesz, ami dátumformátumban 1900.01.00.
Ezért a képleteket elsőre úgy kell megadni, hogy csak a tele sorokat tartalmazza. Mivel a table forma maga automatikusan bővül, ha beviszel egy új sort az első táblába, a képlet figyelembe fogja venni "magától". Ha új nevet viszel be, azt át kell írnod a második táblába a következő sorba, a képlet itt is automatikusan működik.
Természetesen amíg a kezdő dátumhoz nem írsz semmit, addig a második tábla első oszlop adataiban 0 érték fog megjelenni.
Csak a tömbképlet működik helyesen!!!
(A sok # azért lett, mert negatív időt nem tud megjeleníteni az Excel.)Üdv.
-
mindanee
tag
Sziasztok!
Azt tudjátok, hogy excelben hogyan lehet a "Csere" funkcióban sortörést megadni?
Egy adott karaktert szeretnék egy cellán belül sortörésre [ALT+ENTER] cserélni. Illetve sok cellában szeretném ugyanezt megtenni, egy cellán belül is többször szerepel ez a karakter [|].
Vagy ha tudtok erre valami egyszerű függvényt, akkor az is tökéletes lehet.
Köszi előre is!
Dani -
#32788
TrollBalint
addikt
Fferi50
#32717
TrollBalint
addikt
válasz
Fferi50
#32717
üzenetére
Köszi szépen,
sajna lebetegedtem a múlt héten, csak most tudtam kipróbálni, de sajnos nem az igazi.
Ha tömbképletként viszem be, akkor minden dátumra 1900.01.00 -t ír, de ezt annak tudom be, hogy table-nek van formázva a táblázatom. Ha simán enterrel viszem be a képletet, akkor jó, de csak az első két esetben, utána már ###### -ket ír (hiába húzom ki a oszlopot, nem az a baj, hogy nem fér ki)
Mind a két táblázat (amiben keresek, és ahova kilistáztatom) table formátumú, ha ez esetleg számít. -
morgusz
csendes tag
Sziasztok!
Most az alábbi makróval küldök emailt Excel táblázatból, egyenként kézzel indítva, válogatva a sorok közül! ("L" oszlop aktuális celláján állva indul a makró)
Raktam be függvényeket az "M és "S" oszlopokba amik segítenek a válogatásban, de ezek segítségével már szerintem automatikusan is lehetne küldeni.
Segítséget szeretnék kérni a makró módosításához úgy, hogy ha adott sor "S" oszlopában a "küldhető" szöveg és az "M" oszlopban "1" szerepel, akkor készítse el küldésre az emailt.
Addig kellene vizsgálni a táblát amíg "I" oszlop adatot tartalmaz, vagy a 100. sorig (100 a vége de addig még sosem volt kitöltve )Előre is köszi!
Dim Outlookprogi As Object
Dim Email As Object
Set Outlookprogi = CreateObject("Outlook.Application")
Set Email = Outlookprogi.CreateItem(0)On Error Resume Next
With Email
.to = "F"
.CC = "P"
.Subject = ActiveCell.Offset(0, 11).Value
.Body = ActiveCell.Offset(0, -11).Value
.Display
End With
Set Email = Nothing
Set Outlookprogi = NothingEnd Sub
-
-
blountex
senior tag
Üdv!
Excelnél a dátumot lehet valahogy modósítani?
Mert ha az időt visszaállítom 2 nappal és elmentem akkor ha rákattintok jobb egérgombbal a tulajdonságok menüpontnált látszik hogy 2 nappal előbb modósítottam, de ha az Excelben nézem meg a fájl -> információnál ott a mai aktuális dátomut írja ki.
Valahogy ki lehet cselezni?
-
SL11
csendes tag
válasz
Delila_1
#32778
üzenetére
Szia!
Semmi baj nincs.
Csak a korábbi kérésre küldtem el az anyagot.Szóval értem ám, hogy mit kell módosítani
CSak lehet h. az én excelem a buta vagy én Sajnos a végső táblázatban vannak összevont cellák is és a tömb képletek nem lettek nyerők.
Csináltam egy "szumhatöbb" verziót, de ott meg mindegyik cellában kell lennie "x"-nek, hogy működjön.
-
Delila_1
veterán
Privátban 2 napja elküldtem a fájlt is, a jó képletekkel. Meg is köszönted, Mi a baj?
Szerk.:
Az eredeti képen, amit priviben küldtél, nem a hetedik, hanem a 39. sorban kezdődtek az adataid. Az általam küldött fájlban töröld ki felülről a felesleges sorokat, a képletek rugalmasan hozzá alakulnak az új elrendezéshez. -
Declare
őstag
-
Declare
őstag
válasz
bsasa1
#32670
üzenetére
Szia!
Kiprobaltam, amit csinaltal es jonak tünik
Viszont egy baj van es ezt nem ertem, igazabol, miert
Range("F" & sor).FormulaR1C1 = "=Sumif(R2C[1]:R[-1]C[1],""S. Titel"",R2C:R[-1]C)"ennek ugye a kepletet kellene a cellaba irnia, nem pedig az erteket...de ennek ellenere az ertek kerül csak be a cellaba es nem a Summif keplet
ez miert van? Nekem mindenkepp a keplet kellene. -
tzimash
őstag
Hali,
Mi legyen az End If előtt, ha azt szeretném, hogy a D oszlop azon üres celláiban, ahol az E oszlop értéke 1006, ott a D oszlopban az legyen, hogy "Rework"?
For sor = usor To 2 Step -1
If InStr(Cells(sor, "D"), "") > 0 And Cells(sor, "E").Value = "1006" Then
End If -
-
Fferi50
Topikgazda
Szia!
Jó-jó, de akkor sem lenne haszontalan látni azt a képletet az I45 cellában ill. a szerkesztőlécen. Mégis csak én tudom (vagy Delila, vagy más), hogy mit miért kell úgy csinálni a képletben.
Azt például látom a képen, hogy az általad korábban írtaktól eltérő oszlopokban vannak az x jelek (pl. a K oszlopban egy db sincs).
Ezért legalább azt meg lehetne nézni, hogy jól írtad-e át a Te állapotodnak megfelelően.Üdv.
-
Fferi50
Topikgazda
-
SL11
csendes tag
válasz
Delila_1
#32752
üzenetére
Sajnos nem
amennyiben egy adott sorban a K
tartományban "x" szerepel, akkor annak az E oszlop sorának az összege(i)t adja össze.1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
100Ft x x x x
110Ft x
120Ft x x
130Ft x
140Ft x1. ütem összesen:
2-4. ütem összesen:
5-10. ütem összesen:Szóval valami ilyesmi a táblázat.
-
Fferi50
Topikgazda
Szia!
Próbáld az alábbi tömbképletet:
=SZUM((HAHIBA(SZÖVEG.KERES("x";$K$1:$K$23 & $L$1:$L$23 & $M$1:$M$23 & $N$1:$N$23);0)*1*($E$1:$E$23)))
Az oszlopok elejét és végét a saját kitöltöttségednek megfelelően állítsd be lsz.
A tömbképletet Shift + Ctrl + Enter billentyűkombinációval viheted be, az Excel kapcsos zárójelbe teszi.Üdv.
-
SL11
csendes tag
válasz
Delila_1
#32750
üzenetére
Köszönöm!
Lehet, hogy nem egyértelmű a megfogalmazásom 1111x bocsi
A második megoldás áll közelebb a végső megoldáshoz
Azonban nem a teljes oszlop összegét szeretném összeadatni, hanem csak azokét a sorokét, melyben "x" szerepel, bármely cellában.
Remélem jól fogalmazok
-
Delila_1
veterán
Nem egészen pontos a megfogalmazásod. "Van egy oszlop, mondjuk E, az ebben szereplő összegeket szeretném összeadni, ha a K, vagy a L, vagy az M, vagy az N oszlopokban szerepel "X"."
Mit akarsz összeadni?
Nem az a feladat, hogy soronként, ha a K:M tartományban bárhol X található, akkor írja ki az adott sor E cellájának az értékét? Ha igen, a=HA(VAGY(K1="X";L1="X";M1="X";N1="X");E1;0)
képlettel megoldható.Ha viszont az a kérdés, hogy ha bárhol a K:N tartományban található X, akkor írja ki az E oszlop összegét, akkor a
=HA(DARABTELI(K:N;"X")>0;SZUM(E:E);0)
képlet ad megoldást. -
edari
őstag
Sziasztok
Egy viszonylag könnyű hibába futottam bele, valamiért mégse tudom megoldani.
Arról lenne szó hogy van egy adathalmaz, ami csak számokat tartalmaz, ezeket kéne összeadni, de a buktató a dologban az, hogy van olyan cella ami #-el kezdődik (ezeket a cellákat egyébként se kéne beleszámolni az összegbe). Ugye ezek miatt az értékek miatt a szum 0-át ad.
Kérdés: tud valaki olyan megoldást ami kiszűri a #-el keződő cellákat?
Egyszer már csináltam ilyet, de már nem tudom hogy hogyan.
-
SL11
csendes tag
válasz
bsasa1
#32742
üzenetére
Köszi a választ.
Bármelyik oszlopban lehet "x"
A lényeg az, hogy akkor adja össze, ha valamelyik oszlopban "x" szerepel.Az általad megadott "+SZUMHA(K
;"X";E:E)+SZUMHA(L:L;"X";E:E)"
képletet én is próbáltam.
A gond vele az, hogy az e oszlopban szereplő értéket megduplázza, ha az L oszlopban és a K oszlopban is szerepel x. -De ezt nem szeretném.A feladat csak annyi lenne, hogy összegezze az E oszlop számait, függetlenül attól, hogy az L, vagy a K oszlopban szerepel az "x".
Erre van vmi javaslatod?
-
-
bsasa1
csendes tag
Szia,
attól is függ, hogy a feltételnek megadott oszlopok közül csak egyben, vagy többen is lehet-e "X".
Ha csak egy "X" lehet, akkor 4 darab szumha függvénnyel simán összeadod
+SZUMHA(K:K;"X";E:E)+SZUMHA(L:L;"X";E:E)+...
vagy egy tömbképlettel 1-ben is meg lehet oldani. Az valami ilyesmi lesz:
+SZUM(HA(K:N="X";E:E;0)
Ha több oszlopban is lehet "X", akkor egy segédoszlopban megvizsgálod, hogy adott sorban K:N-ig tartalmaz-e "X"-et, és az lesz a szumha függvény kritériumoszlopa. -
-
-
Behuska
újonc
Üdv, Egy kis segítséget szeretnék kérni. A következő feladattal találtak meg:
Az első lap az összesítéseket mutatja, a második pedig ennek a megbontását. A kettő közötti kulcs az InvoiceID
A Difference lapon látható, hogy melyek az eltérő tételek (ahol a Master és a Detail összegei nem egyeznek). Három is van a táblázatban. Az egyik egyenesen nem is szerepel a Detail táblában, csak a Masterben.
Ezeket az eltéréseket nyilvánvalóan valamilyen informatikai úton kereshetjük meg hatékonyan, hiszen nagyon sok sor van. A Megoldásom lapon adjon egy egyszerű megoldást arra, hogy hogyan lehet ezt a 3 eltérő tételt megtalálni.
Segítségeket, ötleteket előre is KÖSZIKE! :-)
-
Fferi50
Topikgazda
-
Fferi50
Topikgazda
Szia!
Ha egy cellát szúrsz be az A oszlop elejére, akkor a képlet
=HA(MARADÉK(SOR();2)=0;SZÖVEG(SOR()/2;"###")&"/1";SZÖVEG(SOR()/2-1;"###") &"/2")
ha kettőt akkor=HA(MARADÉK(SOR();2)=1;SZÖVEG(SOR()/2-1;"###")&"/1";SZÖVEG(SOR()/2-1;"###") &"/2")Ha még több sor lenne, akkor felváltva próbáld két képletet, a -1 helyére a beszúrt sorok számával variálni.
Üdv.
-
Fferi50
Topikgazda
Szia!
A oszlopban a képlet:
=HA(MARADÉK(SOR();2)=1;SZÖVEG(SOR()/2;"###")&"/1";SZÖVEG(SOR()/2;"###") &"/2")B oszlop első két cellájába beírod: '111 és '201 vagy =Szöveg(111;"###") és =Szöveg(201;"###")
Majd a B3 cella képlete: =SZÖVEG(B1+1;"###")
és ezt a képletet húzod végig az oszlopon.Üdv.
-
g4b3n
tag
válasz
Fferi50
#32726
üzenetére
Magát a kifejezést, mindig csak x/1 x/2 és x mindig eggyel nő, illetve ehhez tartozik a szomszédos cellában a köveztkező pl.
A1 1/1 B1 111
A2 1/2 B2 201
A3 2/1 B3 112
A4 2/1 B4 202S ebből a sorozatot kellene kb. A/B64-ig folytatni. A jövőben pedig bármikor visszatérő probléma lehet, gy szeretnék rá valami ciklus készteni, ami helyettem dolgozik.
A makrózáshoz nem értek, de pl. C nyelvhez igen.
Tudnál esetleg szintaktikát adni, vagy esetleg lerást, hogy hol nézzek utána egy doksiban.S fogalmam sincs milyen ecelt használat, de valami újat, még csak meg se tudom nézni a verzió számát.
szerk: 2013-as
-
Fferi50
Topikgazda
Szia!
Mit szeretnél látni a cellában, magát a kifejezést 1/1,1/2 stb., vagy az eredményt?
A további sorokban 3/1,3/3, 4/1, 4/4 vagy 3/1,3/2,3/3,4/1,4/2,4/3,4/4?Mindkét esetben szerintem csak makróval lehet megoldani, ha közvetlenül a cellába szeretnéd a képletet, másik cella használata nélkül.
Segédoszlop felhasználásával talán működhet a dolog szerintem képlettel is.Üdv.
-
#32722
Fferi50
Topikgazda
marchello1
#32718
Fferi50
Topikgazda
válasz
marchello1
#32718
üzenetére
Szia!
A diagram tipusa: terület diagram (egszerű). A sorozatok sorrendjét úgy állítsd be, hogy az első sor legyen a 4., a második sor a 3. a harmadik sor a 2. és a negyedik sor az 1. a diagramon (mivel az 1. van leghátul és a 4. lesz legelöl a rajzon). A terület diagramnak ebben a formájában ugyanis az elől levő sorozat takarja a hátrább levőket, így a harmadik és negyedik sor azonossága miatt csak az egyiket látod.
A rajzterület színét is állítsd be a neked megfelelőre. Ez a szín fog kilátszani ott, ahol a sorozatok nem fedik le.
Nézd meg légy szíves, hogy az adataid formája idő-e (mert lehet, hogy szöveg). Ha szöveg, akkor valamilyen módon át kell alakítanod számmá és idő formátummá (külön kezelve a kettőspont előtti és utáni részt - az idő ábrázolásról a 32715 hozzászólásomban írtam).Ha az adataid idő adatok, akkor a függőleges tengelyt is tudod idő formátumúvá alakítanod (tengely formázása - szám - idő vagy egyéni) valamint tudod a minimum-maximum értéket is szabályozni (ne felejtsd el, hogy itt is csak egynél kisebb törtszámok lehetnek!).
Remélem sikerül!
Üdv.
-
Fferi50
Topikgazda
Szia!
Egy segédoszlop első cellájába beteszed az alábbi képletet:
=év(dátumoszlop első cella)
Ezután a képletet végighúzod az oszlopon. Kijelölöd az oszlopot - másolás - irányított beillesztés értéket.
A rendezést errre az oszlopra végzed el (természetesen az egész listát kijelölve).Üdv.
-
Attas
aktív tag
Sziasztok!
Kis segedelem kellene. Adott egy kb 2000 soros adatbázis, mely egyik oszlopa dátumot tartalmaz ilyen formában pl.: 2.5.1988, vagy 12.6.1985
Szeretném sorba rendezni, de csak az év lenne fontos. Ebben a formában mindig a napot veszi alapul. Hogy lehetne csak az évet figyelembe venni sorrendbe rakásnál? vagy elsősorban az évet..? Köszönet a válaszért előre is!! -
#32718
marchello1
csendes tag
marchello1
csendes tag
Sziasztok!
A következő diagramot szeretném reprodukálni, illetve az idő értékeket megadni, de valahogy nagyon nem megy.
Maximum értéket sem tudok hozzáadni, a függőleges tengelyhez mert nem enged időpont formátumban megadni.
Valaki tud benne segíteni nekem?Kép:
Előre is köszönöm a válaszotokat!
Üdv:
M -
#32716
Fferi50
Topikgazda
TrollBalint
#32713
Fferi50
Topikgazda
válasz
TrollBalint
#32713
üzenetére
Szia!
Próbáld ki ezeket a tömbképleteket:
G2 cella:=KICSI(HA($A$2:$A$7=F2;1;100)*1*($B$2:$B$7);1)
H2 cella:=MAX(($A$2:$A$7=F2)*1*($C$2:$C$7))
Ezután az oszlopokon lehúzod az adataid végéig.
(Tömbképlet bevitele: Shift + Ctrl + Enter)Üdv.
-
Fferi50
Topikgazda
Szia!
Az Excel a dátumot és az időt lebegőpontos számformátumként tárolja és értelmezi, ahol az egész rész az 1900. január 1-től eltelt napokat (dátumot) , a törtrész a napon belüli időt (órák, percek stb.) jelenti.
Tehát 18,55, amit te 18 és fél percként szeretnél látni az 1/(24*60) * 18,55 képlettel alakítható át olyan számmá, amit az Excel perc, másodper időként értelmez. (1 nap 24 óra, 1 óra 60 perc 1 perc 60 másodperc az átváltás természetesen.)
Ezután a cellaformázást alakíthatod [pp]:mm formátumra pl.Üdv.
-
#32713
TrollBalint
addikt
Delila_1
#32711
TrollBalint
addikt
válasz
Delila_1
#32711
üzenetére
Hello,
köszi szépen, meg lehet oldani úgy is, hogy ha nem növekvő sorrendbe van a B oszlop? Csak mert ezt a táblázatot többen használnák és nincsen semmi garancia arra, hogy nem felejtik el abba rendezni. (Az eredeti táblázat amiben az adatok vannak, folyamatosan bővül. )
Elfelejtettem mondani, de úgy láttam te gondoltál rá attól, hogy a B oszlopban valami korábban kezdőik, még nem biztos, hogy előbb is végződik. -
#32711
Delila_1
veterán
TrollBalint
#32710
Delila_1
veterán
válasz
TrollBalint
#32710
üzenetére
Az A oszlopot másold át az F-be. Az adathalmazból az ismétlődések eltávolítása menüpontot alkalmazva minden neved egyszer fog szerepelni ebben az oszlopban.
A képen látható képleteket vidd be a G és H oszlopba, ezekből kiszámíthatod a legkisebb és legnagyobb időpontok között eltelt időt.
A G oszlop képlete akkor lesz megfelelő, ha a B oszlopban növekvő sorrendben vannak az idők.Az FKERES angol megfelelője a VLOOUP, a Keres-é a LOOKUP.
-
#32710
TrollBalint
addikt
TrollBalint
addikt
Hello,
hogy tudom megcsinálni (Excel 2013, angol), hogy 2 dátum között (amik ugyanannak a feltételnek felelnek meg) eltelt időt kiszámoljam? A táblázat valahogy így néz ki:
A oszlop | B oszlop | C oszlop
név 1 | időpont | időpont_2
név 1 | időpont | időpont_2
név 2 | időpont | időpont_2
név 3 | időpont | időpont_2
név 3 | időpont | időpont_2
név 3 | időpont | időpont_2Az A oszlopban egy elem többször is előfordulhat, és az egyes előfordulásokra vonatkozólag szeretném a minimum és a maximum közötti értéket kiszámolni. (ugye előfordulhat, hogy - jelen példánál maradva - a név 3 egyik sorában van a legkisebb időpont, de egy másik sorban van a legnagyobb). Egy adott sorban az időpont_2 mindig nagyobb, mint a B oszlopban található időpont.
A B és C oszlopok formátumai év.hónap.nap óra:perc -
Fferi50
Topikgazda
válasz
Declare
#32697
üzenetére
Szia!
Az alábbi makrót okoskodtam össze, feltétel, hogy minden S. Titel előtt a G oszlopban legyen Titel:
Sub osszeado()
Dim kezdrng As Range, vegrng As Range, ws1 As Worksheet, celrng As Range, elsocim As String, gewerkrng As Range
Set ws1 = ActiveSheet
'megkeressük az első S. Titel cellát:
Set vegrng = ws1.Columns("G").Find(what:="S. Titel", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext, after:=Range("G1"))
elsocim = vegrng.Address 'megjegyezzük a címét, mert itt kell leállítani
Do While Not vegrng Is Nothing
'megkeressük a kezdő sort
Set kezdrng = ws1.Columns("G").Find(what:="Titel", LookIn:=xlValues, lookat:=xlWhole, after:=vegrng, searchdirection:=xlPrevious)
If kezdrng.Row < vegrng.Row Then 'ha kisebb mint az S. Titel helye, akkor összeadjuk
vegrng.Offset(0, -1).Formula = "=Sum(" & kezdrng.Offset(1, -1).Address & ":" & vegrng.Offset(-1, -1).Address & ")"
End If
'következő S. Titel
Set vegrng = ws1.Columns("G").Find(what:="S. Titel", LookIn:=xlValues, lookat:=xlWhole, after:=vegrng, searchdirection:=xlNext)
If vegrng.Address = elsocim Then Exit Do 'ha visszaértünk az elsőhöz, kilépünk
Loop
'megkeressük az első S. Gewerk cellát:
Set vegrng = ws1.Columns("G").Find(what:="S. Gewerk", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext, after:=Range("G1"))
elsocim = vegrng.Address: Set gewerkrng = Range("G1") 'megjegyezzük a helyét és a lehetséges első cellát
Do While Not vegrng Is Nothing
'megkeressük az első S. Titelt a Gewerkben
Set kezdrng = ws1.Columns("G").Find(what:="S. Titel", LookIn:=xlValues, lookat:=xlWhole, after:=vegrng, searchdirection:=xlPrevious)
Set celrng = kezdrng
Do While Not kezdrng Is Nothing
If kezdrng.Row > gewerkrng.Row Then ' ha benne van a tartományban
If kezdrng.Row < vegrng.Row Then ' és oda tartozik, akkor bevesszük az összesítésbe
Set celrng = Union(kezdrng, celrng)
Else
vegrng.Offset(0, -1).Formula = "=Sum(" & celrng.Offset(0, -1).Address & ")" 'ha nincs benne, akkor beírjuk az összesítő képletet
Exit Do
End If
Else
vegrng.Offset(0, -1).Formula = "=Sum(" & celrng.Offset(0, -1).Address & ")" ' ha már az előző Gewerkhez visszaértünk, akkor beírjuk az összesítő képletet
Exit Do
End If
'megkeressük a következő S. Titel cellát:
Set kezdrng = ws1.Columns("G").Find(what:="S. Titel", LookIn:=xlValues, lookat:=xlWhole, after:=kezdrng, searchdirection:=xlPrevious)
Loop
Set gewerkrng = vegrng ' a Gewerk területet változtatjuk
'megkeressük a következő S. Gewerk cellát:
Set vegrng = ws1.Columns("G").Find(what:="S. Gewerk", LookIn:=xlValues, lookat:=xlWhole, after:=vegrng, searchdirection:=xlNext)
If vegrng.Address = elsocim Then Exit Do 'ha visszaértünk az első találathoz, akkor végeztünk
Loop
MsgBox "A képleteket beírtam!", vbInformation
End SubElőször összesíti az S. Titel cellákhoz az adatot, majd az S Gewerk cellákét csinálja meg.
Remélem, jól fog működni, ha gond lenne, írj lsz.
Üdv.
-
almos94
aktív tag
Jó estét szakik!
Sajnos már 1-2 éve nem használom túl gyakran az Excelt, ezért probléma ütköztem és segitséget szeretnék kérni. Diagramkészitésről lenne szó, vonaldiagram. Egy folyó esésgörbéjét kell megszerkesztenem. Azaz: Függőleges tengelyen 225-ről kellene indulnia és 5-ösével lépkedni lefelé 200-ra, közben pedig vizszintesen 0-ról indulva először 260-nál legyen a 220-as függőleges, 480-nál a 215,810-nél a 210-es stb...
Remélem érthető a magyarázatom.
Sajnos sehogy sem jut eszembe, hogy hogyan kellene megszerkeszteni, egy órája ezzel próbálkozom. Nagyon megköszönném a segitséget!
üdv. -
Csolt
tag
Sziasztok!
A segítségeketre van szükségem, mert én ehhez hülye vagyok.
Van egy adathalmazom, ebből szeretnék vonaldiagramot készíteni:
Az A oszlop legyen az X tengely, mint idő, a többi adat az Y tengelyen.
Hogy tudnám ezt megoldani? Akárhogy próbálkozom, sehogy nem jön össze.
Köszönöm,
Zsolt
tartományban "x" szerepel, akkor annak az E oszlop sorának az összege(i)t adja össze.
;"X";E:E)+SZUMHA(L:L;"X";E:E)"
Új hozzászólás Aktív témák
- HiFi műszaki szemmel - sztereó hangrendszerek
- Bluetooth hangszórók
- Kamionok, fuvarozás, logisztika topik
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- One mobilszolgáltatások
- Hivatalos a One UI 8 frissítés közzététele
- A 3D V-Cache és a rengeteg memória lehet az új PlayStation fő fejlesztési iránya
- Épített vízhűtés (nem kompakt) topic
- TCL LCD és LED TV-k
- Gyúrósok ide!
- További aktív témák...
- BESZÁMÍTÁS! Asus B760M i7 12700KF 32GB DDR4 512GB SSD RX 7700XT 12GB Zalman Z1 Plus CM 750W
- Telefon felvásárlás!! Apple iPhone SE (2016), Apple iPhone SE2 (2020), Apple iPhone SE3 (2022)
- Akik a Fehéret szeretik! Itt a WHITE Setup! Akár kamatmentes rèszletre is!
- GYÖNYÖRŰ iPhone 12 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS2133
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 16/32/64GB RAM RX 7600 8GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest