- bitpork: Augusztus 2- szombat jelen állás szerint.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Magga: PLEX: multimédia az egész lakásban
- Parci: Milyen mosógépet vegyek?
- sziku69: Szólánc.
- Aggregátor gondjai, örömei, és elmélkedései
- Chosen: Canon 5D II - portrézás 2025-ben
- zebra_hun: Hűthető e kulturáltan a Raptor Lake léghűtővel a kánikulában?
-
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
-
adDis
csendes tag
Sziasztok!
Nagyon szépen köszönöm lappy [link] és Fferi50 [link] tippeit is, egyelőre Mutt [link] javaslatát próbáltam ki és remekül működik!
(Jut eszembe, régen át tudtam írni ezt a link szócskát is bármire, most azt sem látom már , hogyan kellene
)Most "már csak" azt kellene még beépíteni valahogy ebbe a képletbe, hogy ugyanezt a 3 vizsgálatot (A=1, A=2 és A=3 esetét) akkor is végezze el, ha van mondjuk van még előtte két olyan kritérumtartomány (legyen X és Y) amely között egyébként mindig ÉS kapcsolat van.
Azaz, ha pl.:
X=1 és Y=1 és A=1, akkor a C mező értékeit adja össze +
X=1 és Y=1 és A=2 akkor a D mező értékeit adja össze +
X=1 és Y=1 és A=3 akkor a C-t szorozza D-vel.Azért nem reagáltam még eddig, mert ezen ügyködöm most, h valahogy belerakjam
üdv -
oke
senior tag
válasz
Fferi50
#43885
üzenetére
Szia,
Köszönöm, Igen, egy-egy szó szerepel a D oszlopban. Én "analóg" módon közelítettem meg a dolgot, ahogy excelben csinálnám: a D oszlopban az x feltétel közül kijelölném azt az 5-öt, ami kell (vagy kevesebbet, ha épp nincs valamelyik), a szűrés alapján kijelölném az A oszlopban lévő szűrt listát és beszínezném sárgára. Látszik az agyam nehezen áll rá a makró más lehetőségeire
Hétfőn kerülők exceles gép közelébe, ki fogom próbálni. -
Mutt
senior tag
válasz
Zenebohoc
#43892
üzenetére
Szia,
Ez alapján csak tippelni lehet mi a gondja annak az 1 db fájlnak.
1. Más makrót tartalmaz-e az adott fájl, különös tekintettel Worksheet eventeket futtattót?
2. Melyi az utolsó használt cella a fájlban? F5-öt nyomj és Irányított -> Utolsó cellát válaszd ki
3. Mentés másként egy új fájlba után az új fájl is csinálja a problémát?üdv
-
Mutt
senior tag
Szia,
lappy által linkelt oldalon ott a megoldás, Power Query használata (Excel 2010-hez még külön kell telepíteni).
Lépések
1. Adatok -> Adatok beolvasása -> Más forrásból -> Weblapról
2. https://www.mnb.hu/arfolyamok URL megadása
3. Első táblázat kijelölése, majd alul Adatok átalakítása gombra kattintasz
4. Pénznem oszlopban szűrés USD-re.
5. Forint érték fejlécén jobb klikk és a többi oszlop tőrlése
6. Bezárás betöltés adott helyre, majd válaszd a táblázatot és a helyet ahol szeretnéd
7. Opcionális: Adatok fülön Tulajdonságok majd a lekérdezés tulajdonságainál az Adatfrissítés fájl megnyitásakor.
üdv
-
Zenebohoc
tag
Sziasztok!
Remélem tudtok segíteni. (Excel 2010/32 bit / Win7)
Két versenyző küzd egymással :-) Kék sarokban egy vásárolt excel alapú progi rejtett makróval. Szórás korrigálásával másolja egybe az összeillő adatcsoportokat. Az eredménytáblát egyszerű másolással viszem át a munkafájlomba (Piros sarok :-). Ebben egy egyszerű buta makró van a tartalomjegyzék írására. Több ilyen munkafájlom van ugyanazzal a (tartalomíró) makróval. A vásárolt adatfeldogozó gond nélkül fut (egy kivételével) ha a munkafájljaim meg vannak nyitva. Egy fájl esetében órákra leragad. Ilyenkor minden nyitott excel leáll (fehér képernyő), sőt más Office progik is erősen lelassulnak. A jó és "bibis" munkafájlom között nincs látható különbség (adatok, méret, betöltött kiegészítők). Mi lehet a "bibis" sara? Ez a hibás fájl, ha önmagában van nyitva is produkál furcsa dolgokat:
-bekövérítem a cellában lévő szöveget, egy pillanatra eltolódik a szöveg, árnyékhatás -szerű,
-kijelölés, törlés gond nélkül megy, de azalatt a néhány másodperc alatt egy ablakszerű keret villog a háttérbenBocs, ha bonyolult voltam. Remélem ezek a tünetek ismerősek a Guruknak és orvosolhatóak lesznek.
Köszi előre is -
Mutt
senior tag
Szia,
SZUMHA és SZORAZTÖSSZEG vagy 3x SZORZATÖSSZEG függvény tud segíteni:
=SZUMHA(A:A;1;C:C)+SZUMHA(A:A;2;D:D)+SZORZATÖSSZEG((A2:A20=3)*(C2:C20)*(D2:D20))
=SZORZATÖSSZEG((A2:A20=1)*(C2:C20))+SZORZATÖSSZEG((A2:A20=2)*(D2:D20))+SZORZATÖSSZEG((A2:A20=3)*(C2:C20)*(D2:D20))Az eredeti felvetésedhez is vmi hasonló lesz a megoldás.
üdv
-
Fferi50
Topikgazda
Szia!
Ebben az esetben az alábbi tömbképlettel próbálkozhatsz:=SZUM(VÁLASZT($A$13:$A$66;$AO$13:$AO$66;$AP$13:$AP$66;($AO$13:$AO$66)*($AP$13:$AP$66)))
A képletet Shift + Ctrl + Enter -rel kell lezárni, az Excel kapcsos zárójelbe teszi.
Vagy kicsit hosszabban, egy másik tömbképlettel:=SZUM(($A$13:$A$66=1)*($AO$13:$AO$66)+($A$13:$A$66=2)*($AP$13:$AP$66)+($A$13:$A$66=3)*($AO$13:$AO$66)*($AP$13:$AP$66))
A VÁLASZT függvény azért működik, mert a feltétel 1-2-3. Ha más lenne, akkor csak a második forma használható.
Üdv. -
adDis
csendes tag
válasz
Fferi50
#43887
üzenetére
Szia! Jogos a felvetésed, ezért - egyelőre - inkább "egyszerűsítenék" a kérdésen. Tegyük fel, hogy mondjuk csak az A kritériummező van, és ennek értékei határoznák meg, mi legyen B és C adataival.Tehát:
A C (AO13:AO66) vagy D (AP13:AP66) oszlop értékeit szeretném összeadni 1 cellában úgy, hogy
- amelyik sorban A értéke =1, a C értéket vegye figyelembe,
- amelyik sorban A értéke =2, a D értéket,
- amelyik sorban A értéke =3 ott viszont a C-t szorozza meg D-vel.Hogyan nézne ki ezek figyelembevételével a képlet?
Nem tudom persze, hogy így egyszerűbb-eElőre is köszönöm!
-
Fferi50
Topikgazda
Szia!
Mivel szorzás is van benne, ezért a SZUMHATÖBB biztosan nem játszik.
Kérdés, mi a kritériumok, pontosabban az A és B oszlop sorrendje, melyiknek kell teljesülnie. Pl. mi van, ha A=1 és B=3 esetleg A=2 és B=2. Ezekben az esetekben melyik kritériumot kell érvényesíteni?
Üdv. -
adDis
csendes tag
Üdvözletem a Hölgyeknek/Uraknak!
A következő kérdéssel fordulnék hozzátok:
Adott egy táblázat, melynek oszlopai: A,B,C,D.
Ebből A és B kritériumtartományok, C és D összegtartományok.
A C (AO13:AO66) vagy D (AP13:AP66) oszlop értékeit szeretném összeadni 1 cellában úgy, hogy
- amelyik sorban A értéke =1, a C értéket vegye figyelembe,
- amelyik sorban A értéke =2, a D értéket,
- amelyik sorban B értéke >1, ott viszont a C-t szorozza meg D-vel.Úgy sejtem, hogy a HA és a SZUMHATÖBB függvények kombinációjával lehetne ezt a feladványt megoldani, de sehogy nem sikerült működően összeraknom :)
Tudnátok ebben segíteni?
Előre is köszönöm! -
Fferi50
Topikgazda
Szia!
Kérdések:
A D oszlop celláiban egy-egy feltétel (szó) szerepel? Mert akkor vagy kapcsolat van a feltételek között. Ezt ki lehet értékelni egyetlen kifejezéssel:If "alma,körte,eper,csoki,autó" Like "*" & Range("D1").Value & "*" then Range('"A1").Interior.Color=vbYellow
Ha az egész oszlopot nézed, akkor pedig For Each ciklus használható:Dim cl as RangeFor Each cl In Range("D1:D5000").CellsIf cl.Value="" Then Exit For 'ha nincs érték a cellában, kilépünk a ciklusbólIf "alma,körte,eper,csoki,autó" Like "*" & cl.Value & "*" then cl.Offset(0,-3).Interior.Color=vbYellowNext
Az "alma,körte,eper,csoki,autó" helyére a szűrni kívánt szöveget írd be.
A Like operátor a mintához hasonlót keresi, tehát az 5 közül bármelyik feltétel fennál, a színezés megtörténik.Üdv.
-
oke
senior tag
Sziasztok,
Olyat szeretnék makróval, hogy a D oszlopban leszűrt 5 feltétele alapján - legyen ez alma, körte, eper, csoki, autó - Az A oszlopban szinezze sárgára a cellákat. Egyszerűnek tűnik, de nem boldogulok vele.
Még egy kérdés, ha az 5 feltétel közül hiányzik valamelyik, akkor kiakad a futás vagy nem okoz gondot? -
#43883
Fire/SOUL/CD
félisten
Guitar14
#43881
válasz
Guitar14
#43881
üzenetére
Azt nem tudom, miket állítgattál már kínodban a DDE-nél, de próbáld eredeti állapotra visszaállítani elsőre.
1. Excel legyen bezárva
2. Az alábbi "kódokat" másold ki, illeszd be egy üres TXT fájlba és mentsd el REG kiterjesztéssel őket (ez fontos)
Az alábbi "kódot" mentsd el pl. excel_tobb_ablakban_fut.reg néven és futtasd.
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Options]
"DisableMergeInstance"=dword:00000001Ezt a "kódot" meg mentsd el pl. excel_alaphelyzetbe.reg néven és ha szükséges (több ablakos helyett visszaállnál a régi állapotra) csak akkor futtasd.
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Options]
"DisableMergeInstance"=-Kipróbálni nem tudom, mert nincs kéznél Office 2010, de remélem segít...
Ha műxik, akkor intézőből vagy Total Commander-ből stb stb indítva az Excel fájlokat, külön Excel ablakban kellene megnyílniuk. -
Guitar14
senior tag
Kipróbáltam a /x kapcsolót és semmi változás nincs, altal pedig csak megnyílik a tulajdonságok panel az exe-ről. Ugyanúgy egy ablakosban fut és ha bekapcsolom a DDE-t akkor magában megnyílik az excel de ha PL total commanderből nyitnék meg egy fájlt akkir a fentebb írt hibaüzenet jelenik meg.
-
Guitar14
senior tag
Sziasztok, egy olyan kérdéssel fordulok hozzátok, hogy a gépen Office 2010 Pro van és minden részét tudom egymás mellé tenni az asztalon ha egyszerre két doc-ot szeretnék nézni két különböző ablakban. Az Excel viszont nem hajlandó ezt engedni. Hiába van megnyitva két ablakban két különböző tábla, csak a programon belül vált, tehát a főablak marad csak a belső vált át és úgy körülményesebb kettőt összehasonlítani és szerkeszteni. Próbáltam már az "Egyéb DDE-alapú alkalmazások mellőzése" a Speciálisnál akkor megnyílik kettő egyszerre de mindkét példány bezárása után meg már nem nyit meg XLS-fájlt és hibát ír ki.
Tehát így kéne megnyílnia mint a word-nek egyszerre kettő: [kép]
Excelnél csak így tudom: [kép]
DDE alkalmazás bepipálásakor pedig ha új xls-t nyitok meg bezárás után: [kép]
Köszönöm a tippeket/ötleteke előre
-
#43878
Mutt
senior tag
pero19910606
#43868
Mutt
senior tag
válasz
pero19910606
#43868
üzenetére
Szia,
Az elmúlt 30 napot kell megjelenítenem értékben...
Grafikonokon lehet dinamikus tartományokat használni, amelyet az ELTOLÁS függvénnyel lehet előállítani.
Elnézést az angolnyelvű képernyőmentésekért.
A lépések:
1. Hogy könnyebben átlátható legyen az összes lépés van pár segédcellám.
A G1-es cellában egy=MA()függvény van.
A G2-ben 30 van, aminek adtam egy speciális számformátumot (ami simán elhagyható). Ha ezt a számot változtatom, akkor minden dinamikusan fog a grafikonon változni.
A G3-ban megkeressük a sort, amely a 30 nappal ezelőtti dátumhoz legközelebbi dátumot tartalmazza. Képlete:=HOL.VAN(G1-G2;A:A;1)
A G4-ben megkeressük, hol van az utolsó sorunk. Képlete:=DARAB2(A:A)2. A névkezelőben három dinamikus tartományt hozzál létre, a dátumhoz, a mennyiséghez és az értékhez. A példában én xAxis, yAxis1, yAxis2 neveket adtam nekik és a munkalaphoz rendeltem őket.
A képletek pedig:=ELTOLÁS(Sheet1!$A$1;Sheet1!$G$3;;Sheet1!$G$4-Sheet1!$G$3)
=ELTOLÁS(Sheet1!$B$1;Sheet1!$G$3;;Sheet1!$G$4-Sheet1!$G$3)
=ELTOLÁS(Sheet1!$C$1;Sheet1!$G$3;;Sheet1!$G$4-Sheet1!$G$3)3. Rakd össze a grafikonodat, majd a Nézet -> Adatok megadása alatt válaszd ki az adatsorodat és kattints a Szerkesztésre.
Forrásnak a 2-es lépésben használt neveket kell megadnod munkalap névvel együtt! Esetemben pl. Sheet1!yAxis1
üdv -
oke
senior tag
válasz
Fonthy
#43874
üzenetére
Sziasztok,
Van egy táblázatom, a "w" oszlopban szeretnék rászűrni két tételre a "0"-ra és a "#HIÁNYZÓ"-ra és szeretném ezeket a tartalmakat törölni a cellákból. Nem a sort, csak a cella tartalmát. Makróval hogyan lehetne ezt kivitelezni? A sorok száma folyamatosan változik, nem állandó.
-
Fonthy
újonc
válasz
Fferi50
#43871
üzenetére
Szia!
Először is köszi szépen a gyors segítséget. Igen bocsánat rosszul fogalmaztam, bár az én szempontomból végül is mindegy, hogy VAGY vagy ÉS van ott a lényeg, hogy ezekben a függvényekben nem lehet használni a helyettesítő karaktereket, tehát kell a SZÖVEG.KERES vagy a SZÖVEG.TALÁL függvény, amiben már a helyettesítő karaktereket is lehet használni (bár ezekkel a függvényekkel nem is kellenek a helyettesítő karakterek számomra).
Köszi még egyszer!
-
#43873
Fferi50
Topikgazda
pero19910606
#43868
Fferi50
Topikgazda
válasz
pero19910606
#43868
üzenetére
Szia!
Legyen a diagram forrása egy állandó tartomány, ami három oszlopból, fejlécből és további 30 sorból áll. Legyen ez az A1 : C 31 terület. Az első sorból indul a fejléccel, tehát az első képlet a második sorba kerül.
Az első oszlop tartalmazza a napokat, a következő képlettel:=ÉV(MA()-(33-SOR()))&"."&JOBB("0" & HÓNAP(MA()-(33-SOR()));2) &"."&JOBB("0" & NAP(MA()-(33-SOR()));2)
Ezt a képletet húzd végig a 30 soron. Az eredmény dátumnak látszó formátumban az elmúlt 30 nap a tegnappal bezárólag.
A következő képletek attól függnek, hogy az adataid sorokban vagy oszlopokban vannak.
Ha jól értettem, akkor az adataid oszlopokban vannak, első sor a dátum, második sor a db-szám, harmadik sor az érték. Mivel a C oszlopig van a diagram forrásadata, kezdődjön ez az F oszloptól.
Ebben az esetben a VKERES függvényt tudod használni.
A második oszlop képlete:=VKERES(DÁTUMÉRTÉK($A2);$E$1:$DD$3;2;0)
A harmadik oszlopé pedig=VKERES(DÁTUMÉRTÉK($A2);$E$1:$DD$3;3;0)
Ezeket is végighúzod a sorokon.
Ezzel készen is van a diagram forrásadat. Már csak kozmetikázni kell.
Gondolom, a munkaszüneti napok értéke így a második és harmadik oszlopban 0 lesz.
Ezért erre a forrástáblára kell egy autoszűrő. A második oszlopon kiveszed a 0 értékeket tartalmazó sorokat a szűrővel. Ezzel meg is van a diagram.
Amennyiben az adataid sorokban vannak, akkor az FKERES függvényt használhatod a VKERES helyett.
Végeredmény:
Üdv.
-
Fferi50
Topikgazda
válasz
Fonthy
#43869
üzenetére
Szia!
Először is, a kérdésedben az szerepel tej vagy milka, ehhez képest az ÉS függvényt használod a képletben.
Másodszor, ebben a képletben én nem látok keresőfüggvényt (amikben egyébként lehet használni a helyettesítő karaktereket).
A szövegrészlet keresésre a SZÖVEG.KERES vagy a SZÖVEG.TALÁL függvényeket használhatod, attól függően, hogy kell-e kisbetű-nagybetű érzékenység.=HA(VAGY(HAHIBA(SZÖVEG.KERES("tej";A1);0);HAHIBA(SZÖVEG.KERES("Milka";A1);0))>0;B1;0)
A HAHIBA függvény azért kell, mert a SZÖVEG.KERES függvény hibát eredményez, ha nem találja a keresett szövegrészletet.
Üdv. -
#43870
lappy
őstag
pero19910606
#43868
lappy
őstag
válasz
pero19910606
#43868
üzenetére
Nem lehet kitörölni azokat a napokat az adatok közül?
-
Fonthy
újonc
Sziasztok!
Olyan kérdésem lenne, hogy függvényben lehet-e használni valahogy a kereső karaktereket (*, ?)? Pl. azt szeretném, hogy az A oszlopban lévő termékek közül, ha szerepel a nevében az hogy tej vagy milka, akkor az F oszlopba írja ki a B oszlopban található árát.
Nem tudom, hogy ez így kivitelezhető vagy nem is lehet logikai függvényben kereső karaktereket betenni? (Office 365 és magyar nyelvű excel-ről van szó)Segítségeteket előre is köszi!
-
#43868
pero19910606
csendes tag
pero19910606
csendes tag
Sziasztok!
Diagram témakörben szeretnék egy kis segítséget kérni
Adott az alábbi diagram:
Az elmúlt 30 napot kell megjelenítenem értékben és eladott dobozszámban, munkanaponként. Ha kitörlöm azokat az oszlopokat, amelyekről tudom, hogy ünnepnapok vagy hétvégék voltak, akkor csak simán üres helyet hagy a két munkanapi érték között.
Ezt úgy tudtam megoldani, hogy a dátumokat szövegként használtam, azonban ez csak egy egyszer riporthoz volt jó. Mivel az elmúlt 30 nap relatív, így egy olyan megoldást szeretnék találni, ahol csakis azok a dátumok jelennek meg ahol valóban van érték a tartományban.
Tudtok esetleg erre megoldást?
Köszönöm!
Üdv! -
Fferi50
Topikgazda
válasz
Doki16
#43864
üzenetére
Szia!
Bekapcsolod az autoszűrőt. A két oszlopra külön-külön csinálsz szín szerinti szűrést a sárga cellákra.
A C oszlopba a képlet:
Amikor az első oszlopot szűröd:
=A2 (az első látható cella az A oszlopban)
Amikor a második oszlopot szűröd:
=B3 (az első látható cella a B oszlopban)
A képletet végighúzod az érvényes szűrő alatt a látható cellákon.
Utána megszüntetheted a szűrést.Üdv.
-
Guitar14
senior tag
válasz
Doki16
#43864
üzenetére
Helló!
Nézet fülben kattints a makrókra, csinálj újat és szerkeszd aztán töröld ki üresre és illeszd be ezt:Function SumByColor(CellColor As Range, rRange As Range)
'Dim cSum As Long
Dim ColIndex As Integer
ColIndex = CellColor.Interior.ColorIndex
For Each cl In rRange
If cl.Interior.ColorIndex = ColIndex Then
cSum = WorksheetFunction.Sum(cl, cSum)
End If
Next cl
SumByColor = cSum
End Function
Mentsed le makróbarát munkafüzetként valahová, azt nyisd meg és írd be így a képletet:
(megpróbáltam replikálni a táblád )
Lényeg, hogy ami nekem kék színnel van arra egy olyat rögzíts $ jelekkel előtte ami olyan színü amilyen adat kell tehát egy sárga cellát jelölj meg vele, aztán húzd le a képletet és kész. -
oke
senior tag
Az az ötletem elhasalt, hogy a legördülő lista az érvényesítés/lista szerint lenne létrehozva, úgy néz ki, nem bír eltárolni 15 tételt, melyek közül több is elég hosszú szöveget tartalmaz. Így csak a táblázatból történő lista jöhet szóba és annak az átmakrózása az aktuális excelbe.
Makróban hogyan lehetne egy ilyen legördülő listát létrehozni - konkrét választható tételekkel - a "V" oszlopba, minden olyan sorba, amiben van érték ((ol. "A" oszlop alapján?). Még sosem került képbe ilyen feladat,
-
Fferi50
Topikgazda
Szia!
Mit jelent az, hogy nem működik? Hibát eredményez? Milyen hibát?
Talán meg kellene adni neki, hogy a Dátum függvénynél melyik munkalap celláit használja.
Mert ebben a formában az aktív munkalapról veszi az F5,G5 cellákat, s ha ott nincs érték vagy szöveg van, akkor ....
Üdv. -
Delila_1
veterán
válasz
Delila_1
#43848
üzenetére
Hopsza! Kimaradt az évenkénti összegző oszlop.
Sub Ev_Elrendezes()
Dim evek As Integer, honapok As Integer, ev As Integer, honap As Integer
Dim kezdoev As Integer, oszlop As Integer
kezdoev = Application.InputBox("Add meg a kezdő évet", "Év bekérése", , , , , , 2)
evek = Year(Date) - kezdoev + 1
oszlop = 1
For ev = 1 To evek
Cells(1, oszlop) = kezdoev
Range(Cells(1, oszlop), Cells(1, oszlop + 11)).HorizontalAlignment = xlCenterAcrossSelection
For honap = 1 To 12
Cells(2, oszlop) = honap
oszlop = oszlop + 1
Next
Cells(1, oszlop) = kezdoev & Chr(10) & "Összesen"
kezdoev = kezdoev + 1
oszlop = oszlop + 1
Next
End Sub -
lappy
őstag
válasz
Fferi50
#43847
üzenetére
Igazad van nem kell nagyon túlgondolni
viszont egy másik kérdés van.
Van egy táblázat ami tartalmazza az autók tankolási dátumait. ezt kellene havi szinten összegezni egy másik táblázatba, mert többször is tankolhat egy hónapban. így többszörös feltétel alapján lehet csak összegezni. A dátum formája pl.: 2019.05.22 21:21:00
rendszám első oszlop
második oszlop a dátum
harmadik oszlop tankolt mennyiség -
Delila_1
veterán
A makró bekéri a kezdő évet, majd ennek megfelelően az első sorba beírja az éveket, a másodikba a hónapokat. Az évek a hozzájuk tartozó 12 hónap közepén látszanak, bár mindig az első hónap fölötti cellában vannak.
Sub Ev_Elrendezes()
Dim evek As Integer, honapok As Integer, ev As Integer, honap As Integer
Dim kezdoev As Integer, oszlop As Integer
kezdoev = Application.InputBox("Add meg a kezdő évet", "Év bekérése", , , , , , 2)
evek = Year(Date) - kezdoev + 1
oszlop = 1
For ev = 1 To evek
Cells(1, oszlop) = kezdoev
Range(Cells(1, oszlop), Cells(1, oszlop + 11)).HorizontalAlignment = xlCenterAcrossSelection
For honap = 1 To 12
Cells(2, oszlop) = honap
oszlop = oszlop + 1
Next
kezdoev = kezdoev + 1
Next
End Sub -
Fferi50
Topikgazda
Szia!
Némi ellentmondást érzek:
"De a megjelenítés csak a naptári év 12 hónapja legyen."
Később pedig:
" így a 3x12 hónap azaz 36 oszlopban látom januáról- decemberig a hónapokat."
Most akkor 12 hónapot vagy 3x12 hónapot (amiből a tárgyévi egy része még üres) szeretnél láthatónak?
Ha jól gondolom, akkor évente egyszer kell ehhez hozzányúlni, akkor, amikor évváltás van. Akkor pedig:
1. kijelölöd a "felesleges" 12 hónapot és elrejted.
2. az összegző oszlopod elé beszúrsz 12 új oszlopot és megcsinálod a fejlécét.
Ez kb. 5 perces munka.
Üdv. -
lappy
őstag
Sziasztok!
Adott egy táblázat amiben az oszlopokban az év hónapjai lennének évenkénti megjelöléssel. (év alatta pedig a hónapok). A sorokban pedig bevitt adatok. Amit szeretnék az az, hogy ha az adott év szerint annyiszor legyen 12 hónap ahány év eltelt egy adott dátumtól. De a megjelenítés csak a naptári év 12 hónapja legyen.
Példa:
Legyen a kiinduló év 2018 és most 2020 van, így a 3x12 hónap azaz 36 oszlopban látom januáról- decemberig a hónapokat. A utolsó oszlop utáni oszlopot mindig tolja el 12 oszloppal mert ott egy összegzés lenne.
Valószínű hogy vba kell hozzá, igen de hogyan? -
-
Delila_1
veterán
válasz
commanDOS
#43837
üzenetére
Írtam hozzá egy makrót. A 6 lap az első helyen legyen, és vegyél fel egy új lapot Összegző névvel, vagy írd át a makróban ezt a nevet.
Ha az egyes lapokon foglalt az AA oszlop, akkor a makróban 3 helyen (csillagokkal jelöltem) írd át az oszlop betűjelét olyanra, ahol biztosan nincs egyik lapodon sem adat.Az egyes lapokról az Összegző lapra egymás alá másolja a tartalmukat, közöttük egy sorral, ahol az első, A oszlop annak a lapnak a nevét tartalmazza, ahonnan az adatok származnak. Üres sorok itt már nem lesznek.
Sub Osszegzes()
Dim lap As Integer, ide As Long, usor As Long, sor As Long
Sheets("Összegző").Cells = ""
Sheets(1).Rows(1).Copy Sheets("Összegző").Range("A1")
For lap = 1 To 6
ide = Sheets("Összegző").Range("A" & Rows.Count).End(xlUp).Row + 1
usor = Sheets(lap).Range("A" & Rows.Count).End(xlUp).Row
Sheets(lap).Rows("2:" & usor).Copy Sheets("Összegző").Range("A" & ide)
Sheets("Összegző").Cells(ide, "AA") = Sheets(lap).Name '***
Next
With Sheets("Összegző")
usor = .Range("A" & Rows.Count).End(xlUp).Row
For sor = usor To 2 Step -1
If Application.WorksheetFunction.CountA(.Rows(sor)) = 0 Then .Rows(sor & ":" & sor).Delete
If .Cells(sor, "AA") > "" Then '***
Rows(sor).Insert
.Cells(sor, 1) = Cells(sor + 1, "AA") '***
End If
Next
.Columns("AA").Delete
End With
End Sub -
commanDOS
senior tag
válasz
Fferi50
#43781
üzenetére
Szia!
Megnéztem, de a hasonlóság ellenére eléggé eltérő a probléma.
Arról van szó, hogy bizonyos elemeket gyártunk lemezből. Ezek téridomok.
Van 6 db ilyen idom. Ezek lemezfelhasználását, meg egyéb járulékos számításait 1-1 munkalapon lehet elvégezni. Legyenek mondjuk a munkalapok: Alkatrész_1, Alkatrész_2 ....Alkatrész_6.
Egy munkánál megnyitjuk a táblázatot és elkezdjük feltölteni a szükséges munkalapok sorait adatokkal. A végén kellene egy összegző munkalap, ahová a munkalap adatokkal feltöltött sorait egymás alá bemásolná és ott még összegezném, meg egyebek. Nyilván ez manuálisan egyszerű, mert csak a teli sorokat jelölöm ki, átmásolom az összegző munkalapra, kihagyok egy sort, bemásolom a 2. munkalap adatokkal feltöltött sorait és így tovább. Ezt szeretném automatikussá tenni. Azaz másolja a megfelelő sorokat és pozícionálja a különböző munkalapokból származó sorokat, hogy azok ne csússzanak egymásra. -
-
ace05
senior tag
Helló !
Van egy táblázatom amiben a tanárok összegezhetik, hogy melyik gyerek milyen címszó alatt kaphat jutalom könyvet. Címszó oszlopban van ott egy x. pl:
Ha összegezni szeretném, hogy Jó magatartás címszó alatt ki kapott könyvet, azt milyen függvénnyel csinálhatom?
-
-
oke
senior tag
Kiegészítés, vannak olyan sorok, amik újak, így ott is meg kellene jelennie a választó listának. A lista értékei az érvényesítés/lista alatt vannak beírva, nem táblázatból.
Ha manuálisan szeretném ugyan ezt, azaz a lista elemet tartalmazó cellát másolni, a lista eredeti értékével, azt hogyan lehetne kivitelezni? FKERES-el csak az értéket viszi át.
Előre is köszönöm a segítséget. -
Willie
őstag
Sziasztok!
Segítsetek kérlek, adott kb. 2000 szám egymás alatt 2000 sorban/cellában ugyanazon oszlopban , pl. 0212941, ezeket szeretném felosztani szóközökkel, hogy így nézzen ki: 02 12 941, hogyan tudom ezt a legkönnyebben megtenni?Előre is nagyon köszönöm a segítségeteket.
-
oke
senior tag
Sziasztok,
Van egy napi táblázatom, amibe mindig bemásolásra kerülnek ugyan ennek a táblának az előző napi verzióból bizonyos adatok, egy makró által, az "A" oszlop egyedi azonosítói alapján. Most jött egy olyan kérés, hogy a V oszlopba egy lista kellene. Kérdés, milyen makró részlettel lehet ezt úgy megoldani, hogy az előző napi táblában már a listából kiválasztott érték is átmenjen, de továbbra is listaként működjön az oszlop, azaz lehessen változtatni, ha kell. Remélem érthető, mit szeretnék
.
Office 365 -
-
Fferi50
Topikgazda
válasz
RAiN91
#43824
üzenetére
Szia!
"egyszer lefut indulásnál, utána abba hagyja."
Ez mit jelent? A ciklusból egyet megcsinál és kilép hibával? Amikor megnyitod a munkafüzetet egyszer lefut és utána többet nem?
Ez egy eseménykezelő, ami akkor indul el, ha a munkalapot újraszámolják. Ha nincs újraszámolás, akkor nem fog lefutni.
Az ujraszámolást kiválthatod pl. a Sheets("Munka1").Calculate utasítással.
Üdv. -
Nixon18
senior tag
válasz
csferke
#43812
üzenetére
Köszönöm szépen! Így valóban működik.
Még lenne egy kérdésem. Ha van két táblázatom, amihez van két legördülő listát tartalmazó cella. Az egyikben mértékegységek a másikban Ft/mértékegységek vannak.
Hogyan lehet azt megoldani, hogyha az első legördülő listából kiválasztok egy mértékegységet, két cellával arréb beírja automatikusan a hozzá tartozó Ft/mértékegységet? -
swoody
senior tag
Sziasztok!
Egy kerdesem lenne:
Adott egy szorzas: 370 x 2,5510 = 943,87
amit ha felkerekitek 944 es megszorzom 3-al = 2832
viszont, ha ezt tovabb szorzom 1,27-el az 3596 lesz.
Ha szimplan az eredmenyt (2832) szorzom meg 1,27-el az pedig 3597 lesz.
Hogyan tudnam megoldani, hogyha nem latszik a kerekites akkor ne vegye figyelembe a tort szamokat. Mert igy tok felrevezeto osszegeket fogok kapni.
Koszike. -
Fferi50
Topikgazda
válasz
#05304832
#43818
üzenetére
Szia!
Egyrészt nem világos, hogy melyik oszloppal mit szeretnél.
Másrészt a harmadik oszlopban biztosan nem dátum van, hanem szövegek, hiszen február 30 ugyebár nem létező dátum. És kérdés a második oszlop is. A szöveget pedig másképpen rendezi az Excel mint a számokat.
Üdv. -
chopin42
őstag
válasz
Delila_1
#43811
üzenetére
Szuper, köszönöm! Itt ha jól értem, a A oszloppal kalibrálok. Viszont mi a helyzet akkor, ha tudom az A értékeket, és azt az egyet, ami abból jó, vagy legalább a két végpontot. Ki tudom-e íratni a százalékkülönbségeket? Pl 50 cella, az első 14, az utolsó 0. Ki tudja számolni az arányokat, ami megadja a százalékaimat? (Sajna nagyon kezdő vagyok
) -
-
chopin42
őstag
Üdvözletem!
Ismét jelentkeznék egy kérdéssel, ami talán nem annyira egyértelmű:
Olyat szeretnék, hogy bizonyos képletekkel az excel automatikusan kalibráljon.
Értem ez alatt, hogy van pl 10 mért érték, amiből tudom, hogy az első 14%-al nagyobb kell, hogy legyen, az utolsó pedig pont jó. Tehát folyamatosan változtassa a 2-9 értékeket ennek megfelelően, arányos csökkenéssel. Illetve azt is jó lenne, ha meg tudnám így oldani, hogy a 10. érték után negatívan kalibráljon, kvázi fordítva. Tehát ha van 19 érték, amiből az első 14%al kisebb, mint kellene, az utolsó pedig 14%-al nagyobb kettő közepén pont nulla (illetve ahova én adom meg a nullát, onnan kalibráljon pozitív és negatív irányba).
Tudom, hogy egy sima sum vagy akármi nem oldja meg, de lehetséges ez?
(Hogy konkrét legyek, van egy anemométerem, ami 1.23 m/s után leesik 1.10re, és onnan rosszul mér kb 2,1-ig, onnan pedig fokozatosan túl mér, még nem teljesen tudom, mennyivel, de kb 35 mérés után már elég világos, hogy nem az én eddigi kalkulációim, hanem a mérő tévedett, de sajna nem konstans).
Köszönöm! -
Nixon18
senior tag
válasz
Delila_1
#43807
üzenetére
Igen, de akkor változik a bevitt adatok sorrendje is. Ez problémás lehet ha az árajánlatban szereplő tételek termékcsoportonként vannak megadva.
De ha nincs más megoldás, akkor a sum függvény feletti sor mindig üres lesz lezárva és akkor nem gond, ha afölé kell beszúrni a sort.
-
Nixon18
senior tag
Sziasztok!
Egy egyszerű(en használható) árajánlat-készítő táblázatot csinálok.
Meg lehet-e azt csinálni, hogy ha van egy pl. =sum(a1:a10) függvény az a11 cellában és én beszúrok egy sort az a11-es sor fölé, akkor a sum függvény frissítse magát =sum(a1:a11)-re? -
Mutt
senior tag
válasz
RedHarlow
#43801
üzenetére
Szia,
Ha tömbfüggvény is játszik, akkor SZORZATÖSSZEG is tud segíteni.
O3-ban a képlet:
=HAHIBA((SZORZATÖSSZEG(($B$2:$M$2=O$2)*($B3:$M3>0)*($B3:$M3))/SZORZATÖSSZEG(($B$2:$M$2=O$2)*($B3:$M3>0))&O$2);0)B-től M-ig terjedő oszlopokat nézi csak, ezt majd bővítened kell.
A végét pedig egy Excel 2016-ban lévő függvény, a SZÖVEGÖSSZEFŰZÉS adja meg.
=SZÖVEGÖSSZEFŰZÉS (KARAKTER(10);IGAZ;HA(O3:Q3>0;O3:Q3;""))Ezt Ctrl+Shift+Enter-el kell majd bevinni.
üdv
-
Fferi50
Topikgazda
válasz
RedHarlow
#43801
üzenetére
Szia!
Létrehoztam három nevet (Képletek - Névkezelő, új név):
AdagA=INDEX(Munka1!$A$1:$V$6;HOL.VAN(Munka1!$A10;Munka1!$A$1:$A$6;0);HOL.VAN(Munka1!B$9;Munka1!$A$1:$V$1;0))
AdagB=INDEX(Munka1!$A$1:$V$6;HOL.VAN(Munka1!$A10;Munka1!$A$1:$A$6;0);HOL.VAN(Munka1!B$9;Munka1!$A$1:$V$1;0)+1)
AdagC=INDEX(Munka1!$A$1:$V$6;HOL.VAN(Munka1!$A10;Munka1!$A$1:$A$6;0);HOL.VAN(Munka1!B$9;Munka1!$A$1:$V$1;0)+2)
Ezek megkeresik a táblázat 3 oszlopában a naphoz tartozó adagokat.
Az INDEX függvény első paramétere legyen a teljes rendelős táblázatod. Az első HOL.VAN függvény 2. paramétere a rendelős táblázat első oszlopa (a nevek), a második HOL.VAN függvény 2. paramétere a rendelős táblázat első sora (a napok).
A HOL.VAN függvények első paramétere az eredménytábla első oszlopa, illetve az eredménytábla következő oszlopai.
Kérlek, figyelj a $ jelekre, mert ez határozza meg a cellákat.
Ezek után az eredménytábla első cellájának (B10) képlete:=HA(AdagA>0;AdagA & "A";"") & HA(AdagB>0;KARAKTER(10) & AdagB & "B";"") & HA(AdagC>0;KARAKTER(10) & AdagC & "C";"")
Ez a képlet jobbra és lefelé is húzható!
Az eredménytábla celláinak formázásában állítsd be a sortöréssel több sorba opciót a képletek lehúzása után.
Mutatom az eredményt:
Remélem sikerül.
Üdv.
)
Új hozzászólás Aktív témák
Hirdetés
- iPhone-t használók OFF topikja
- NVIDIA GeForce RTX 3060 Ti / 3070 / 3070 Ti (GA104)
- Generációs lemaradásban a Huawei chipek, de a cég kitalált valamit
- exHWSW - Értünk mindenhez IS
- Nvidia GPU-k jövője - amit tudni vélünk
- Milyen NAS-t vegyek?
- Akciókamerák
- Kávé kezdőknek - amatőr koffeinisták anonim klubja
- Ezek lehetnek a Realme 14 Pro és 14 Pro+ európai árai
- One otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
- Assassin's Creed Shadows Collector's Edition PC
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- ÁRGARANCIA!Épített KomPhone i5 10600KF 16/32/64GB RAM RX 6600 8GB GAMER PC termékbeszámítással
- Bomba ár! Dell Latitude 7320 - i5-11GEN I 8GB I 256SSD I HDMI I 13,3" FHD I Cam I W11 I Garancia!
- DDR5 16GB 8GB 32GB 4800MHz 5600MHz RAM Több db
- Bomba ár! Lenovo ThinkPad Yoga 260 - i5-G6 I 8GB I 256SSD I 12,5" Touch I W10 I Cam I Gari!
- Fotós felszerelés - Stúdió lámpa / Softbox / Vaku
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged