- Nothing Phone 2a - semmi nem drága
- Samsung Galaxy Z Fold5 - toldozás-foldozás
- Samsung Galaxy Z Fold3 5G - foldi evolúció
- Az iPhone 15 frissítésgaranciát, a 16 szép rendereket kapott
- iPhone topik
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Hivatalos képen a Samsung hajlíthatók
- Netfone
- Samsung Galaxy A54 - türelemjáték
- Android alkalmazások - szoftver kibeszélő topik
Hirdetés
-
Gyorsabban hozná el az önvezetést Kína
it Engedélyezték a hármas szintű önvezető technológiák nyilvános tesztelését.
-
PC-s demót kap a The Alters
gp A teljes kiadás már konzolokon is elérhető lesz majd, a próbaverziót azonban csak Steamen és Microsoft Store-ban érjük majd el.
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
Mobilarena
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
A felső két sor másolásához a
WSE.Rows(1).Copy WSM.Range("A1") helyett írj WSE.Rows("1:2").Copy WSM.Range("A1")-t.
A WSE.Rows(sor).Copy WSM.Range("A2") helyett pedig WSE.Rows(sor).Copy WSM.Range("A3") legyen.Az ActiveWorkbook.SaveAs Filename:=utvonal & sor & ".xlsx" sor végéről töröld az x-et.
Titok, hogy melyik oszlopból akarod venni a fájlok címét? Ha igen, akkor találd ki a mentés módját, nem tudok segíteni nélküle.
[ 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.
-
psg5
veterán
válasz Delila_1 #20396 üzenetére
Összefoglalva:
Tökéletesen működik.
Kijavítottam xlxs-et sima xlx-re, így már megnyitható.Akkor ami kérdés még vissza lenne:
1. Első két sor is fixen kellene az eredetiből.
2. mentési név az egyik oszlopban szereplő számok, eléjük egy nullát írva. (A oszlopból lennének a mentési elnevezések)SZERKESZTVE:Közben olvasom a válaszaidat, így már csak a 2. kérdés van vissza
Köszi!
[ Szerkesztve ]
F.K.T.
-
Delila_1
Topikgazda
Végre elárultad a nagy titkot! ...de miért kellett erre többször külön rákérdezni?!
Figyelj! Nem xlx, hanem xls a kiterjesztés.
A mentés sora
ActiveWorkbook.SaveAs Filename:=utvonal & sor & ".xlsx"
helyett
ActiveWorkbook.SaveAs Filename:=utvonal & "0" & Cells(sor, "A") & ".xls"Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
psg5
veterán
válasz Delila_1 #20404 üzenetére
Tényleg nem direkt nem írtam le hamarabb. Sorry.
xls-et természetesen elírtam a nagy kapkodásban ami azért történt, mert nagyon kész akartam vele lenni, annyira felcsigázott, hogy van megoldásNagyon-nagyon hálás vagyok a segítségért!
Még annyi, hogy ezzel az utolsó javítással csupán egy "0" elnevezésű fájlt hoz létre.
valamit rosszul írhattam?[ Szerkesztve ]
F.K.T.
-
Delila_1
Topikgazda
Bocsi, én vagyok a hibás. A mentés sora helyesen:
ActiveWorkbook.SaveAs Filename:=utvonal & "0" & WSE.Cells(sor, "A") & ".xls"
Kimaradt az eredeti (WSE) lapra történő hivatkozás.
[ 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.
-
the radish
senior tag
Sziasztok.
Erre van megoldás?
-
Delila_1
Topikgazda
válasz the radish #20380 üzenetére
A második részt a C2-be tedd.
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 Salex1 #20386 üzenetére
A textbox tulajdonságainál add meg a LinkedCell értéknek pl. az L1-et.
Duplaklikk a textboxra, a kódlapon megkapod a change esemény első és utolsó sorát.Egyetlen sort kell közéjük írni:
Selection.AutoFilter Field:=2, Criteria1:=Range("L1") & "*"
Az autoszűrő a textboxba bevitt karakterek szerint szűr. Az első karakter beírására az összes adat látszik, ami azzal a karakterrel kezdődik. A második karakter leütésére a két bevitt karakterrel kezdődő adatok jelennek meg.
[ 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
válasz the radish #20415 üzenetére
Szívesen. Sajnos nem tudok jobbat. A második függvény a B2-re hivatkozzon.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
the radish
senior tag
válasz Delila_1 #20416 üzenetére
Igen, így gondoltam. Nagyon kár, hogy nem lehet egy menetben megoldani, de ne legyünk telhetetlenek. .
+1 kérdés felmerült bennem: Van-e arra lehetőség, hogy hőmérsékleti adatokat importáljak pl. az Accuweather.com-ról, vagy akár az időkép.hu-ról (stb.)?
Pl. A1= mai átlaghőmérséklet
Vagy ez már megint a telhetetlenség jele?
-
xavix13
senior tag
Sziasztok!
Valaki tudna ebben segíteni?
Igazából már kész van szinte az egész egyedül a winrates tábla hiányzik. Annyit módosítanék rajta hogy Ten/Less, Eleven+, Tweleve felosztás helyett nálam 0-3, 4-7, 7+ felosztás volna.
One thing I've learned: if you don't draw first, you don't get to draw at all.
-
Delila_1
Topikgazda
válasz xavix13 #20418 üzenetére
K17
=SZUMHATÖBB($B$5:$B$100;$B$5:$B$100;"<=3";$A$5:$A$100;$J17)L17
=SZUMHATÖBB($B$5:$B$100;$B$5:$B$100;">=4";$B$5:$B$100;"<=7";$A$5:$A$100;$J17)M17
=SZUMHATÖBB($B$5:$B$100;$B$5:$B$100;">7";$A$5:$A$100;$J17)Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
xavix13
senior tag
válasz Delila_1 #20419 üzenetére
Annyi a bökkenője, hogy így most azt mutatja. hogy összesen hány winem volt az adott classal.
Nekem pedig az kéne hogy hányszor játszottam 0-3 közti wines játékot. (Mint a minta táblázatban.)
Tehát ha a táblázatban ilyen játszmáim vannak druiddal hogy: 1-3, 2-3, 1-3, 3-3. Akkor ne az jelenjen meg hogy 7 (a winek összege), hanem hogy 4 (vagyis 4x játszottam, 3 vagy az alatti wines játszmát.)
Remélem nem fogalmaztam túl kacifántosan.[ Szerkesztve ]
One thing I've learned: if you don't draw first, you don't get to draw at all.
-
Delila_1
Topikgazda
válasz xavix13 #20420 üzenetére
Az más.
K17
=DARABHATÖBB($B$5:$B$100;"<=3";$A$5:$A$100;$J17)L17
=DARABHATÖBB($B$5:$B$100;">3";$B$5:$B$100;"<=7";$A$5:$A$100;$J17)M17
=DARABHATÖBB($B$5:$B$100;">7";$A$5:$A$100;$J17)Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
mokus1
addikt
Sziasztok!
2 kérdésem lenne. Egyik hogy egy olyan függvényre, vagy képletre lenne szükségem amivel súlyozott átlagot tudok számolni. Pl: egyik cellában egy 5-ös szerepel ez 60%-ban számít a másikban egy 4-es és ez viszont csak 40%-ban. Mi erre a megoldás?
Illetve van egy excel dokumentum amiből majd szeretném a képleteket a többi munkalapra másolni az értékek megtartásával.
Köszönöm -
xavix13
senior tag
válasz Delila_1 #20424 üzenetére
Még egy utolsó finomítást kérdezhetek?
Most, hogy kitöröltem a próba adatokat, a win rates táblában, az átlagok helyére, sok helyre nulla került, mivel ugye még nem játszottam azokkal.
Meglehet valahogy oldani, hogy a nullákat figyelmen kívül hagyja az átlagból?Itt lehet látni. Az átlagnak itt kerek 4-nek kéne lennie nem pedig 0,89-nek.
A Totals táblában megtudtam úgy oldani, hogy nem átlag fv. használtam, hanem az össz.win-t osztottam az össz.win+össz.lose összegével.
Így:
Viszont ezt a Win Rates-nél nem tudom hogy lehetne megcsinálni. Ötlet?
One thing I've learned: if you don't draw first, you don't get to draw at all.
-
Mutt
aktív tag
válasz the radish #20380 üzenetére
Hello,
Meg lehet azt oldani, hogy a helyette függvénnyel két, vagy több szót is kicseréljek egy menetben?
Saját függvénnyel megoldható.
Public Function Cserek(bemenet, ParamArray keres())
Dim i As Long
Cserek = bemenet
For i = LBound(keres) To UBound(keres) Step 2
Cserek = WorksheetFunction.Substitute(Cserek, keres(i), keres(i + 1))
Next i
End Function.Használata: =Cserek("56 alma 64 banán";"alma";"magyar";"banán";"déli")
Termeszetesen cella hivatkozásokat is használhatsz. Ha páratlanul adod meg a szövegpárokat, akkor hibára fut!
ü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
válasz mokus1 #20422 üzenetére
Hello,
...amivel súlyozott átlagot tudok számolni...
SZORZATÖSSZEG és a SZUM függvények kellenek neked.
pl. számok az A-oszlopban, szorzók a B-ben
=SZORZATÖSSZEG(A:A;B:B)/SZUM(B:B)...egy excel dokumentum amiből majd szeretném a képleteket a többi munkalapra másolni az értékek megtartásával....
A cella értéke a képletben használt változóktól függ, ha a változók rögzítve vannak akkor a képlet másolásakor a rögzített értékek nem változnak. Ha munkalapok között másolsz, akkor a cella hivatkozáskor a munkalap nevét is add meg.
pl.=SZORZATÖSSZEG(Munka1!A:A;B:B) képlet esetén mindig a munka1 lap A-oszlopának elemeit szorozza meg az aktuális lap B-oszlopával.Ha arra gondoltál, hogy a képlet eredményét akarod egy másik lapra másolni, akkor a beillesztés helyett az irányított beillesztés kell. Értékek beillesztése opció, a képleted ilyenkor elveszik a cél cellában.
ü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
válasz Melack #20397 üzenetére
Hello,
Excel2010...alapból külön "ablakba" nyissa a filokat, és ne egy programba...
Ezt a fícsört nem lehet kikapcsolni. Excel2013-ban viszont megtalálható Single Document Interface névvel.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
r4z
nagyúr
Sziasztok!
Hogyan lehet kiíratni az n-edik leggyakoribb cellatartalmat egy adattömbből?
Adott a C2:C999 tartomány, változó hosszúságú stringeket tartalmaz. Egy másik oszlopba (mondjuk M) szeretném kiírni sorban a leggyakoribb cellatartalmakat, valahogy így:|__C__|__M__|
| asd |ertzu|
| asd | qw |
| qw | asd |
| qw |
| qw |
|ertzu|
|ertzu|
|ertzu|
|ertzu|Fontos lenne, hogy dinamikusan változzon, mint például a KICSI és a NAGY függvény eredménye, ha módosítom az adatokat.
[ Szerkesztve ]
Into the void, into the emptiness, into the place beyond form
-
Mutt
aktív tag
válasz konyi79 #20381 üzenetére
Hello,
Az alábbi CSE képlettel megoldható (vidd be majd Ctrl+Shift+Enter-t nyomsz és kapcsos zárójelbeteszi):
=INDEX(M!K:K;HOL.VAN(MAX(HA(M!F:F=E!B1;M!A:A;-9^99))&"@"&B1;M!A:A&"@"&M!F:F;0))
A működése az alábbi:
1. HA(M!F:F=E!B1;M!A:A;-9^99) rész az M munkalap F oszlopán megy végig ls ahol az E lap B1 cellájával egyezik ott veszi az M lap A oszlopából a sorban található értéket, ha nincs egyezés akkor egy nagyon kicsi számot (-9e99-et) használ. Mivel az eredmény egy halmaz, már itt használni kell a CSE bevitelt.
2. A kapott halmazból a legnagyobb számot keresi meg a MAX(előbbi képlet).
3. HOL.VAN függvény segítségével megkeressük, hogy az A oszlopban hol van az előbb kapott érték.
4. INDEX segítségével a K oszlopban addig a sorig megyünk el, ahol az A-ban a keresett érték van.Javaslom, hogy a gyorsabb számolás miatt ne a teljes oszlopot vizsgáld, hanem csak annyit amibe biztos beleférsz! pl. A:A helyett A$1:A$20000 legyen ha nem vársz 20000-nél több adatot.
ü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
Hello,
Képletekkel nehézkesen oldható meg, de ez nagyjából működik ha Excel2010-ed van.
=INDEX(lista;HOL.VAN(NAGY(GYAKORISÁG(HOL.VAN(lista;lista;0);SOR(lista)-SOR(C2)+1);xxx);GYAKORISÁG(HOL.VAN(lista;lista;0);SOR(lista)-SOR(C2)+1);0))
Ahol
- a lista egy dinamikus tartomány,amelyet a nékezelőben tudsz definiálni az alábbi módon:
=ELTOLÁS(Munka1!$C$2;0;0;DARAB2(Munka1!$C$2:$C$999))
- az xxx pedig az n-edik leggyakoribb kereseztt érték.Azonban a 19478-as hozzászólásban van egy saját függvény, amely sokkal jobban végzi el ezt a feladatot.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
csferke
senior tag
Sziasztok!
PivotTábla => Diagram ??
Lehetséges-e PivotTábla adataiból diagramot készíteni?
Természetesen a Pivot adatai állandóan változnak. "A" oszlop vevők nevei "B" oszlop a hozzájuk tartozó sum számlázott érték. A "B" oszlop alján van GrandTotal. Az A és B oszlop adataiból szeretnék egy kördiagramot készíteni amelyben %-osan mutatná, hogy mely vevőnek hány % lett számlázva a GrandTotal-ból.
Angol Excel 2007köszi
-
Sziasztok!
Sajnos béna vagyok, és nem akar összejönni a dolog, pedig már kaptam itt nagyon nagy segítséget!
Ide írtam, hogy mit szeretnék.
Az előzménybe van a [link]
Mindenkinek nagyon köszönöm, aki megnézi!
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz antikomcsi #20437 üzenetére
Mi nem működik?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
válasz Delila_1 #20440 üzenetére
Az eredeti amit feltöltöttél az jó.
Aztán mindig más nem jó, ahogy próbálkozok.
Vagy nem menti el a többi cella értékeit, az "Adatok" munkalapra, vagy nem üríti a cellákat dátum váltáskor, vagy üríti, de nem rakja vissza, ha visszalépek a dátummal, vagy ezek variációja.
Egyszerűen nem tudom megcsinálni, hogy úgy működjön mint a Tiéd, ha nem csak az F8-21 cellákat szeretném, hanem ugyan úgy a H,J,L,N 8-21 és 24 cellákat is.
-
Delila_1
Topikgazda
válasz antikomcsi #20441 üzenetére
Az If Target ... End If részt másold a jelenlegi End If alá.
A Target.Column értékét a jelenlegi 2-ről írd át az oszlop számára, ahonnan a H, J, stb. oszlopokhoz a dátumot megadod.
A másolatokban ahol F-et találsz, írd át H-ra, J-re, stb.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
gabor222
tag
Sziasztok
Egyetemen Építőmérnöknek tanulok, de Informatika 2 című tárgy alatt a VBA-val foglalkozunk.
Olyan kérdésem lenne, hogy ezt a feladatot, hogyan kellene megoldani ?
"Írjon szubrutint az alábbi probléma megoldására.
Hány olyan háromjegyű pozitív egész szám van, amelyre a következő két állítás mindegyike igaz?
1. A százas helyi értéken 8 áll.
2. Az egyes helyi értéken nem a 7 áll."Köszi
-
Delila_1
Topikgazda
válasz gabor222 #20443 üzenetére
Egy megoldás a sok közül:
Sub nyolcszac()
Dim sor As Integer, db As Integer
For sor = 800 To 899
If Right(sor & "", 1) <> "7" Then db = db + 1
Next
Range("A1") = db
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.
-
válasz Delila_1 #20442 üzenetére
Köszönöm, próbálkozom.
Így azt csinálja, hogy a H cellák értékeit menti az "Adatok"-ra, az F cellákat nem.
Aztán ha dátumot váltok az F cellák tűnnek e,l a H cellák maradnak, ha pedig visszaváltok ugyan arra a dátumra, a H cellák értékei, amik az Adat részen vannak kerülnek az F cellákba.
Most már ott tartok, hogy jutalmat ajánlok fel a megoldásért.
-
Delila_1
Topikgazda
válasz antikomcsi #20445 üzenetére
Küldd el a füzetedet, privátban megadom a címet.
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
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Office Professional Plus 2013, 2016, 2019, 2021 RETAIL licenckulcsok - MEGA Akció!
- Big Box PC játékok
- Windows 7 Home Premium, Pro, Ultimate és Windows 8, 8.1 Pro licenckulcsok 64, 32 bit - MEGA Akció!
- Dragon's Dogma 2 Steam kulcs
- Steam kulcs turkáló :: Friss Excel lista 1200+ játékkal :: Közte VR, AAA és indie címek olcsón!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs