-
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
-
pentium4
senior tag
sajna naiv voltam picit és nem irtam le a teljes képet, de ezzel így nem müködik
mivel a feltétel az hogy a cellában lévő tartalom T betüvel kezdődik e.
és mivel 1 naphoz 2 oszlop tartozik, viszont az alsó érték már egyesitett cellába van, ez neheziti a dolgot, valamint csak olyan fordulhat elő hogy vagy mind2 oszlop T vel ezdődik vagy egyik se, viszont ha T vel akkor a lenti értéket nem kell nem számolhatja duplán
P4 -
fila
senior tag
Sziasztok!
Egy kis segítségre lenne szükségem.
Néhány oszlop tele van számokkal egy-egy munkalapon
- ha 3 számjegygyből áll, nincs probléma, számformátumként van,
- viszont ha több számjegyből áll, akkor szövegként értelmezi. Az ezresek után van egy "szóköz": 4 564, vagy 54 654.Át kellene alakítanom szám formátumúvá.
Ez csak akkor tudom megtenni, ha a szóközt kitörlöm manuálisan. Több ezer adatnál, sok munkafüzetben hetekig tartana.Van rá egyszerűbb mód?
Pls.Köszönöm előre is a segítséget
5% kedvezmény kód minden rendelésre. iherb.com: ZCD546
-
Delila_1
Topikgazda
A csere funkcióval (Ctrl+h) cseréld a szóközöket semmire, majd a kigyomlált értékeket szorozd fel 1-gyel a következő módon. Egy üres cellába beírsz egy 1-est, amit másolsz Ctrl+c-vel. Kijelölöd a (még most is) szövegeket tartalmazó tartományt. Irányított beillesztés, a Műveletek csoportban jelöld be a szorzást. Az 1-est törölheted.
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
Valóban nem cseréli. D2 képlete legyen
=HA(HOSSZ(C2)>3;(BAL(C2;2)&JOBB(C2;3))*1;C2)
Ezt másold le, ameddig kell, majd újra másold a D oszlopot, irányított beillesztés, értékként.
A C oszlopot törölheted.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Sasos
senior tag
Sziasztok!
Adatokat kellene egymás mellé rendeznem valahogy...
A táblázat:
L oszlop: minden sorban adat.
M-Q oszlopok: adatok össze-vissza, hol van, hol nincs.
Úgy kéne rendeznem, hogy ne legyenek üres cellák az adatok között (csak mögötte az adott tömbön belül).
Például: ha L után a z M és N oszlopban nincs adat, de az O ban van, akkor annak át kéne kerülnie az M oszlopba.
~20k sorom van és a táblázat AQ oszlopig tart. Ebben vannak oszlop tömbök amiket rendezni kellene.Előre is köszönöm.
-
Pakliman
tag
Egy lehetséges megoldás:
Sub Makró1()
Dim us As Long 'utolsó sor
Dim sor As Long
Dim osz As Long
Dim odb As Long 'figyelendő oszlopok száma
Dim nüdb As Long 'nem üres cellák a sorban
Dim ü As Long 'hány oszlopra van a következő nem üres cella
Dim t
t = Timer
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
'21121 sor
'soronként átlag 1,4 db üres cella
'Proci: Ryzen 5 2600
'16GB RAM
'Futási idő: 9,84 másodperc
us = Columns("L").Rows(Cells.Rows.Count).End(xlUp).Row
odb = Range(Columns("L"), Columns("Q")).Columns.Count
For sor = 1 To us
nüdb = Application.CountIf(Range(Cells(sor, "L"), Cells(sor, "Q")), "<>")
If nüdb < odb Then
For osz = Columns("L").Column + 1 To Columns("Q").Column - 1
If IsEmpty(Cells(sor, osz)) Then
If Application.CountIf(Range(Cells(sor, osz + 1), Cells(sor, "Q")), "<>") > 0 Then
'Ha van egyáltalán még átpakolható adat...
'Ezen vizsgálat nélkül 12,2 másodpercig fut a 9,84 helyett!!
ü = 1
Do While IsEmpty(Cells(sor, osz + ü)) And (osz + ü <= Columns("Q").Column - 1)
ü = ü + 1
Loop
Cells(sor, osz) = Cells(sor, osz + ü)
Cells(sor, osz + ü).ClearContents
Else
Exit For
End If
End If
Next osz
End If
Next sor
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
Debug.Print Round(Timer - t, 2)
End SubA futás ideje nagymértékben függ az üres cellák számától
[ Szerkesztve ]
-
3DFan
aktív tag
Képlet eredménye a cellában 0, F9-el vizsgálva viszont a helyes eredményt mutatja. Mi okozhatja ezt?
-
bucihost
senior tag
Sziasztok!
Adott 2 excel tábla. Egyikben 2 oszlop(EAN , Cikkszám), másikban 1 (EAN).
Az első táblán az ean kódok külön sorokban vannak, viszont a 2 es táblán egy sorban van több is (ugyan ahhoz a termékhez tartozik).
Hogyan tudnám a 2-es táblán megkeresni az 1-es táblán szereplő eanokat és mellé írni a cikkszámokat? próbáltam szövegből oszlopokkal szétszedni, de nem jó mert akkor levágja a 0-t az enal elejéről... -
ny.janos
tag
válasz bucihost #42523 üzenetére
Szia!
Ha jól értem azt, hogy a 2-es tábládban egy adott cellában bár több EAN kód is szerepel egymás mellett, de azok valójában ugyanazt a terméket takarják és külön-külön bármelyik kód megtalálható az 1-es táblában a hozzá tartozó cikkszámmal együtt, akkor (feltételezve, hogy az 1-es tábládban az EAN kódok szövegként vannak formázva) a 2-es tábládban az
=FKERES(BAL(A2;13);Munka1!$A$2:$B$5;2;0)
képletet használhatod, ahol:
- A2 az EAN kódot (kódokat) tartalmazza, melyek hossza 13 karakter
- az EAN kódokat és cikkszámokat tartalmazó felsorolás a Munka1 munkalap A és B oszlopaiban található, melyekből az A oszlop tartalmazza az EAN kódokat, B a cikkszámokat. -
visit
tag
Üdv!
Megnyitom az excelt, az A1-es cella értéke legyen mondjuk 10.
Megoldható-e, hogy minden nap automatikusan adjon hozzá egy adott számot. Mondjuk 2,5-öt.
így, ha 3 nap múlva nyitom meg ismét, akkor az A1-es cellában a 10+(3*2,5)=17,5-ös érték legyen?
Köszönöm a választ. -
ny.janos
tag
Szia!
Kihasználhatod a dátum azon tulajdonságát, hogy azt az excel valójában egy számként kezeli úgy, hogy az 1 szám jelenti 1900.01.01-jét, onnantól minden egyes nappal növekszik ez az érték. Mivel 2019.12.16-e a sorban a 43814. dátum, így alkalmazhatod A1-ben a következő képletet:
=10+(MA()-43815)*2,5
[ Szerkesztve ]
-
ny.janos
tag
válasz bucihost #42523 üzenetére
Esetleg tartalmazhat hasznos információt számodra ez a leírás.
-
Fecdzo
senior tag
Office 365 excelben arra lettem figyelmes, hogy például a > jelet nem tudom gomb kombinációval előhozni (altgr+y). De a mellette lévő # sem megy. Csak alt kóddal tudom beadni. Magyar billentyűzet magyar win 10 es magyar office 365.
Van erre megoldás? Laptopon még alt kóddal sem tudom behozni. De wordben minden rendben működik.
fulekitrading.wordpress.com
-
PeLa87
aktív tag
Sziasztok!
Van ez a szép kis függvény ami a végösszeget betűvel is leírja. (ideiglenes költség-számoláshoz használjuk belső körben)
=HELYETTE(HELYETTE(HELYETTE(SOKSZOR(INDEX(n_1&"száz";1+INT(K17/10^8));K17>=10^8)&INDEX(n_t&n_1;1+KÖZÉP(SZÖVEG(K17;"000000000");3;1);1+KÖZÉP(SZÖVEG(K17;"000000000");2;2)/10)&SOKSZOR("millió";K17>=10^6)&HA(ÉS(K17>10^6;MARADÉK(K17;10^6)>0);"-";"")&HA(--JOBB(INT(K17/10^5));INDEX(n_1&"száz";1+JOBB(INT(K17/10^5)));"")&INDEX(n_t&n_1;1+JOBB(INT(K17/10^3));1+KÖZÉP(SZÖVEG(K17;"000000000");5;2)/10)&HA(--KÖZÉP(SZÖVEG(K17;"000000000");4;3);HA(ÉS(K17>2000;MARADÉK(K17;1000)>0);"ezer"&"-";"ezer");"")&HA(--JOBB(INT(K17/10^2));INDEX(n_1&"száz";JOBB(INT(K17/100);1)+1);"")&INDEX(n_t&n_1;JOBB(K17;1)+1;JOBB(INT(K17/10);1)+1);"tizen0";"tíz");"huszon0";"húsz");"0";"")
Na most az lenne a gondom, hogy a K17-be egyszerűen beírom, hogy 1515 akkor ki is írja szépen, hogy egyezerötszáztizenöt. Viszont, ha a K17-be már képletet adok meg, akkor hibát ír ki. pl.: K17 cellába: =K16-K15
Erre lenne valami megoldásotok? :)Megbízható és olcsó tárhely: https://cweb.hu/ugyfeladmin/aff.php?aff=99
-
PeLa87
aktív tag
válasz Delila_1 #42531 üzenetére
Igen, tudom, hogy van ilyen lehetőség is, de a táblát nem csak én használom 1 gépen. Azért lett így megoldva. Csak az is automaizálásra került, hogy összeadja a cellákat és akkor már nem működik sajnos...
Megbízható és olcsó tárhely: https://cweb.hu/ugyfeladmin/aff.php?aff=99
-
PeLa87
aktív tag
válasz Delila_1 #42535 üzenetére
Nem a makró, hanem az én függvényemnél mutat gondot... Írtam, hogy makrót nem szeretnék használni, mivel nem csak én használom a táblázatot. Az a függvény remekül működik amíg pl.: =K16-K15 itt már hibát mutat. De amikor kézzel beírom, hogy 1500 akkor jól működik.
Megbízható és olcsó tárhely: https://cweb.hu/ugyfeladmin/aff.php?aff=99
-
visit
tag
Nem tudok makróval átmásolni cellaértéket egyik munkalapról a másikra, mert a másolandó cellák egyesítve vannak, és a másolat munkalapon pedig máshogy vannak egyesítve.
Worksheets("Munka1").Range("F8:M8").Value= Worksheets("Munka2").Range("F8:H8").Value
Mit lehet tenni?
Csak magát a cellatartalmat szeretném átmásolni máshová.[ Szerkesztve ]
-
-
szente
addikt
Hali!
Ezt szeretném sorba rendezni csapathelyezés szerint, de nem engedi az egyesített cellák miatt. Ha ezt könnyen nem lehet megkerülni, akkor hogy tudnám mondjuk alá felsorolni a csapatneveket helyezés szerint automatikusan? Már hogy ugye ha lejavítom a kapott pontot, akkor magától felcserélődjenek a helyezések.
Köszi! -
Delila_1
Topikgazda
válasz szente #42546 üzenetére
Legegyszerűbben úgy, hogy MEGSZÜNTETED az összevont cellákat. Ehhez csupán 1 plusz oszlop kell a C elé. A címsor állhat 2 sorból, az A és B összevonható az első sorban (ezzel nem dolgozol később), a B2 Csapattag 1, a C2 pedig Csapattag 2.
Többször szerepelt itt a fórumon, hogy bár megengedi az Excel a cellák összevonását, de nem tudja maradéktalanul jól kezelni.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
szente
addikt
válasz Delila_1 #42547 üzenetére
Köszi!
Megcsináltam így, bár nem vagyok maradéktalanul elégedett, mert jobb lett volna ha jól láthatóan meg tudom jeleníteni, hogy melyik csapattag mennyi pontot szerzett. Most csak annyi telt tőlem, hogy a részpontszámokhoz x+y-t(csapattag 1. + csapattag 2. pont) írtam. -
Fferi50
őstag
válasz szente #42548 üzenetére
Szia!
Szerintem cellaformázással megoldható közel hasonlóra. Természetesen a cella egyesítéseket meg kell szüntetni.
A beállítások - speciálisnál leveszed a rácsvonalak megjelenítését (bár úgy látom ez már most is így van).
A csapatok nevét és ahol egyesített cellád volt beírod mindkét sorba a csapattag neve mellé. Az egyiket láthatatlanná teszed a betűformázással.
A cella szegélyeket úgy alakítod ki, hogy a mostani egyesített cellák közé ne kerüljön semmi.
A képeket hozzá tudod "ragasztani" a bal felső cellához, méretezni pedig a kettő magasságára lehet.
Talán így jobban fog tetszeni.
Üdv.[ Szerkesztve ]
Új hozzászólás Aktív témák
- 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.
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!