-
GAMEPOD.hu
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
-
Delila_1
Topikgazda
válasz Metathrone1 #15501 üzenetére
Nincs mit.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Metathrone1
csendes tag
válasz Delila_1 #15502 üzenetére
És még egy olyan kérdés, hogy az egész ne legyen egyszerű
adott a makrót tartalmazó munkafüzet és egy másik, amiben a makrót akarom futtatni billentyűkombinációval, de abban makró nem lehet. addig működik, míg a dátumot kell beírni, de a nevet nem hozza át.
Sub Insert_date()
ActiveCell = Date
ActiveCell.Offset(, 1) = Range("GX60000")
End Subitt a range után megadni a zárójelben útvonalat? Ha igen, akkor hogyan?
kell gondolom fájl helye, neve, munkalap és azon belül a cella[ Szerkesztve ]
-
Metathrone1
csendes tag
válasz Metathrone1 #15503 üzenetére
megoldottam
-
kokopeti
csendes tag
válasz Delila_1 #15487 üzenetére
Szia!
A táblázatok "A 2"-től vannak feltöltve "E xyz"-ig!
Az első sorban a táblázat nevek szerepelnek, ahogy itt is látható a Kiadások munkalapon:
A másik munkalapom abban különbözik, hogy a Bevételekben nincs Nettó összeg, csak bruttó. Úgyhogy az csak 4 oszlopos.[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz Delila_1 #15479 üzenetére
Köszönöm a segítséget. A dátumérték()-kel sikerült megoldani makróval...
...miután kiderült, hogy nem excel függvényként (Application.Worksheetfunction. stb stb) kell használni, hanem van egy ilyen VBA függvény. Talán másnak is mond újat ez az oldal
Köszi még egyszer.
-
Delila_1
Topikgazda
válasz m.zmrzlina #15507 üzenetére
Örülök, hogy sikerült.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
kokopeti
csendes tag
válasz Delila_1 #15506 üzenetére
A harmadik munkalapnak az lenne a lényege,hogy:
A1 cellában beírom azt a dátumot, ami engem érdekelne és ezt listázza ki az alatta lévő táblázatba.
A táblázatban az lenne a jó, ha tartalmazná a Kiadások és Bevételek munkalapokból a Megnevezés, Mód táblázatokat és egy Összeg nevű táblázatot ami tartalmazza a Bevételekből a Bruttó összeget, a Kiadásokból pedig Bruttó kiadás - (mínusz) Nettó Kiadás különbözetét.
(Ha nem sikerült értelmesen megfogalmaznom, akkor az is tökéletes lenne, ha a Kiadásokból is csak a Bruttó kiadás lenne és majd kiokoskodom a többit, mert az alap makró is hatalmas segítség lenne!!)
Ha ez meglenne utána már könnyen tudnék hozzárendelni egy összesítő képletet, amivel kiszámoltathatom a napi eredményt!
-
Delila_1
Topikgazda
válasz kokopeti #15509 üzenetére
A 'Napi összesítő' lap A2 cellája a mód, B2 a bruttó, C2 a nettó, D2 a megjegyzés.
A laphoz rendeld ezt a makrót:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim datum As Date
If Target.Address = "$A$1" Then
Application.EnableEvents = False
datum = Target.Value
Osszevonas datum
Application.EnableEvents = True
End If
End SubModulba tedd a másikat:
Sub Osszevonas(datum)
Dim sor%, usor%, usorN%, f As Boolean
Application.ScreenUpdating = False
Dim WS1 As Worksheet, WS2 As Worksheet, WS3 As Worksheet
Set WS1 = Worksheets("Kiadások")
Set WS2 = Worksheets("Bevételek")
Set WS3 = Worksheets("Napi összesítő")
WS1.Select
usor% = Cells(Rows.Count, "A").End(xlUp).Row
usorN% = 2
For sor% = 2 To usor%
If Cells(sor%, 1) = datum Then
usorN% = usorN% + 1
f = True
WS3.Cells(usorN%, 1) = Cells(sor%, 2)
WS3.Cells(usorN%, 2) = Cells(sor%, 3) * -1
WS3.Cells(usorN%, 3) = WS3.Cells(usorN%, 2) / 1.27
WS3.Cells(usorN%, 4) = Cells(sor%, 5)
End If
Next
WS2.Select
usor% = Cells(Rows.Count, "A").End(xlUp).Row
For sor% = 2 To usor%
If Cells(sor%, 1) = datum Then
f = True
usorN% = usorN% + 1
WS3.Cells(usorN%, 1) = Cells(sor%, 2)
WS3.Cells(usorN%, 2) = Cells(sor%, 3)
WS3.Cells(usorN%, 3) = WS3.Cells(usorN%, 2) / 1.27
WS3.Cells(usorN%, 4) = Cells(sor%, 4)
End If
Next
WS3.Select
Application.ScreenUpdating = True
If f = False Then MsgBox "Nincs mozgás a " & datum & " napon."
End SubAz összes bruttót az =szum(B:B), az összes nettót az =szum(D:D) képlet számolja ki a harmadik lapodon.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Sir Pocok
őstag
A következőben kellene egy kis segítség:
Adott egy adatbázis nevű munkalap, ami 2 oszlopot tartalmaz:azonosító és cím.
Feladat az lenne, hogy egy másik munkalapon ha beírom az azonosítót egy cellába akkor a mellette levő cellába kiadja az adatbázis nevű munkalapon található azonosítóhoz tartozó címet.
Köszönöm előre is a segítséget.
Az erős embernek nincs szüksége hatalomra, a gyönge jelleműt pedig tönkreteszi.
-
csferke
senior tag
Sziasztok!
1.lap adatok (név, ir.szám, város, cím...)
2.lap pl. A1 cellába vlookup-al behozok egy nevet és az A2-ben szeretném összevonva megjeleníteni az ir.számot és várost (ir.szám+" "+város formában). A2-be vlookup ir.szám, B2-be vlookup város, eddig eljutottam.Hogyan kell "összeadni" a két vlookup-ot?
A1 cellába a név kiválasztásánál a legördülőben lehet-e két oszlop (pl. név, város). Az 1.lapon az adatok
város+név szerint vannak rendezve. Nagyban megkönnyítené a kiválasztást ha 2.lap A1-ben is látnám a városokat is.köszi
-
Delila_1
Topikgazda
-
lappy
őstag
-
kokopeti
csendes tag
válasz Delila_1 #15510 üzenetére
Szia!
Üres lapba bemásolva minden jól működik köszönöm. Viszont annyi változás történt, hogy a táblázatom elhelyezkedését muszáj lejjebb helyeznem.
Így az elhelyezkedésük ez lesz:
Mód: B13
Nettó: C13
Bruttó: D13
Megjegyzés: E13A módosuláshoz gondolom ebben kellene szerkeszteni pár értéket:
WS1.Select
usor% = Cells(Rows.Count, "A").End(xlUp).Row
usorN% = 2
For sor% = 2 To usor%
If Cells(sor%, 1) = datum Then
usorN% = usorN% + 1
f = True
WS3.Cells(usorN%, 1) = Cells(sor%, 2)
WS3.Cells(usorN%, 2) = Cells(sor%, 3) * -1
WS3.Cells(usorN%, 3) = WS3.Cells(usorN%, 2) / 1.27
WS3.Cells(usorN%, 4) = Cells(sor%, 5)
End If
Next
WS2.Select
usor% = Cells(Rows.Count, "A").End(xlUp).Row
For sor% = 2 To usor%
If Cells(sor%, 1) = datum Then
f = True
usorN% = usorN% + 1
WS3.Cells(usorN%, 1) = Cells(sor%, 2)
WS3.Cells(usorN%, 2) = Cells(sor%, 3)
WS3.Cells(usorN%, 3) = WS3.Cells(usorN%, 2) / 1.27
WS3.Cells(usorN%, 4) = Cells(sor%, 4)Próbálom egyedül is hátha sikerül, de egyelőre nehezen értelmezem a deklarálásokat sajnos.
-
Geryson
addikt
Mesterek! Létezik-e mód arra, hogy ha én csinálok egy Excel táblázatot, felrakom egy szerverre és dolgoznak vele mások is (kitöltik), majd annak mondjuk ellenőrzöm példának okáért egy részét (pl. huszadik sorig), akkor azt úgy le tudjam védeni, hogy abban már ne lehessen módosítani, de a következő sortól természetesen tovább lehessen tölteni?
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
Delila_1
Topikgazda
válasz kokopeti #15527 üzenetére
A két For kezdetű sorban a 2-t írd át 13-ra, ill. ha itt a címsor van, akkor 14-re.
Szerk.: a fenti arra az esetre vonatkozik, ha a 2 első lapodon vándoroltak lejjebb az adatok.
Ha a 3. lapon, akkor a sorN%=2 helyett írj sorN%=13-at.[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
pero19910606
csendes tag
Sziasztok!
Kaptam egy beadandó feladatot és nem igazán tudom, hogyan fogjak hozzá.
Ételek kalória értékét kell kiszámítani. Egy táblázatban megkaptam 130 ételnek a nevét (+ mennyiség,kcal,fehérje,zsír, szénhidrát) 11 főbb csoportra osztva.(pékárú,zöldség,gyümölcs stb...)
Azt a célt kell szolgálnia, hogy ha pl ebédet szeretnék csinálni, akkor elég legyen kiválasztani az adott ételeket és ha meg van az összes, akkor kiszámolná, hogy mennyi kalória, mennyi szénhidrát stb...
Arra gondoltam, hogy legördülő menükből kéne megcsinálni. Az alapelv az, hogy ha kiválasztom az első legördülőmenüben pl a gyümölcsöket, akkor egy mellette lévő legördülőben már csak a gyümölcsök jelennének meg. Megoldható ez így?
A másik meg hogy a főbb csoportok nem egymás alatt van közvetlenül,hanem van, hogy 20 sor üresen van. Hogyan tudnám meg csinálni azt hogy csak azokat listázza amiben van szöveg is. ( most úgy írtam be, hogy D2119, de itt ugye tartalmazza az üres cellákat is. Ha elválasztom vesszővel vagy pontos vesszővel, akkor nem ad ki eredményt)
Ha ez már meg lenne utána nagyon bonyolult az, hogy kiszámolja nekem pl a krumpli értékeit egy mezőbe,aztán a csirke értékeit és mondjuk egy sütemény értékeit majd[ Szerkesztve ]
-
pero19910606
csendes tag
válasz pero19910606 #15534 üzenetére
majd ezt szépen összesíti is?
Bocsi a hosszúért. Köszönöm előre is
( ez nem fért már bele)
-
Delila_1
Topikgazda
válasz pero19910606 #15534 üzenetére
Erről már többször volt szó itt a fórumon. Pl. itt
Az kalória beírását az FKERES függvénnyel tudod megoldani, az összesítés pedig gyerekjáték a SZUM függvénnyel. Összegzés előtt ne felejtsd el felszorozni az egységnyi adagra szóló kalóriát a fogyasztandó mennyiséggel.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz pero19910606 #15537 üzenetére
Igen. NE hagyj üres cellákat.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
pero19910606
csendes tag
válasz Delila_1 #15538 üzenetére
De azt nem tudom meg tenni mert a táblázat így néz ki :
Gyümölcs banán
üres cella alma
üres cella körte stb...
ZöldségAztán itt megint lejjebb húsok. Tehát a D oszlopban vannak felsorolva a főbb kategóriák és rögtön mellette az E oszlopban pedig a termékek. Tehát kénytelen vagyok meghagyni azokat üresen.
-
Delila_1
Topikgazda
válasz pero19910606 #15539 üzenetére
Készíts egy új oszlopot, ahol egymás alá írod a gyümölcsöt és a húst, és ezt tedd be az érvényesítésbe.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz pero19910606 #15541 üzenetére
Szívesen. A legegyszerűbb dolog nem jut néha eszünkbe.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
veterán
válasz Delila_1 #15519 üzenetére
szupper, köszönöm, szép lassan tanulgatok
még egy kérdés merült fel: létezik-e olyan parancs, ami egy makró elejére írva az excel fájl megnyitásakor lefuttatja az adott makrót, azaz ne kelljen mindig kikeresni, meg ne kelljen gombot se nyomkodni, hanem csak fusson
köszönöm!
"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"
-
Delila_1
Topikgazda
válasz bandus #15543 üzenetére
Szívesen.
A ThisWorkbook-ba tedd a makrót, és Private Sub Workbook_Open() legyen a címe, akkor a fájl megnyitásakor automatikusan indul.
Lehet Sub auto_open() is a címe.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
q13579
senior tag
Sziasztok!
Az Excel 2010 hány sort tud maximálisan kezelni?
Ugyanis szeretnék összemásolni egy közel 450 ezer soros táblát egy 650 ezer sorossal, de ehszerűen nem teszi meg. A következő hibaüzenetet kapom:
Az információ nem illeszthető be, mert a Másolás és a beillesztési terület nem azonos méretű és alakú.
Ez biztos, hogy nem lehet probléma, mert teljesen ugyanaz a formátum.
Ráadásul, ha a 650.000 sorosat akarom önmaga után másolni, akkor is ezt a hibát írja, holott a két formátum 100 %, hogy egyezik.
Tudna valaki ötletet adni?
-
Gabesz87
addikt
Egy kis segítséget kérnék diagram terén...Excel 2010-ről van szó először is...Adott egy adatsor: pontdiagramon ábrázolok görbe vonalakkal összekötve egy csatornában lévő áramlás sebességprofilját. Vízszintes tengelyen az osztások vannak mm-ben, függ. tg-en meg a sebesség m/s-ban. Viszont ezt össze kéne hasonlítani egy másik féle sebességmérési módszerrel, ami csak egy darab érték, egy átlagsebesség, és ezt kellene még valahogy ebbe a pontdiagramba beszúrni, tehát ez utóbbi nyilván egy vízszintes vonal lesz. Csak azt nem tudom, hogy lehet hozzáadni ezt a meglévő diagramomhoz! Remélem érthető volt így. Légyszi segítsetek!
Na, épp mire megírtam sikerült...Kijelöltem a meglévő adatsorral együtt ezt az egy értéket is, úgy hogy minden x értékhez odaírtam ugyanazt az egy átlagsebesség-értéket.
[ Szerkesztve ]
-
siskin
tag
Sziasztok!
Kis segítséget kérnék...Excel fájlba mentem pár éve a háztartás kiadás-bevételeit.(Office 2010).Történt ma,hogy belépve hibaüzenetet írt a program,valami grafikont nem tudott megnyitni,de beengedett.Beírtam pár adatot,mentettem,kiléptem.Biztos ami biztos alapon meg akartam nézni sikerült-e elmenteni az adatokat,de már nem engedett be.Hibaüzenetként annyit írt,hogy a fájl vagy hibás,vagy a kiterjesztés változása miatt nem nyitható meg.
Már mindent kipróbáltam vele,de semmiképpen nem férek hozzá az adatokhoz.
Leírom mivel próbálkoztam:
-fájl kiterjesztés módosítása (mindenféle excel formátummal)
-excel program beépített javító használata (megnyitás és javítás,adat kinyerés,stb....)
-legalább 3 féle recovery programmal néztem,nem e lehet visszaállítani valahogyan legalább a tegnapi állapotot
-excel viewer programokkal legalább kimásoláshoz megnézni az adatokat-sikertelenül
nagyjából ennyi.Ha sérült egy excel fájl,semmi remény az adatok visszanyerésére?
Nem vagyok bolond, a hangok is megmondták!
-
hdcsaba87
aktív tag
Sziasztok!
az lenne a kérdésem, hogy excel visual basicben hogyan tudom megjeleníteni az active x vezérlők között a naptár funkciót?
köszönöm előre is a segítséget -
Delila_1
Topikgazda
válasz hdcsaba87 #15549 üzenetére
Az Excelben behívod a vezérlők eszköztárát. Az utolsó ikonra, a "További eszköztárak" nevűre kattintasz. A megjelenő listában a verziódtól függően különböző néven szerepelhet, Naptár, Calendar, Microsoft Calendar. Ha egyik sincs, akkor a letölthető MSCAL.OCX és CDLMSO.DLL fájlokat tedd be a C:\Programok\Microsoft Office\ OFFICExx (11, 12, vagy 13 a verziótól függően) könyvtárba.
Átlépsz a VBE-be. Tools | References. Bejelölöd a Microsoft Forms x.x Object Library-t. Megjelenik az ikon, kis kék pontokkal.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Escape from Tarkov
- Milyen légkondit a lakásba?
- Kerékpárosok, bringások ide!
- PlayStation 5
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Autós topik
- Feltörték a PROHARDVER!-es regisztrációmat! (vagy elvesztettem a belépési emailcímemet)
- Autós topik látogatók beszélgetős, offolós topikja
- Kínai, és egyéb olcsó órák topikja
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig