-
Fototrend
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
Az L vegyes értékeiből dátumot, ill. pontot hoz létre az M oszlopban:
Dim usor As Long
usor = Range("L" & Rows.Count).End(xlUp).Row
With Range("M2:M" & usor)
.FormulaR1C1 = "=IFERROR(DATEVALUE(MID(RC[-1],3,10)),""."")"
.Copy
.PasteSpecial xlPasteValues
.NumberFormat = "m/d/yyyy"
End WithProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Mutt
aktív tag
Szia,
Szeretném egy adott csapat 6 utolsó hazai meccsén a hazai csapat által rúgott gólok számát összegezni.
Remélem Excel 2010 vagy frissebb verziód van, mert akkor ez a képlet működni fog (az első 1000 sorra, ha többed van akkor nyugodtan terjeszd ki a tartományt, de teljes oszlopra nem fog működni):
=SZORZATÖSSZEG(($S$2:$S$1000=$X$2)*(SOR($S$2:$S$1000)>=MIN(HAHIBA(ÖSSZESÍT(14;6;SOR($S$2:$S$1000)/($S$2:$S$1000=$X$2);{1;2;3;4;5;6});2^99)))*($T$2:$T$1000))
Hogy működik?
1. A csak Excel 2010-től elérhető ÖSSZESÍT (AGGREGATE) függvénnyel megkeressük, hogy az X2 cellában található csapat mely sorokban van az S-oszlopban és abból a 6 legnagyobb értéket visszakérjük.
Pl. AS Roma esetén 24 és 4-es sorokat fogjuk megkapni a mutatott minta alapján.2. Az előbb kapott eredmény alapján tudjuk már, hogy a 4-es sortól lefelé akárhol fordul elő az AS Roma az az utolsó 6 meccsét fogja jelenteni. Ezért van az ÖSSZESÍT egy MIN függvénybe téve, illetve ha nincs 6 meccse akkor egy HAHIBA függvénnyel ezt is kezeljük.
3. Ezek után már csak összegeznünk kell azokakat a sorokat, ahol AS Roma van az S oszlopoban és a sor száma nagyobb vagy egyenlő mint a 2-es lépésben kapott sorszám. A SZORZATÖSSZEG (SUMPRODUCT) tud ebben segíteni.
üdv
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
Szia,
... függvénnyel(B1) meg szeretném számoltatni, hogy az A-oszlopban mennyi egyedi (hány fajta) szám van ...
Ma SZORZATÖSSZEG napom van, B1 képlete:
=SZORZATÖSSZEG(1/DARABTELI(A2:A16;A2:A16))
A tartományt mindig igazítanod kell a képletben, vagy egy dinamikus tartományra kell cserélned.
Office 365 és Google Táblázatok esetén pedig van már UNIQUE (EGYEDI?) függvény is, amit egy COUNT (DARAB) függvénybe kell rakni.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
oke
senior tag
válasz Delila_1 #40901 üzenetére
Köszönöm, a kitöltés így már működik, az eredeti képlethalmazból most már csak ezt kellene hozzáigazítani:
'Képlet N2-től N alsó sorig
Range("N2:N" & usor).FormulaR1C1 = _
"=IF(RC[-1]<TODAY(),""Régebbi"",IF(RC[-1]=TODAY(),"" Mai"",""Jövőbeni""))"Most a "." esetén a Jövőbeni értéket rakja hozzá az M oszlopban, rá lehetne bírni, hogy a Régebbi-t írja?
-
visit
tag
Szeretném egy munkalap adott oszlopaiban szereplő számokat összeadni az oszlop alatti cellában, az első üres sorban. Ezt egérrel könnyen kijelölhetem, de ez egy makró részeként kellene, és nem mindig ugyanannyi sorból áll a munkalap. Tudna valaki segíteni?
Köszönöm! -
Mutt
aktív tag
Szia,
... munkalap adott oszlopaiban szereplő számokat összeadni az oszlop alatti cellában, az első üres sorban...
Ehhez nem kell VBA. Alakítsd át táblázattá a tartományt és be tudod állítani, hogy a táblázat utolsó sorában legyen összegzés vagy más.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Zola007
veterán
valamiért nem működik az alábbi array formulám Excel 2013 alatt:
=AB.SZUM(D7:Z49;"darab";{"Készlet";"abc123"})
Készlet oszlopból akarom az összes XY termék "darab" oszloban lévő értékét összeadni
Korábbi táblázatból másoltam, szélső kapcsosokat ctrl-shift-enterrel raktam be, a belsőket beírtam.
Mi lehet a gond?[ Szerkesztve ]
Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
Pakliman
tag
Szia!
Az utolsó használt cella egy adott oszlopban:
Worksheets("Munkalap_Neve").Cells(Worksheets("Munkalap_Neve").Cells.Rows.Count, oszlop_száma).End(xlUp).Row
(AWorksheets("Munkalap_Neve").
elhagyható, ha nem egy konkrét munkalapon, hanem az éppen aktívon akarod futtatni a makrót.)
pl.:Sub x()
Dim us As Long
Dim o As Long
o = 1
us = Cells(Cells.Rows.Count, o).End(xlUp).Row
Cells(us + 1, o) = Application.Sum(Range(Cells(2, o), Cells(us, o)))
End SubKellemes további kísérletezést
[ Szerkesztve ]
-
Zola007
veterán
válasz #05304832 #40914 üzenetére
ha a mező vagy rekord dátumra van formázva, akkor kellene lennie egy naptár ikonnak valahol a képernyőn
ha arra kattintasz, a kiválasztott dátumot beilleszti
másik megoldás, hogy virtuális teljes billentyűzetet használsz, amin tudsz billentyűkombinációt beütni, ezek a Ctrl és pontosvessző vagy Ctrl és nulla kombinációja szúrja be az aktuális dátumot
harmadik verzió, hogy valamilyen költségnyilvántartó programot használsz, store-ból letölthető többféle is, aminek akár van online vagy PC verziója isMʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
Capella
senior tag
válasz #05304832 #40914 üzenetére
Én ezt a makrót használom a mai dátum beszúrására. Csináltam hozzá egy ikont a gyorselérési eszköztárra, így egérrel is gyorsan beszúrható a kívánt cellába.
Sub Ma()
ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub[ Szerkesztve ]
-
Capella
senior tag
válasz #05304832 #40918 üzenetére
Ezzel, illetve a függvénnyel az a gond, hogy az változó értéket ad. Mondjuk automatikus dátumozásnál meg pont ez lenne a jó.
Tehát ha nem kézzel akarod beírni fixen a mai dátumot, hanem függvénnyel, akkor magadnak kellene elvégezni majd a cellába az érték beillesztését.
A makróm pont ezt csinálta, és simán makrórögzítéssel készült.
Ha nem tudsz makrót használni, az gáz, mert így egyszerűbbnek tűnik simán és direktben bepötyögni. -
Capella
senior tag
válasz #05304832 #40921 üzenetére
Ha az egyik cellába írt képlettel megváltoztatod egy másik cellába írt képlet eredményét, attól még mindkét cellában képlet lesz. A MA() függvény értéke pedig változni fog, ha egy másik napon nyitod meg a munkafüzetet.
Akkor a pedig a képlet, ha lenne egyáltalán a célodnak megfelelő, a MA() függvény aktuális értékével számolna.
Olyan képletet, hogy egy változó értékből, képletből fixet csinálna, én nem tudok. Ami neked kellene, az az irányított beillesztés érték beillesztése, ami nem képlet. Ha nem tudsz makrót használni, az gáz, mert automatizálni nem tudod, csak magad elvégezni.A másik felvetésre, az egy dolog, hogy mi jelenik meg egy cellában, ezen lehet változtatni, a lényeg a cella tartalmának a valódi értéke.
A dátum számolása a 0 értéktől indul, megjelenítve 1900.01.00-tól kezdődik, tehát a mai nap 2019.04.27 értéke 43582.
Ha egy éééé.hh.nn formátumú cellába 190427-et írsz, akkor a cella értéke pont ennyi lesz, megjeleníteni viszont a 2421.05.14 dátumot fogja.
Ha a billentyűzetről a 19-4-27 vagy a 19.4.27 adatot viszed be, akkor lesz a megjelenítés a mai dátum 2019.04.27, és a cella értéke is 43582. Az Excel kitalálta, hogy dátumot akartál beírni, és eszerint korrigált. -
Zola007
veterán
Ez nem sima 2 soros eredménytábla
tehát az AB.SZUM-mal számolt tábla első oszlopában a keresendő kritérium nem közvetlenül az oszlopfelirat alatt található, hanem mondjuk 17 sorral lentebb, tehát 2db, egymással nem szomszédos kritériumotkell megadnom, erre kellene a tömb.[ Szerkesztve ]
Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
Zola007
veterán
Konkrétat nem, mert céges, de ez a képlet másik táblában működött, azért nem értem hogy itt miért nem
=AB.SZUM($A$2:$Y$50;"darab";{"Termék";"XY"})mindegy, megoldottam szum(ha()) függvénnyel
=SZUM(HA($A$2:$Y$50=$K3;$P$2:$P$50;0))[ Szerkesztve ]
Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
Zola007
veterán
Tudtok egyébként ajánlani jó Excel online kurzust?
valami Udemy és társai vonal érdekelne, ami megfizethető dollárban vagy sávszélességbenMʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
Pakliman
tag
válasz Zola007 #40932 üzenetére
[Egy példa...]
Bár ez inkább a VBA része...
[Vagy ez...][ Szerkesztve ]
-
csferke
senior tag
Sziasztok!
Dátum bevitellel kapcsolatban, én ezt használom Pop-up Calendar
Igaz nem tudom, hogy iOS-on működik-e.[ Szerkesztve ]
-
bartucz911
tag
Sziasztok
Egy függvénnyel kapcsolatban szeretném segítségeteket kérni.
Van egy oszlop adatom, csak random számok 1-99ig. Minden szám érték mellé szeretném kiirtani azt hogy az oszlopban utána következő számok közül mikor talál ugyanolyat értéket. Viszont ezt úgy szeretném hogy bővítse a tartományt mindig a következő számmal. Tehát nézze meg hogy a következő szám ugyanaz e, és ha nem akkor a rá következő számhoz már nézze hozzá az eddig vizsgált számokat is hogy van e eggyezés. És a kiirandó szám amit a függvény kiszámol az az lenne hogy hány lépés találnia egy hasonlót.
Pl.
63,. 4 lépés mire a következőkben talál egyezést (2)
2, 3 lépés (2)
5. 5 lépés (25)
25. 4 lépés (25)
2
10
43
25
5 -
oke
senior tag
Sziasztok!
Van az alábbi makróm:
Sub hozzarendeles()
Dim sor As Long
sor = Range("B" & Rows.Count).End(xlUp).Row
Range("e2").Select
Application.CutCopyMode = False
'Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],összerendelés!C[-4]:C[-3],2,0)"
Columns("e:e").EntireColumn.AutoFit
Selection.AutoFill Destination:=Range("e2:e" & sor)
End SubGyakorlatilag egy Fkeres, mely egy másik fülről veszi a hozzárendeléseket. Viszont több helyen nem talál egyezést, emiatt értelemszerűen "#HIÁNYZIK" kerül be az aktuális cellába. Van e arra lehetőség, hogy ha nem talál egyezést, akkor a "B" oszlop adott sorának értékét rakja be, ne HIÁNYZIK-ot ?
Itt egy mintafájl:
[link] -
Fferi50
őstag
Szia!
Verziófüggően - 2007 és magasabban - működik az IFERROR (HAHIBÁS) függvény, ezt kell használnod:
=IFERROR(VLOOKUP(RC[-1],összerendelés!C[-4]:C[-3],2,0),RC[-3]"
azaz a függvény második részébe - amit hiba esetén használ, a hiba esetén szükséges kifejezést írod.Üdv.
[ Szerkesztve ]
-
Mutt
aktív tag
válasz bartucz911 #40935 üzenetére
Szia,
Lehet, hogy rosszul értelmezem a feladatot, mert a mintának megadott sorozatból nem jönnek ki az eredmények, de itt egy változat arra, hogy keressük meg hogy hány cellával később található meg ugyanazon szám.
Ha Excel 2010-ed van legalább, akkor az ÖSSZESÍT (AGGREGATE) függvény tud segíteni, a képlet B2-ben:
=HAHIBA(ÖSSZESÍT(15;6;SOR(szamok)/((szamok=A2)*(SOR(szamok)>=SOR()+1));1)-SOR();"")
Ha régebbi, akkor egy tömb függvény:
=HAHIBA(HOL.VAN(1;ELŐJEL((szamok=A2)*(SOR(szamok)>=SOR()+1)*SOR(szamok));0)-SOR()+1;"")
A feladathoz létrehoztam a névkezelőben egy dinamikus tartományt "szamok" névvel, a képlete:
=ELTOLÁS(Sheet1!$A$2;;;DARAB(Sheet1!$A:$A))
Erre csak akkor van szükséged, ha nem tudod előre hány sorban lesz számok.
A végén pedig cella formázással adom az eredményhez a "lépés" szöveget. A formázásnak ezt kell megadni:
[>0]#" lépés";;;
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
visit
tag
Sziasztok!
Szeretnék egy inputboxból beolvastatni egy dátum értéket. (30.04.2019)
Azt szeretném, hogy mindaddig kérje be újból és újból, amíg az nem a megfelelő fenti forma, vagy netán betűk vagy egyéb karakterek is vannak benne.
A segítséget köszönöm!
(Excel 2010 64bit) -
Delila_1
Topikgazda
Egyszerűbb lenne, ha telepítenéd a naptár vezérlőt, de itt egy ellenőrző makró. A (végül) bevitt dátumot az A1 cellába írja be.
Sub Dat_ellenorzes()
Dim kelt As String
kelt = Application.InputBox("Add meg dátumot", "Dátum bekérése", , , , , , 2)
'Ellenőrzés
'Teljes hossz
If Len(kelt) <> 10 Then GoTo Hiba
'Pontok helye
If Mid(kelt, 3, 1) <> "." Then GoTo Hiba 'nap
If Mid(kelt, 6, 1) <> "." Then GoTo Hiba 'hónap
'Szám-e
If Not IsNumeric(Left(kelt, 2)) Then GoTo Hiba 'nap
If Not IsNumeric(Mid(kelt, 4, 2)) Then GoTo Hiba 'hónap
If Not IsNumeric(Right(kelt, 4)) Then GoTo Hiba 'év
'Számok helyessége
If Left(kelt, 2) > "31" Then GoTo Hiba 'nap
If Mid(kelt, 4, 2) > "12" Then GoTo Hiba 'hónap
Select Case Mid(kelt, 4, 2) 'hónap
Case "02" 'február
If Right(kelt, 4) / 4 <> Int(Right(kelt, 4) / 4) And Left(kelt, 2) > 28 Then GoTo Hiba
Case "04", "06", "09", "11" '30 napos hónapok
If Left(kelt, 2) > 30 Then GoTo Hiba
End Select
If Right(kelt, 4) / 4 = Int(Right(kelt, 4) / 4) And Mid(kelt, 4, 2) = "02" _
And Left(kelt, 2) > 29 Then GoTo Hiba 'szökőév február
Range("A1") = CDate(kelt)
Exit Sub
Hiba:
Dat_ellenorzes
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.
-
visit
tag
Nem is hallottam róla. De most elolvasom.
Kb. 2 hete kezdtem nézegetni az excelt, és Pakliman hathatós segítsége kapcsán egyre jobban érdekel, és tetszik.Akkor is fog futni a makró, ha egy másik gépre viszem azt a fájlt, amiben ez a makró van? Mert azon a gépen biztosan nincsenek ilyen "valamik" bejelölve, vagy telepítve.
[ Szerkesztve ]
-
Zola007
veterán
-
ntamas97
csendes tag
Sziasztok!
Excel 2016-ban egy kérdőívre adott válaszokat szeretném megszámolni.
A problémám, hogy egy cellában több érték van megadva, a német autómárkák. Itt egy kép róla:Tehát ezen cellákban szeretném megszámolni az előforduló márkákat (pl. Opel van 60, BMW 58)
Van erre valamilyen képlet, vagy csak egyesével tudom megszámolni?
Köszönöm előre is választ!
Új hozzászólás Aktív témák
- Gaming notebook topik
- Mini-ITX
- Robot fűnyírók
- A régi node-okra koncentrál a szankciók miatt Kína
- Politika
- Itt az első kép a 2024-es Nokia 3210-ről
- Telekom mobilszolgáltatások
- Egészen nagy teljesítményspektrumon fedné le a mobil piacot az AMD
- Sony MILC fényképezőgépcsalád
- Kerékpárosok, bringások ide!
- További aktív témák...
- Vírusirtó, Antivirus VPN kulcsok
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig