-
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
-
RAiN91
őstag
Sziasztok,
ismét segítségeteket szeretném kérni.
Runtime error "28"
Out of stack space
hibát kapok, ha rámegyek a Debug feliratra, akkor ezt a sort emeli ki:If (Range("O" & i) = "PLACED" Or Range("O" & i) = "OK") And Range("DC" & i + 1) <> Range("DB" & i + 1) Then
A teljes kód így néz ki:
Private Sub Worksheet_Calculate()
Dim i As Integer
For i = 9 To 69 Step 2
If (Range("O" & i) = "PLACED" Or Range("O" & i) = "OK") And Range("DC" & i + 1) <> Range("DB" & i + 1) Then
Range("DC" & i + 1) = Range("DB" & i + 1)
Range("O" & i).ClearContents
End If
Next
End Sub
Köszönöm a segítséget.
-
Fferi50
őstag
Szia!
Ha még az is túl hosszú lenne, amit az előbb írtam, használhatod ezt a makrót. Mielőtt elindítod, ki kell jelölnöd a formázandó területet.Sub szinez()
Dim rsor As Range, rformat As ColorScale
For Each rsor In Selection.Rows
rsor.FormatConditions.Delete
Set rformat = rsor.FormatConditions.AddColorScale(colorscaletype:=2)
rformat.ColorScaleCriteria(1).FormatColor.Color = vbWhite 'RGB(255, 0, 0)
rformat.ColorScaleCriteria(2).FormatColor.Color = vbRed 'RGB(255, 0, 0)
Next
End Sub
Itt a fehér-piros színátmenet van benne, piros a legmagasabb érték.Üdv.
-
Fferi50
őstag
válasz RAiN91 #42751 üzenetére
Szia!
Feltételezhetően az eseménykezelés ismételt beindulása okozza stack "bedugulását", mivel minden egyes változásnál újra meghívódik.
Az elejébe tegyél egy
Application.EnableEvents=False utasítást, a végére pedig egy Application.EnableEvents=True utasítást, hogy futás közben az eseménykezelés legyen letiltva.Üdv.
-
bucihost
senior tag
Sziasztok!
Adott egy táblázat, amin szűrőt állítok be. A szűrt adatokra hogyan tudok kimutatást csinálni a legegyszerűbben?
-
Torry
addikt
Sziasztok!
Segítsetek kérlek, lassan agybajt kapok.
Feladat:
Ha A2-ben szerepel a "0,5L" szöveg, akkor osssza el C2-t 0,5-el.
Továbbiakban ha 0,33L-t talál akkor 0,33-al ossza, stb, stb, de odáig el sem jutok.
Mit csinálok rosszul?
=HA(SZÁM(SZÖVEG.KERES("0,5L";Munka1!$A2));Munka1!$C2/0,5;"nemtalal")Köszi!
-
Fferi50
őstag
Szia!
Mi a probléma? Mert ha nincs ott a szöveg, akkor a nemtalal -t fogja kiírni.
Ha a 0,33L is ott lehet a cellában, akkor a nemtalal helyére - az induló HA függvény hamis oldalára - egy újabb HA függvényt kell beágyazni, ugyanazzal a módszerrel, és így tovább.
Használd a függvényvarázslót (szerkesztősoron az Fx gomb), az sokat segít.
Üdv.[ Szerkesztve ]
-
escsé
tag
Sziasztok!
Excel táblázatba csatolom a felhőben lévő mappáknak a linkjeit. Az egyik felhő dropbox, a másik mega cloud. A dropboxos link gyorsan megnyílik, míg a mega minden alkalommal 55-70 mp. között késve / késleltetve nyílik meg. Ha a mega-t a könyvjelzők közül nyitom meg a böngészőben, akkor rendes tempóban betölti.
Van ötletetek, hogy miért lehet ez?
-
Darko_addict
őstag
Sziasztok!
Excel 2019-ben szeretnék segítséget kérni függvény megadásához. Mikor régebben rutinosabban kezeltem is hajlamos voltam feleslegesen túlbonyolítani, így viszont, hogy már megkopott a tudás pláne végem van.
Magyarul használom, de angol segítség is jöhet.
Feltöltök egy képet, íme az, amiben segítséget szeretnék kérni:
A Nyertes meccsek átlagos ODDS-a (P oszlop) cellába szeretném összegyűjteni a sikeres fogadások átlagos oddsát, ezt pedig úgy képzeltem el, hogy ha a Nyert-e?-ben (H oszlop) IGEN szerepel, akkor figyelembe veszi az Összodds (F oszlop) cellába írt adatot, ha NEM, akkor fixen az 1-es számot használja szorzásra, mert így semmi nem változik. Ugyanez a Vesztes meccsek átlagos ODDS-a (Q oszlop) cellában is végrehajtandó, csak fordítva. Amennyiben IGEN-t olvas, úgy 1-gyel szorozzon, amennyiben NEM-et, akkor térjen át az Összodds értékére. Gondolom célszerű a HA függvényt az ÁTLAG-gal használni? Bármilyen más működő megoldást is szívesen meghallgatok. Legrosszabb esetben - ha túl bonyolult és nincs időtök segíteni -, marad a kézi bevitel és mindig eggyel több cella értékével szorzom meg manuálisan.Feltöltött táblázat linkje: [kép]
Köszönöm szépen, ha megpróbáltok segíteni.
[ Szerkesztve ]
Don't give up your dreams. Keep sleeping.
-
torrentwarez
csendes tag
válasz Darko_addict #42763 üzenetére
Szia!
Ez lesz az, én is nem rég használom.
=SZUMHATÖBB(G:G;H:H;"Y")/DARABTELI(H:H;"Y")
G oszlop: Odds-ok
H oszlop: "Y" vagy "N" (nyert vagy vesztett)Üdv!
-
Roniroll
csendes tag
Hali!
Volna egy "kis" problémám. Amit nem igazán tudok,hogyan is oldjam meg.A lényeg: Adatokat kellenek kigyűjtenem és összevonnom egy másik lapra. Szumhatöbb-el ez nem is lenne nagy probléma, csakhogy...
C oszlopban vannak a dátumok, növekvő sorban. (Nem minden nap az évben)
D oszlopban pedig a műszakok DE,DU,ÉJ. Ebben a sorrendben, de nem mindig szerepel mindegyik és egy szerepelhet többször is.Arra lenne szükségem, hogy adott dátum és műszaktól egy másikig össze kénne adni az értkékeket a K oszlopban. és így tovább majd kb teljes excel tábla szélességben.
2019.02.03, DE-től 2019.02.05,DU,ig.
Ebben a táblában semmin nem változtathatok, egyáltalán. Mindent máshonnan kell csinálni. (Lényegében ez egy progiból kikért tábla.)A másik problémám, hogy ezekhez tartozik egy (E) oszlop amiben a csoportok vannak. Szét szerettem volna szedni erre is, de van olyan tábla amelyik 5-6 oszlop híján végig éri az excelt Nem igazán van hely így. Erre valami ötlet?
"Nem kívánok sokat csak egy puha ágyat, pár kedves szót és korlátlan hatalmat."
-
3DFan
aktív tag
Oszlop tartalmát meg lehet fordítani, hogy az első cella kerüljön alulra, az alsó pedig felülre? Köszönettel.
-
Delila_1
Topikgazda
Ennél egyszerűbben is lehet. Beírtad a sorszámokat. Állsz a sorszámos oszlopban, nincs semmi kijelölve. A kezdőlap menüsor végén van a Szerkesztés, Rendezés és szűrés. Ott kiválasztod a Rendezés (Z-A) menüpontot.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Darko_addict
őstag
válasz torrentwarez #42764 üzenetére
Szia! Nagyon klassz, hibátlanul működik.
Köszi szépen!Don't give up your dreams. Keep sleeping.
-
oke
senior tag
Sziasztok,
Ebben a szövegben milyen képlettel tudnám megszámolni, hányszor szerepel az Alma szó? Szöveg szétszedés nélkül kellene, ez csak egy példa, ezek a szövegek különböző hosszúságuak lehetnek:
__Alma__Körte__Dinnye__Eper__Alma__Eper__Banán__Alma__
-
sztanozs
veterán
makró+regex
Illetve:
=(LEN(A1)-LEN(SUBSTITUTE(A1;B1;"")))/LEN(B1)
vagy ha case insensitive:=(LEN(A1)-LEN(SUBSTITUTE(UPPER(A1);UPPER(B1);"")))/LEN(B1)
[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
sztanozs
veterán
válasz sztanozs #42773 üzenetére
vagy még rövidebben:
=LEN(SUBSTITUTE(A1;B1;B1&"_"))-LEN(A1)
case insensitive:=LEN(SUBSTITUTE(UPPER(A1);UPPER(B1);B1&"_"))-LEN(A1)
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
3DFan
aktív tag
Sziasztok!
Cellacím sor része megadható számítással, képlettel? Pl. C10 helyett C5+5 vagy Cfüggvény. Köszönettel. -
Delila_1
Topikgazda
Vegyél fel egy új oszlopot (C), ahol a kihúzások számához hozzáadsz egy egynél jóval kisebb számot – B2+SOR()*0,0001 –, és ezt keresed a HOL.VAN függvénnyel.
oke: 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.
-
daddy9
tag
Sziasztok!
Egy komplexebb feladatot szeretnék makró segítségével megoldani, de kicsit elakadtam.
Vannak nyomtatványaim (a példában oklevelek), amiket a tanulók nevével és eredményével töltenék ki.
A feladat az lenne, hogy egy makróval külön-külön tudjam az "ügyes" tanulóknak szánt 2 oklevelet (az alsó táblázat alapján) exportálni PDF-be, és a "jó" tanulóknak az 1 oklevelet.
Természetesen a konkrét felhasználásban nagy jelentősége van annak, hogy külön tudjam ezeket exportálni, csak a példában próbáltam egyszerűsíteni.
Tehát a lényeg az, hogy ha van több "ügyes" fiú tanulóm, akkor egy oklevél munkalapot szeretnék legyártani és azt többször kitöltetni a makróval, majd exportálni, de ennek a megoldásában elakadtam. A "Naplószám" alapján gondolom létre lehetne hozni valamilyen loop-ot, csak ezekhez sajnos nem értek (még).
Nem tudom, hogy mennyire érthető a kérdés a fentiek alapján.
A példához tartozó teszt.xls itt található: https://drive.google.com/open?id=1AWmF1U2jeWShTatBCiTa6sP0znXX6TdB
Minden apró segítséget előre is nagyon köszönök![ Szerkesztve ]
-
sztanozs
veterán
válasz daddy9 #42785 üzenetére
Szerintem erre a Word körlevél bőven elég, nem kell makró, meg ilyenek:
https://support.office.com/hu-hu/article/k%C3%B6rlev%C3%A9l-funkci%C3%B3-haszn%C3%A1lata-a-t%C3%B6meges-e-mailhez-levelekhez-c%C3%ADmk%C3%A9khez-%C3%A9s-bor%C3%ADt%C3%A9kokhoz-f488ed5b-b849-4c11-9cff-932c49474705JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
daddy9
tag
válasz Delila_1 #42787 üzenetére
A C33:E36 tartományban található értékek alapján osztogatom az okleveleket.
Az ügyes lányok pillangós + macis, az ügyes fiúk focis + macis oklevelet, a jók csak focis és pillangóst.(#42786) sztanozs
A leegyszerűsített példára lehet, hogy elég lenne, de nem 2-3 munkalap (nyomtatvány) készülne, hanem 20-25 és nem 4 féle feltétel alapján, hanem több. A példa direkt egyszerűsített, mert a logikájára próbálok rájönni, utána a "tartalommal feltöltést" már intézem. De köszönöm, hogy foglalkoztál vele! -
sztanozs
veterán
válasz daddy9 #42788 üzenetére
Akármennyi féle adat beleadható, ha a template azonos. Sajna Google docs melóhelyen nem jön be, nem tudom mi van az excelben...
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Delila_1
Topikgazda
-
Delila_1
Topikgazda
válasz daddy9 #42788 üzenetére
Közben megadtad a választ arra, hogy ki mikor milyen oklevelet kap. Itt a módosított makró:
Sub Pdf()
Dim sor As Integer, oszlop As Integer, utvonal As String, FN As String
Application.ScreenUpdating = False
oszlop = 3
Do While Cells(4, oszlop) <> ""
utvonal = Cells(24, oszlop)
If Cells(7, oszlop) = "fiú" Then sor = 25 Else sor = 26
FN = Cells(sor, oszlop)
Sheets(Cells(sor, 1)).Select 'lapra állás
With Sheets("Adatbekérő")
Range("A7") = .Cells(6, oszlop) & ", " & .Cells(5, oszlop)
Range("A13") = .Cells(8, oszlop)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=utvonal & FN, _
Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterPublish:=False
If .Cells(9, oszlop) = "Ügyes" Then
Sheets(.Cells(sor + 1, 1)).Select 'lapra állás
If .Cells(7, oszlop) = "fiú" Then sor = sor + 2 Else sor = sor + 1
FN = .Cells(sor, oszlop)
Range("A7") = .Cells(6, oszlop) & ", " & .Cells(5, oszlop)
Range("A13") = .Cells(8, oszlop)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=utvonal & FN, _
Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
End With
Sheets("Adatbekérő").Select
oszlop = oszlop + 1
Loop
Application.ScreenUpdating = True
MsgBox "Az oklevelek el vannak mentve", vbInformation
End Sub[ 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.
-
Delila_1
Topikgazda
-
daddy9
tag
-
Delila_1
Topikgazda
válasz daddy9 #42795 üzenetére
Sebaj! Másold be a makrót a saját füzetedbe, modulba, xlsm-be kell menteni.
A Te füzetedbe írtam a makrót, de már több teszt című fájlom van, ezért más néven mentettem.
Az A25-be 2, A26-ba 3, A27-be 4-et írj.[ 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.
-
Imy
veterán
Melyik az a függvény, ami egy cella szövegéből az első karaktert átmásolja a másik cellába? (Vagy x-edik karakterét) Igazából excel képletet keresek, de jó lenne, ha google táblázatban is benne lenne, mert oda kellene.
Új hozzászólás Aktív témák
- Milyen SSD-t vegyek?
- Robogó, kismotor
- LEGO klub
- Mazda topik
- A Gigabyte is visszaveszi alaplapjainak alapértelmezett tuningját
- Vezetékes FÜLhallgatók
- Hobby rádiós topik
- Háztartási gépek
- A fociról könnyedén, egy baráti társaságban
- Musk szerint már jövőre itt vannak a Tesla Optimus humanoid robotok
- További aktív témák...
- Eladó Steam kulcsok kedvező áron!
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Steames kulcsok jó áron eladóak!
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!