-
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
=INFÓ("memfoglalás") az adatok által használt memória mérete bájtban. Ezt oszthatod 1024-gyel.
Szerk.:
Ez a súgó szerint igaz, de kipróbálva elég furcsa értéket ad.Újabb szerk.: persze, mert nem a fájl méretét, hanem az általa lefoglalt memóriáét adja. Szóval rossz válasz.
[ 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.
-
Caipi
tag
Sziasztok,
Segítséget kérnék:Adott táblázat egyik oszlopa dátumokat és szövegeket is tartalmaz. Szeretném a mellette lévő oszlopba cellánként megfeleltetni az adatokat.
Ha első negyedévbe esik a dátum akkor itt jelenjen meg "1", ha második akkor "2", majd "3","4", szöveg esetén pedig valami mást...
Valamit rosszul írhattam, mert a ha() függvényben és()-el vizsgált dátumintervallumok (dec.31.-nél nagyobb, ápr.1-nél kisebb) nem működtek nekem, ilyenkor azonnal az hamis ágra ugrott a ha().Köszönöm a tippeket
[ Szerkesztve ]
-
m.zmrzlina
senior tag
Ez kiváló pont ilyesmire van szükségem.
Hogyan lehet ezt a linkedcell értéket futásidőben változtatni?
Az lenne a cél, hogy (megkönnyítendő az adatbevitelt) egér használata nélkül:
1. pl A1-be írok egy számot
2.Linkedcell értéke AktiveCell.Offset(0,1)
3.Enter-re megkapja a Combobox a fókuszt
4.kiválasztom a ListfillRange elemeiből a kívántat
5.Enterre beíródik a Combobox tartalma LinkedCell-be, ez esetben ("B1")
6.(A oszlop első nem üres cellája).Select (eggyel lejjebb ugrik az aktív cella)
7. GoTo 2 -
Herczi
senior tag
Sziasztok!
Azt meg tudom valahogy csinálni, hogy a számokat automatikusan 2,5 többszöröseire kerekítse? Azaz 81,8-ból lenne 82,5, 88,5-ből 90 stb. -
Herczi
senior tag
válasz m.zmrzlina #17159 üzenetére
Köszi, az megoldható valahogy, hogy ne egy másik cellába írja át az eredményt, ha nem az eredetit "javítsa" úgymond?
-
m.zmrzlina
senior tag
válasz Herczi #17160 üzenetére
Az nem működik, hogy egy következő lépésben a képlet eredményével (B1) felülírod az A1 cellát?
Másolás > Irányított beillesztés > Értéket
Egyébként az előző képlet a 2,5-tel maradék nélkül osztható értékeket is felkerekíti. pl 90 ből 92,5 lesz. Ha ezt el akarod kerülni akkor használd a következő képletet:
=HA(MARADÉK(A3;2,5)<>0;A3+(2,5-MARADÉK(A3;2,5));A3)
-
Herczi
senior tag
válasz m.zmrzlina #17161 üzenetére
Azért nem írhatom felül, mert már a kerekítendő szám is egy képlettel jön ki. Ez pl. a B4 cellám: =(0,58*A28), amit fel szeretnék kerekíteni. Nem nagy tragédia amúgy ha nem lehet, ennyit fejben is megtud az ember, inkább csak esztétikai jelentősége lett volna, köszi szépen
-
Herczi
senior tag
válasz m.zmrzlina #17163 üzenetére
Eszméletlen, köszi, örök hála
-
nesh20
aktív tag
Sziasztok!
Valakinek van tapasztalata .prn fájlokkal? Excel-ben szeretném megnyitni de sajnos nem tudom úgy ahogy én szeretném.
Egy oszlopban nyitja meg az egészet, nekem pedig külön oszlopokra és cellákra lenne szükségem, amiben később kereshetek, képleteket írhatok..
Ha esetleg valaki tudna, lenne szíves segíteni elküldeném neki a fájl-t, hogy megtudja nézni.
Nagyon szépen köszönöm előre is!I am a Man of Fortune, and I must seek my Fortune.
-
Mutt
aktív tag
válasz m.zmrzlina #17157 üzenetére
Hello,
Ezek a lépések kellenek neked.
1. Hozz létre egy beviteli listát (Active X).
2. A ListFillRange-be add meg a választható listát.
3. A munkalap change eseményéhez add ezt a kódot.
'csak akkor fut, ha az A-oszlopban történik változás
If Target.Column = 1 Then
'beállítjuk hogy a
ComboBox1.LinkedCell = "B" & Target.Row
'beugrunk a beviteli listába
ComboBox1.Activate
End IfEnterhez köthető eseménye nincsen, de pl. ESC-es van ha ez is jó neked, akkor használd ezt a kódot.
Private Sub ComboBox1_LostFocus()
Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1).Activate
End SubTehát így fogod tudni használni:
1. A-oszlopba írsz vmit.
2. Enter-rel (vagy máshogy) kilépsz a cellából beugrik a beviteli listába.
3. Kiválasztod az értéket, majd nyomsz Esc-et és az A-oszlop első üres sorába kerülsz.Ide felraktam a mintát.
üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Vladek83
tag
Sziasztok!
Van egy makró, azt szeretném elérni, hogy amikor változik a lapon A "H1" cella értéke, akkor az Userformon Textboxon írja ki az aktuálisat.
Private Sub UserForm_Initialize()
Me.TextBox1.Text = CStr(ThisWorkbook.Sheets("Munka1").Range("H1").Value)
End SubElőre is köszönöm.
Üdv.
-
Mutt
aktív tag
válasz m.zmrzlina #17163 üzenetére
Hello,
Van még egy rövidebb megoldás is:
=TÖBBSZ.KEREKÍT(A1;2,5)Ezzel az a gond, hogy a kerekítés szabályai szerint a 88.5-nél 87.5-et fog visszadni, mivel ez közelebb van, mint a 90.
Itt van egy másik elvetemült képlet ötletelésnek:
=KEREK.LE(A1;-1)+VÁLASZT(MARADÉK(INT(A1);10)+1;0;2,5;2,5;5;5;5;7,5;7,5;10;10)Az első része (a KEREK.LE) megadja tizes helyiértékre kerekítve a számot (pl. 88,5 -> 80), amelyhez vagy 0-t vagy 2,5-et vagy 5-öt, vagy 7,5-et vagy 10-et adunk attól függően, hogy az egyes helyiérték maradéka mennyi.
A képlet előnye, hogy külön beállítható, hogy mekkora maradéknál mennyit adjuk az első számhoz.üdv.
[ Szerkesztve ]
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Mutt
aktív tag
válasz nesh20 #17166 üzenetére
Hello,
Dobd fel a fájl részletét vhova, megnézzük.
Ha tényleg egy prn fájlról van szó, akkor kellhet egy konverter (pl. prn2txt) ami kiveszi belőle a nyomtatónak szánt beállításokat/kódokat és csak a nyomtatandó részt hagyja meg.
Ezek után már be lehet olvasni és tagoltatni a tartalmat.üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
-
m.zmrzlina
senior tag
Köszönöm, működik.
-
Geryson
addikt
Sziasztok!
Vagy egy múlt havi felsorolásom, összesen 1400 sor, amelynek első oszlopa a dátum, utolsó oszlopa meg az aznapi érték. Tanultam én anno - de persze elfelejtettem -, hogy rá lehet valamiféle "függőleges szűrést" (a saját megnevezésem) küldeni a táblázatra, hogy összegezze a sorokat és becsukva azt csak az aznapi összesített értéket látnám (tehát 28 sorra csökkenteném). Bonyolult ezt megoldani?
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
Geryson
addikt
válasz Delila_1 #17175 üzenetére
Hm, jópofa ez a RÉSZÖSSZEG, de nem értem a lényegét. Itt nekem kell kijelölnöm a hivatkozási tartományt amit meg én mondtam, ott automatikusan tudta ezt a dátum alapján.
Itt most ahogy látom egyenként kellene kijelölnöm az 1 naphoz tartozó összegzendő értékeket, amit meg akkor már fel tudok írni magamnak (ha már egyszer kijelölöm őket).
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
Delila_1
Topikgazda
válasz Geryson #17176 üzenetére
Nem.
Beviszed valahova a részösszeg függvényt. Ha nem az összegzendő oszlopba teszed, akkor a teljes oszlopot is megadhatod tartománynak. =részösszeg(9;"C:C"), ha az összegzendő oszlopba viszed, akkor a pontos tartományt add meg. =részösszeg(9;"C2:C1400")
Itt a 9 a függvényszám, ami azt jelzi a függvénynek, hogy a tartomány összegét adja eredményül.
Ezután szűröd a tartományt a dátum oszlopban kedved szerint. A függvény mindig az aktuális szűrésben látható cellák összegét adja.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Geryson
addikt
válasz Excelbarat #17178 üzenetére
Igen, ez volt az, így rögtön beugrott. Mindegy, már megcsináltam Delila_1 ötlete alapján, mert az meg tényleg hasznos lesz nekem a jövőben is!
Köszönöm nektek!
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
m.zmrzlina
senior tag
Van egy ilyen kódrészletem:
Range("C" & intMeterfejlec & ":D" & intMeterfejlec_vege).Select
On Error GoTo hianyzoport:
intPorthol = Selection.Find(What:=strPort, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
If Mid(Cells(intPorthol + 4, 5).Value, 9, 4) <> "UNDF" Then
strPortmap(1, intKovport) = Mid(Cells(intPorthol + 4, 5).Value, 9, 4)
intKovport = intKovport + 1
Else
strPortmap(1, intKovport) = Empty
intKovport = intKovport + 1
End If
hianyzoport:
If Err.Number <> 0 Then
strPortmap(1, intKovport) = "NONE"
intKovport = intKovport + 1
End IfEz egy számlálós ciklus belsejében van és azt csinálja, egy kijelölt tartományon belül megkeres egy értéket (strPort változó) és ettől a cellától meghatározott (sor, oszlop) távolságra lévő cella tartalmának bizonyos részét beleírja egy tömb megfelelő helyére (ha az megfelel bizonyos feltételeknek) Ha nem találja a strPort változót akkor hibára fut és a kérdéses tömbelem "NONE" lesz.
A probléma az, hogy az első hibánál szépen lefut a hibakezelés (elugrik a kód a hianyzoport: cimkére) a második esetben azonban Object variable or With block variable not set (Error 91) hibával kiakad.
Kérdés: miért fut le először jól és miért akad ki ugyanannál a hibánál másodszor?
-
BenJoe80
senior tag
Sziasztok!
Van egy problémám, amit nem tudok Excel 2003-ban megoldani. Adva van egy excel fájl, amiben különféle könyveléseket vezetek, méghozzá lapokra osztva:
- 1. lapfül "Január"
- 2. lapfül "Február
- 3. lapfül "Március"... stb. Na mármost, hogy tudom azt megoldani, hogy ezeken a lapfüleken szereplő adatokból létrehozzak egy éves diagramot (Bevétel/Kiadás), ami maga is egy külön lapon szerepelne. Egy lappal ("Január") ezt megtudtam oldani, de már Februárt, Márciust nem tudtam, hozzáadni.
Főleg nem úgy, hogy a grafikon automatikusan bővüljön, ahogy a könyvelés bővül.
A segítségeket előre is köszönöm!
Megisznak egy deci pálinkát. Miért? "Olyan savam vót, meg köllet innom egy deci pálinkát, aszittem megbolondulok." Aztán megisznak négy liter bort. Miért? "Há' semmi savam nem volt má'!"
-
Delila_1
Topikgazda
válasz m.zmrzlina #17180 üzenetére
Próbáltad lenullázni a hibakódot a hianyzoport végén on error goto 0-val?
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 BenJoe80 #17181 üzenetére
Több tartományból készíts kimutatást. Előtte az egyes lapokon érdemes listává alakítani a táblázataidat az adatok egyik celláján állva Ctrl+r-rel. Több lap adataival még nem próbáltam az automatikus frissítést, de 1 lapnál frissít, ha lista a forrás.
A kimutatással együtt frissül a diagram is.
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 m.zmrzlina #17184 üzenetére
Nézd meg ezt a kis makrót, ami az "azonosító" tartalmú cellát keresi meg az aktív lapon.
Sub azonosito_oszlopa()
Dim C As Range
Set C = ActiveSheet.Cells.Find("azonosító")
If Not C Is Nothing Then
MsgBox "Az azonosító mező a(z) " & C.Column & ". oszlopban van"
Else
MsgBox " Az azonosító mező nem található."
End If
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Caipi
tag
Sziasztok,
Segítséget kérnék a következőben:
Adott Munka2 lap, ahol van 5 oszlopom benne néha értékekkel. Szeretném a Munka1-en figyelni, hogy az adott sor esetében ebben az 5 oszlopban hány db érték (szám) van.
Darab() függvényt terveztem használni, csak a tartomány megadásánál akadtam meg.
Minden sor egyedi azonosítóval ellátott, tehát az adott sorazonosító mind2 munkalapon szerepel, ez alapján kellene áthoznom a Darab()-al az adatot.Köszönöm előre is a tippeket! :-)
-
BenJoe80
senior tag
válasz Delila_1 #17183 üzenetére
Ezt nem értem, hogy gondoltad...
Elindítom a diagram varázslót, kiválasztom a megfelelő diagramot, <Tovább> és itt kéri a "Tartományt". És itt van a gubanc! Egy munkalapon szereplő adatokat ki tudok választani - meg is jelennek. De azt, már nem tudom vele megetetni, hogy a másik munkalapról is hozzáadjak értékeket. Pl.:
Tartomány: =Sheet1!$A$1;Sheet1!$A$3 - ez működik!
De azt, hogy tudom megcsinálni, hogy valahogy így nézzen ki a megjelenítendő tartomány:
Tartomány: =Sheet1!$A$1;Sheet1!$A$3;Sheet2!$A$1;Sheet2!$A$3;Sheet3!$A$1;Sheet3!$A$3
Mert erre mindig azt írja ki, hogy "A beírt képlet hibás". Szóval mit csinálok itt rosszul?
[ Szerkesztve ]
Megisznak egy deci pálinkát. Miért? "Olyan savam vót, meg köllet innom egy deci pálinkát, aszittem megbolondulok." Aztán megisznak négy liter bort. Miért? "Há' semmi savam nem volt má'!"
-
Delila_1
Topikgazda
válasz BenJoe80 #17187 üzenetére
A tartomány rovatban kiválasztod az első tartományt, a Hozzáadás gombbal hozzáadod. Megjelenik a Felvett tartományok között.
A tartománynál kiválasztod a 2. tartományt, hozzáadod, stb. Az utolsó után jöhet a Tovább gomb.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
m.zmrzlina
senior tag
válasz Delila_1 #17185 üzenetére
Ez lett belőle:
Range("C" & intMeterfejlec & ":D" & intMeterfejlec_vege).Select
Set ranPorthol = Selection.Find(What:=strPort, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not ranPorthol Is Nothing Then
If Mid(Cells(ranPorthol.Row + 4, 5).Value, 9, 4) <> "UNDF" Then
strPortmap(1, intKovport) = Mid(Cells(ranPorthol.Row + 4, 5).Value, 9, 4)
intKovport = intKovport + 1
Else
strPortmap(1, intKovport) = Empty
intKovport = intKovport + 1
End If
Else
strPortmap(1, intKovport) = "NONE"
intKovport = intKovport + 1
End IfÉs láss csodát....működik.
Megint köszönöm.
-
Delila_1
Topikgazda
válasz m.zmrzlina #17189 üzenetére
Szívesen.
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
A Munka1 B1 (vagy B2, címsor létezésétől függően) képlete
=DARAB2(INDIREKT("Munka2!"&SOR()&":" & SOR()))-1Szerk.:
A -1 azért kell, hogy a Munka2 lap A oszlopában lévő azonosítót ne számolja bele.[ 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.
-
BenJoe80
senior tag
válasz Delila_1 #17188 üzenetére
Igen, de így csak egyesével veszi fel az adatokat. Nekem viszont úgy kellene, hogy a grafikon egész évben, egymás mellett mutassa (Január-December) havonta a:
- Bevételt
- KiadástEhhez, viszont több cellát kell(ene) megadnom tartományértékként, ami egy munkalapról megy is, de nem tudom a többi munkalapon lévő adatokat megnézni hozzáadni.
Megisznak egy deci pálinkát. Miért? "Olyan savam vót, meg köllet innom egy deci pálinkát, aszittem megbolondulok." Aztán megisznak négy liter bort. Miért? "Há' semmi savam nem volt má'!"
-
Caipi
tag
válasz Delila_1 #17192 üzenetére
Próbáltam használni, de valahogy nem lett kerek nekem
Figyelnem kellene a sorazonosítót a Munka1-en és ezt az azonosítót megtalálnom a Munka2-n, majd az adott sorban megnéznem, hogy egy oszloptartományon belül hány számot tartalmazó cellám van.
És itt akadtam meg, mivel gondoltam, hogy megoldható mindez úgy, hogy egy függvényben kezeljem a Munka1-en. :-) -
Delila_1
Topikgazda
válasz BenJoe80 #17193 üzenetére
Akkor vegyél fel egy összesítő lapot, ahova hivatkozással beviszed a 12 lap bevételeit és kiadásait, és ebből készíts diagramot. Mivel az Összesítő lapon a SZUM képletben teljes oszlop szerepel, a frissítés biztosított.
A szerkesztőlécen az Összesítő lap B2 cellájának a képlete látszik.[ 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.
-
Caipi
tag
válasz Delila_1 #17198 üzenetére
Köszönöm szépen!
Egy további kérdés ezzel kapcsolatban. Tudnám függvénnyel kezelni valahogy az oszlop betűjelét is?
Gondolok itt arra, hogy az oszlop 1. cellája egy adott értéket(szót) tartalmaz és az adott szóra keresnék rá valahogy. A vkeres() csak számot ad vissza, tudok valahogy betűjelet is visszakérni? -
Delila_1
Topikgazda
A VKERES függvény is tud bármilyen adatot keresni. Azt hiszem, újra be kellene dobnod egy képet.
Egyébként ha van egy számod, pl. 2, akkor az =karakter(2+64) megadja a B betűt.
Ez abból adódik, hogy az Excel a betűket is számként (ASCII érték) kezeli. Az A karakter ASCII értéke 65.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
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen