Van egy pl. 5000 soros excel fájlom. Minden sorban számok vannak. És pl. az üres G1 cellába SUM-al összeadom az 5000 sort. Ha legörgetek a 2500. sorhoz, akkor is lássam a G1 cellában lévő számot.

Egyszerűbb rögzíteni az első sort a nézetben. Akkor csak a többi sort görgeti.

http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!

Sorokat és oszlopokat lehet berögzíteni.

http://office.microsoft.com/hu-hu/excel-help/sorok-es-oszlopok-rogzitese-vagy-zarolasa-HP010342542.aspx

[ Szerkesztve ]

Szia DrojDtroll,

Ehhez a témához egy kérdés: Sima ügy felosztom - függőleges osztóval - a nagyméretű táblámat. Szeretném A-tól J-ig a baloldalon görgetni (függőleges irányba), míg K-tól szeretném, ha a tetején (vagy egy tetszőleges ponton) hagyni. Nekem viszont nem görgeti külön, hanem EGYÜTT. Megőrjít. Kell még azon kívül tenni valamit, h felosztom?

Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)

rakd át új ablakba és akkor úgy görgeted ahogy akarod.....

Szia Slashing,

Jah, de akkor meg váltogatni kell két ablak között. Nem jó megoldás. Olyan kell, h egy ablakon belül külön görgethető két nézet...
De, ha Neked sem megy, akkor meg vagyok nyugodva... h nem én nem csináltam meg valamit, amit meg kellene, h úgy működjön.

Jó éjszakát...

Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)

Most nem a kukacoskodás miatt de mi a különbség ha egy ablakon bellül kettéosztod és a jobb oldala mindig ugyan azt mutatja és aközött hogy két külön ablakban nézed ugyanazt és a jobb oldala mindig ugyan az? Illetve ha egy ablakban valahogy mégis kettéosztod és fix a jobb oldala de már nincs szükséged rá akkor ugyan úgy kattingatnod(és amúgy is kattingatnod kell) kell szóval szerintem simán jó megoldás a két ablak.

Én elég sokszor alkalmazom sőt néha 3 ablakot nézek, jobb oldalon kettőt meg bal oldalon egyet. Igaz 1920x1200-as felbontásban és 24-es monitoron nézem ami megkönnyíti azért a munkát és a +120pixel plusz az baromi sokat tud számítani, igaz filmnézésnél meg hátrány mert a 16:9-nél is van fekete sáv nem csak a 2.39:1-nél

Nem tartom kizártnak hogy van valamilyen elvetemült megoldás rá de, hogy őszinte legyek még ötlet szintjén sem merült fel bennem, sosem. Kézenfekvő volt hogy két ablakot használok. Az mondjuk már nekem is eszembe jutott hogy milyen jó lenne egy Tab-os megoldás az excel-ben kvázi úgy mint a böngészőkben...

[ Szerkesztve ]

sziasztok!

segítségre lenne szükségem, egész pontosan abban, hogy szeretnék olyant létrehozni, hogy:

"A1, A2, A3, stb..." oszlopban kiírva adott szöveg, a "B1, B2, B3, stb..." oszlopban pedig egy legördülő menüt szeretnék ami csak annyit tartalmazna, hogy IGEN/NEM és annak megfelelően ahogy ezt kijelölöm generálna egy szöveget a táblázat aljára. nem tudom mennyire ördöngösség ez, ha esetleg van valaki, aki tudna segíteni ebben az jelezzen légy szíves. nagyon megköszönném. megkönnyítené kicsit a munkámat.

sziasztok!

van arra esetleg ötletetek, hogy pontdiagram-típus esetén hogyan jeleníthető meg nem növekvő számsor az x-tengely értékeiként. ugye évváltás történt és heti adatokat szeretnék folytonosan megjeleníteni (50, 51, 52, 1, 2, ...), de nem akarja az igazságot az excel. oszlopdiagram esetén nincs ilyen problémám.

köszi a segítséget!

"a jövötsajnos nemlehet tudni csakhamárotvagy deakormegmár azajelen"

Néhány cella méretig jó lehet ez a Móricka megoldás:

=ÖSSZEFŰZ(HA(B1="igen";A1;"");HA(B2="igen";A2;"");HA(B3="igen";A3;"");HA(B4="igen";A4;"");HA(B5="igen";A5;""))

Pontosabb válaszhoz jó lenne többet tudni a feladatról.

Szerintetek ez miért szál el hibával ahol értéket akarok adni a tömb elemnek?

Dim Nap As Integer
Dim Unnep(1 To 31) As String

Nap = 1
While Nap < 31
Unnep(Nap) = Workbooks(File_nev).Worksheets("Adatok").Cells(3, (Nap * 2) + 3) 'Itt szál el
If (Unnep(Nap) = "ü") Or (Unnep(Nap) = "Ü") Then
Unnep(Nap) = "1"
Else
Unnep(Nap) = " "
End If
Nap = Nap + 1
Wend

Ez a hiba:

Run-time error "9":
Subscript out of range

Köszi a segítséget!
Thrawnad

Hardver hibára ritkán van jó szoftver...

Szia!

Szerintem valószínűleg arról van szó, hogy a File_nev nevű munkafüzeted nincs megnyitva vagy nem pontos a munkafüzet neve.

Üdv.

[ Szerkesztve ]

Köszi.
Igen el lett irva, közben a kollega lementette XLSX ben az eredeti XLS helyett a tábla meg volt nyitva, csak nem láttam hogy nem az.
Köszi!
Thrawnad

Hardver hibára ritkán van jó szoftver...

Sziasztok!

Szöveggel teli sorokat,hogy lehet megszámolni?
A,B,C oszlopban nevek vannak lefele és a lap alján tudni akarom hány volt az adott oszlopban.
Köszönöm előre is a segítséget!

A DARAB2 függvény jó a szöveget tartalmazó cellák összeszámolásához.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Szia felora ,

A B oszlopba csinálj Választéklistát, az Adatok érvényesítése segítségével. Ott válaszd a listából opciót, és a munkalap egy megfelelő részén hozd létre a kételemű listádat (Igen / Nem) elemekkel.

[ Szerkesztve ]

Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)

Szia!

A forrás sorba egyszerűen beírható hogy: Igen;Nem -> így idézőjelek nélkül, pontosvesszővel elválasztva.
Nem kell emiatt külön cellákat lefoglalni.

Üdv.

[ Szerkesztve ]

Sziasztok!
Még egy kérdésem van:
Egy megnyitott filenak hogy nézem meg az útvonalát ha nem a c-n van?
A Curdir() egy c-n lévő alapértelmezettet ad vissza.
Nem eldöntött előrre melyik meghajtóról nyitják a file-t.
Thrawnad

Hardver hibára ritkán van jó szoftver...

Szia!

Workbooks(1).FullName megadja a teljes nevét, elérési utvonallal együtt.
Workbooks(1).Name megadja a rövid nevet.
Ha csak az elérési útvonalra vagy kíváncsi akkor:

utvonal=replace(workbooks(1).fullname,workbooks(1).name,"")

Természetesen a workbooks(1) helyére kerülhet akár activeworkbook, vagy névvel megadott munkafüzet a szám helyett.

Üdv.

[ Szerkesztve ]

Az ActiveWorkbook.Path adja meg az aktív füzet útvonalát.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Szia!

Az általam javasolt annyival "több", hogy benne ottmarad a backslash a végén, így további módosítás nélkül felhasználható fájl mentéshez (filename:= utvonal & fájlneve)

Üdv.

Biztosan jobb, bár nekem az

utvonal = ActiveWorkbook.Path & "\"

egyszerűbbnek tűnik.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Köszi!
Így már ki tudtam szedni.
Igazság szerint egy azonos nevű TXT-t kell gyártanom.
Úgyhogy az első variációból a pontig kell a karakterek, de azt már kissé fapadosan de megoldottam
Thrawnad

[ Szerkesztve ]

Hardver hibára ritkán van jó szoftver...

Igazad van, csak nem aktív, csak meg van nyitva.
Thrawnad

Hardver hibára ritkán van jó szoftver...

Szia!

Ha így csináltad: filename:=replace(workbooks(1).fullname,"xlsx","txt") az egyáltalán nem fapados

Nyilván az xlsx helyébe azt a kiterjesztést teszed, amelyik nálad van.

Üdv.

[ Szerkesztve ]

MsgBox Workbooks("Füzetneve.xlsm").Path & "\"

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Igen, csak ugye a Törzskönyv nállam már Xlsx máshol meg még XLS.
Ezért egy ciklussal végig szaladok rajta a pontig

utvonal = Workbooks(File_Ez).FullName
While (Sor < Len(utvonal)) And (betu <> ".")
betu = Right(Left(utvonal, Sor), 1)
If betu <> "." Then
File_Ki = File_Ki & betu
End If
Sor = Sor + 1
Wend
File_Ki = File_Ki & ".TXT"

Hardver hibára ritkán van jó szoftver...

1 a lényeg már megy
Mindenkinek köszönöm!
Thrawnad

Hardver hibára ritkán van jó szoftver...

Szia!

Ennél azért szerintem egyszerűbb a left és az instr függvény használata:

File_Ki=left(workbooks(file_ez).fullname,instr(workbooks(file_ez).fullname,".")) & "TXT"

(Persze csak akkor, ha nincs a nevében több pont...)

Esetleg így:
File_Ki=workbooks(file_ez).fullname
File_Ki=left(File_Ki,instr(File_Ki,".")) & "TXT"

Üdv.

[ Szerkesztve ]

Sziasztok!
Az mitől lehet,hogy egy mátrixnak kiszámoltatom az excellel az inverzét (= INVERZ:MÁTRIX) , de valamiért nem jól számol,mert ha az INVERZ mátrixnak az INVERZÉT számoltatom vele,nem kapom vissza az eredeti mátrixomat (nem pontosan,ami esetemben már hibát okoz). Parancs után persze SHIFT+CTRL+ENTER-t ütök,mivel tömb műveletet hajt végre.

"never send to know for whom the bells tolls; it tolls for thee"

Szia!

Bizonyára az Excel pontossági korlátai játszanak ebben szerepet. Szerintem nézd át a súgóban az erre vonatkozó leírásokat.

Üdv.

Köszi.
Az instr() fügvényt nem ismertem.

Thrawnad

Hardver hibára ritkán van jó szoftver...

Lehet makró vagy egyéb brutális dolog nélkül írni kerekítő függvényt, ami megfelel a mostani magyar kerekítésnek (1-2: 0-ra, 3-4: 5-re, 6-7: 5-re, 8-9: 0-ra)?

Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz

Szia!

Próbáld ki ezt:

=A1-MARADÉK(A1;10)+HA(MARADÉK(A1;10)<3;0;HA(MARADÉK(A1;10)<8;5;10))

A kerekítendő szám az A1 cellában van.

Üdv.

Az én megoldásom:

=HA(JOBB(A1;1)*1<3;KEREKÍTÉS(A1;-1);HA(ÉS(JOBB(A1;1)*1>=3;JOBB(A1;1)*1<=7);(BAL(A1;HOSSZ(A1)-1)&"5")*1;HA(JOBB(A1;1)*1>=8;A1-JOBB(A1;1)*1+10)))

szintén A1

Ferié szebbnek tűnik vagyis nem csak tűnik

szerk2:

nem egész számoknál az enyém tuti hibás lesz!!!!! erre miért nem gondoltam

[ Szerkesztve ]

Sziasztok,

Kinek milyen ötlete van arról, h valamit az Excel megcsinál normál cellás képletben, és ugyanazt nem teszi VBE-ben?
Mutatom a kódsorokat:
Cellás: =MARADÉK((MOST()-CSONK(MOST();0))*24;1)*60 , ami kitűnően kiszámolja egy adott időpillanatban a percek számát.
VBE-s:
byt_ElemÉrkÓra = Fix((Now - Fix(Now)) * 24)
byt_ElemÉrkPerc = (((Now - Fix(Now)) * 24) Mod 1) * 60
byt_ElemTávÓra = Fix((Now - Fix(Now)) * 24 + 1 / 3)
byt_ElemTávPerc = (((Now - Fix(Now)) * 24) Mod 1) * 60
ebben a kódrészletben azonban nem hajlandó a perceket helyesen számolni. Az órák rendben, a percek viszont nullázódnak, mivel a MOD osztás eredménye eleve 0 lesz. Utána már hiába szorzom 60-nal.

Ötleteket kérek. Ha nincs ötlet, h miért különbözik a megoldás, akkor áthidaló, vagy megkerülő ötleteket várok!
Köszönöm.

[ Szerkesztve ]

Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)

Köszönöm szépen!!!

Miért nem írod be ugyan azt a vbe-be mint amit képlettel írtál be?

Mondjuk így:

Range("A1").Formula = "=MOD((NOW()-TRUNC(NOW(),0))*24,1)*60"

ha meg csak az érték kell és nem kell a képletes verzió használd így is:

Range("A1").Formula = "=MOD((NOW()-TRUNC(NOW(),0))*24,1)*60"
Range("A1").Value = Fix(Range("A1").Value)

Szia Slashing,

Mert egyébként Egy Combobox Value tagjának kell átadnom az értéket. Szóval számolni kell, és VBE-n belül.
Az Excelles verziót a képlet kidolgozásához segédeszközül használtam.

Frazeológiám: Az ember nem kávéra, nem is kávéházra vágyik, az ember lelke barátra vágyik, a kávé csupán ürügy... :-) ;)

Privátban már elküldtem a megoldást.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok!

Egy kis help kellene.
Adott egy táblázat.

Hogyan tudnám azt megcsinálni, hogy ha A1/B1, A2/B2... hányadosa nem egész szám, akkor az A cellában lévő mező vagy váltson színt, vagy ugorjon fel valamilyen hibaüzenet.

Feltételes formázással nem ment, illetve érvényesítésnél csak úgy működött, ha kijelöltem az adott cellát az A oszlopból. Nekem pedig az kellene, hogy ha ez a feltétel valahol nem teljesül, akkor mindenképp figyelmeztessen valahogy.

"Ha próbára akarod tenni egy ember jellemét, adj neki hatalmat." - Abraham Lincoln

Az A oszlop feltételes formázásának a képlete

=A1/B1<>INT(A1/B1)

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Jap, akkor sry

Nagyon köszönöm!

"Ha próbára akarod tenni egy ember jellemét, adj neki hatalmat." - Abraham Lincoln

Nincs mit, elvégre földim vagy.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Hello,

Igen, csak ugye a Törzskönyv nálam már Xlsx máshol meg még XLS.
Ezért egy ciklussal végig szaladok rajta a pontig

Én erre a SPLIT függvényt szoktam használni, amely egy szöveget egy adott karakter alapján felszabdal, az eredmény egy tömbbe kerül. A kiterjesztes a tömb utolsó elemében lesz megtalálható.

filenev = Split(utvonal, ".")
File_Ki = Replace(utvonal, filenev(UBound(filenev)), "txt")

üdv

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Szia,

.. kerekítő függvényt, ami megfelel a mostani magyar kerekítésnek...

=INT(A1/5)*5+(MARADÉK(A1;5)>=3)*5

üdv.

[ Szerkesztve ]

A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel

Két másik megoldás:

=KEREKÍTÉS(A1/5;0)*5
=MROUND(A1;5)

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.