Az „Excel” fórum célja, hogy keretet adjon az Excel felhasználók széles táborának tapasztalataik megosztására, és lehetőséget a segítséget kérőknek. Az alábbi összefoglaló azért készült, hogy segítse a helyes kérdésfeltevést.
– Írd le szabatosan a problémát. Úgy fogalmazz, hogy ne csak te magad, de a szakértő is megértse, mire szeretnél választ kapni.
– Írd le, hogy milyen verziójú Excellel dolgozol. (Vagy ha nem – ill. nem csak – Excel, akkor micsoda?)
– Írd le, hogy milyen úton indultál el, és hol akadtál el rajta.
– A kérdés megértése szempontjából sokat segíthet, ha feltölteszt egy képet, amin látszik, hogy mit szeretnél, vagy illusztrálja azt.
– Még jobb, ha feltöltesz egy minta munkafüzetet valahová (pl. data.hu). Feltöltés előtt távolítsd el belőle a nem publikus adatokat.
– Ha a feladat jellege olyan, célszerű az "előtte" és "utána" állapotokat bemutatni. (Miből kellene csinálni mit?)
– Ha VBA kódon kell javítani, másold be a releváns kódrészt. Rövid kód mehet hozzászólásba, hosszú kód inkább ide: http://pastebin.com/
– Ha valami nem úgy működik, ahogy kellene, add meg a rendellenes viselkedés jellemzőit, a hibaüzenetet, és a hibát okozó programsort.
Function Keres()
Worksheets(1).Select
Cells.Find(What:="g", After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False).Activate
Keres = ActiveCell.Address
End Function
Sub Eredmény()
Dim Megfelelő As Variant
Megfelelő = Keres
End Sub
A Megfelelő változóban visszaadja azt a cellát amiben megtalálja a keresésnek megfelelő cella címét. Sajnos hibaüzenetet kapsz ha nincs ilyen, de 10 perc múlva kijavítom azt is.
Function Keres()
Worksheets(1).Select
Cells.Find(What:="g", After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False).Activate
End Function
A DialogSheets párbeszédpanel problémám megoldódott, mert igazából nem tudtam hogy amíg a show metódus be nem fejeződik addíg hide metódus nem működik, ennek tudatában átszerkesztve a kódot már megy is.
Dim kereses As Range
Set kereses = ThisWorkbook.Worksheets(1).Cells.Find(What:="g")
Ennek eredménye az a cella, amelyben megtalálja a "g"-t. Ez eddig OK. Ha makróból indítom (Sub), akkor semmi baj, azonban ha Function-ból, akkor állandóan Nothing-gal tér vissza (mint a makróban, ha nem találja).
Üdv!
Pontosan mire gondolsz? Pl.:
Sheets("about").Visible = False
ugyebár az about nevű sheet (munkalap) oldalt rejti el, ami lehet dialog sheet is...
Ha nem erre gondoltál, bocsesz...
Hogyan lehet egy excel makróból párbeszédpanelt elrejteni, sajnos a "hide" metódus (aminek ez lenne a feladata) nem működik. A párbeszédpanelen egyébként négy nyomógomb van amihez makrók vannak társítva.
Start menü -> programok -> inditopult.
Megfogod az ikonját amit elakarsz inditani.
Ráhuzod start gomra ami megnyilik, és az inditópultra ráejted.
Angolban -> Startupnak hivják.
Bejött. Az utolsó sor, a 65536. sor. Az indítópultba? És az hol van? Gondolom ha minden gépen van ilyen, akkor minden gépen ugyanaz az elérési útvonal.
Sz.r ügy!
Én épp tegnap dobtam ki 1 floppyt, pedig nem az volt a vétkes, csak a betekintö-jelszót feledtem el. Egy 5 év elötti, abban meglevö képlet kellett volna. Így kénytelen voltam 3ó-n át újra magszerkeszteni.
:o(
Ha sokat kell gépelni, részvétem!
Azért próbáld meg egy O_97-es géppel megnyitni! Ha nem 2000-ként mentett, talán...???
Kedves mindenki!
Excelt hogyan lehet rávenni arra hogy amikor elindul a Windows 2000 professional, hogy autómatikusan elinduljon? Tudjátok melyik az utolsó sor az excelben?
Kipróbáltam, de sajnos ez sem jött be.
Amint megpróbáltam a fájl hivatkozást a sérült fájlra átírni, ismét a szokásos " a file írásvédett....nem érhető el" üzenet jött elő.
Jó eséllyel fizikailag sérült a fájlod.
A képleteket sajna nincs sok esélyed elővarázsolni, de az adatok nem lehetetlen.
1. Nyisd meg az Excelt
2. Nyissál új fájlt (két fájl legyen bennt)
3. A második fájl első munkalapjának A1-es cellájába hivatkozd be a másik fájl első munkalapjának A1-es celláját.
4. Az első fájlt mentsd le a sérült fájl mellé
5. Zárd be az első fájlt.
6. A második fájl hivatkozásában a fájlnevet javítsd ki a sérült fájl nevére
7. Előjön egy ablak, hogy melyik munkalapot szeretnéd, válaszd ki a megfelelőt.
8. Mentsd el a megnyitott fájlt.
9. Másold a képletet ($ nem kell!) jobbra, lefelé
10. Időnként mentsél, mert ha a sérült részre ér, akkor beköszön Dr. Watson.
Nem hálózaton van a file , nem is a C:\ -n, hanem egy második winchesteren (D:\ ). A gond az, hogy másolni sem hagyja magát, így nem tudom kipróbálni a C:\ -ről való megnyitást.
Képletek nem létfontosságúak, de az adatok viszont mindenképpen kellenének.
A C:-on is hasonló, ha többprofilú a gép. és csak olvasási joggal léhetsz bele.
Legegyszerübb, ha saját i/o teljesjogú mappádba átkopizva, nyitod meg, és míg látod a számokat, kérsz egy "mentést másként" ahol kigyapálhatod a védelmét, és új néven elmented!
Ha hálózaton van, és már használtad az anyagot, dolgoztál benne, verd orrba a rendszergazdát!
Nem!
A biztonsági másolat ugyanis úgy készül, hogy a megnyitott, eredeti verziót más (*.xlk) kiterjesztéssel látja el, semmilyen filemozgatás nem történik.
Ha nem teccik ahol van használd az intézöt!
2. Használj külön munkamappát, ahova "mentés másként utasítással külön meghatározhatod a mappát!
3. "Eszközök"... "Beállítások"... "Általános"__>>
Alján 3 csík küzül a "Munkakönyvtár: A pontos elérési útvonalat begépeled, leokézod, és indítsd újra az excell-t!