Keresés

Részletes keresés

muszakiellenor Creative Commons License 2011.08.18 0 0 15874

Köszönöm szépen, megprószálom :)

Előzmény: tt65 (15873)
tt65 Creative Commons License 2011.08.18 0 0 15873

Persze, csak fordítva kell a lóra ülni! :-)

A formanyomtatvány szöveg nagyon jól van wordben, mert azt arra találták ki.

Excelben pedig a változó adatokat tárolod, onnan a word emeli be az adatot a megefelelő helyre.

Ezt körlevélnek hívják.

lsg. gugli: word körlevél készítés adatok excelben pl.: http://office.microsoft.com/hu-hu/excel-help/word-korlevel-letrehozasa-excel-adatokkal-HP005203760.aspx

Előzmény: muszakiellenor (15872)
muszakiellenor Creative Commons License 2011.08.18 0 0 15872

Sziasztok!

 

Excelben szeretnék olyat megoldani, hogy bizonyos nyomtatványokat- közigazgatási határozatokat, végzéseket- vinnék fel egy-egy munkalapra. Lenne egy alap munkalap, ahova az ügyfél nevét, címét, iktatószámot, építési helyet, helyrajzi számot csak egyszer kellene begépelnem és a  =munkalap1!a..... hivatkozással ezek az alapadatok átkerülnének az eljárási cselekmények végzéseibe, határozataiba.

Nagyjából ezek sikerülnek is, csak a wordmen meglévő sablon dokumentumait soronként kell az excel cellákba "áthordanom" és a külalak elég gyatra lett eddig. Próbáltam cellaegyesítés után bemásolni, de az nem lehetséges. Az lenne a tiszteletteljes kérdésem, hogy van-e szalonképesebb megoldás erre az excelben ?

A segítséget előre is köszönöm !

muszakiellenor Creative Commons License 2011.08.18 0 0 15871

Kösz szépen !

Előzmény: tt65 (15870)
tt65 Creative Commons License 2011.08.17 0 0 15870
Előzmény: muszakiellenor (15865)
pimre Creative Commons License 2011.08.17 0 0 15869

Persze így jó, de a munkalap nevének bepötyögése helyett biztosabb módszer az = jel beírása után átmenni a másik munkalapra, ott kiválasztani a megfelelő cellát, és az enter után ott lesz a megfelelő képlet. Bonyolultabb esetben minden műveleti jel után ki lehet választani ilyen módon a megfelelő munkalap megfelelő celláját. 

Előzmény: muszakiellenor (15868)
muszakiellenor Creative Commons License 2011.08.17 0 0 15868
Koszi , zarojel nelkul ok!
Előzmény: tt65 (15866)
tt65 Creative Commons License 2011.08.17 0 0 15867

vagy esetleg ctrl C + ctrl V ill. ctrl M + ctrl V ? :-)

Előzmény: muszakiellenor (15865)
tt65 Creative Commons License 2011.08.17 0 0 15866

esetleg zárójel nélkül?

pl.: =Munka1!C3

Előzmény: muszakiellenor (15865)
muszakiellenor Creative Commons License 2011.08.17 0 0 15865

Sziasztok mexállottak!

 

Szeretném megkérdezni, hogyan tudok egy munkalap egy cellájából egy másik munkalap cellájába adatot eljuttatni? Próbáltam a =(munka!C3) formációt, de valami nem stimmel. A választ előre is köszönöm! üdv.

Sznida Creative Commons License 2011.08.17 0 0 15864

Ezeken felbuzdúlva keresgéltem a súgóban, megtalaláltam a timer-t. Erre volt szükségem. Ezzel tudok időlimiteket beállítani.

A súgóban teljesen érhető a példa, az alapján lehet használni!

 

Üdv: Sznido

Előzmény: Sznida (15863)
Sznida Creative Commons License 2011.08.17 0 0 15863

Köszönöm szépen!

Tényleg baromira egyszerű. El voltam terelve,  mert az ABB robot nyelven el lehet indítani egy változót, pl. "clkstart ido" . Ez elindít egy ido nevű változót, és már csak ezt a változó kell figyelni hol tart, és beavatkozni, ha meghaladt már egy bizonyos értéket.

Valami ilyesmit szeretem volna, de a Te megoldásoddal is jó lehet.

Megpróbálom kivonni az End_time-ot a Start_time-ból, és akkor megtudom mennyi idő telt el, ua mintha elindítottam volna egy számlálót! :)

 

Köszi!

 

Üdv: Sznido

Előzmény: wawabagus (15855)
wawabagus Creative Commons License 2011.08.16 0 0 15861

:-DDD...

Nem makró az kell, de csak a fő template fájlban és mivel eddig SaveCopyAs-t használtam a makró is klonozódott.

Ami tök feleseleges ugye.

 

De a te módszereddel csak a sheetek copizódnak...

Szóval szuper :-).

 

Előzmény: Delila10 (15860)
Delila10 Creative Commons License 2011.08.16 0 0 15860

Ez a zseniális és elegáns kód így született:

 

Bekapcsoltam a makrórögzítést,  lapfülön jobb klikk, Másolás vagy áthelyezés, Új munkafüzetbe, Legyen másolat.

Makrórögzítés vége.

 

Ezt a kódot kaptam. Kétszer kipróbáltam, és láttam, hogy jó.

Ennyit a zsenialításomról.

 

Mi az, hogy már makró nélkül is megy? Nem olyasmiről volt szó, hogy több füzetet akarsz sorban megnyitni, és 1-1 lapjukat kimásolni új füzetbe?

Előzmény: wawabagus (15859)
wawabagus Creative Commons License 2011.08.16 0 0 15859

Delila...szuper a módszered!!!!

Végül ezt használtam

 

Sheets.copy

 

és csak ez létre hozza a klónt, de már a makró NÉLKÜL!!

Zseniális vagy!

 

Köszi ezt az elegáns megoldást!!!!!!!!!!

Előzmény: Delila10 (15818)
tt65 Creative Commons License 2011.08.16 0 0 15858

megoldottam ...

Előzmény: tt65 (15828)
mafikám Creative Commons License 2011.08.16 0 0 15857

Ja, azt elfelejtettem írni, hogy a data fülön a subtotal melletti "hide detail"-re rámentem és akkor elmúlt a probléma, viszont egy másik szakaszon nem működött a subototal. Aztán megnyitottam a fájlt újra, de akkor már ez sem segített...

Előzmény: mafikám (15856)
mafikám Creative Commons License 2011.08.16 0 0 15856

Sziasztok!

 

A segítségeteket szeretném kérni. A subtotal (?) funkció nem működik egy bizonyos szakaszon, az összes többi helyen működik.

 

Ezt az anyagot találtam a témában, de nem látok sehol olyan cellát, ami objektumot tartalmazna… http://support.microsoft.com/kb/211769

 

Mi lehet a gond, hogyan találhatnám meg a hibát? Arra is gondoltam, hogy leszedem a subtotalokat és visszateszem (nem én tettem rá, így kaptam), de azzal sem boldogulok!:( Tudnátok segíteni, hogy hogyan oldhatnám ezt meg?

 

Le szeretném fagyasztani az első (A) oszlopot és az első három sort egyszerre, ezt hogyan tudnám megoldani? Külön-külön megy, de egyszerre nem...

 

Köszi szépen a segítséget!!

 

wawabagus Creative Commons License 2011.08.16 0 0 15855

Hello,

Végre én is tudok valami újat mondani :-D

Persze íme szuper időmérőt :-DDD

 

Baromi egyszerű

 

 

-----------------------------

Dim Start_time, End_time, RunTime as date

 

Start_time = now()

 

itt már fut a makród :-)

 

End_time = now()

 

Msgbox RunTime(datefid("s",Start_time, End_time)

 

 

Én azt is csináltam, hogy több helyre betettem a mérőt és kiirattam a végén egy cellába

...így pl megtudtam, hogy melyik fájlt mennyi idő alatt kreálta, sőt azt is melyik fázis volt a leghosszabb.

 

Nagyon hasznos és jót szórakoztam vele :-).

 

Előzmény: Sznida (15854)
Sznida Creative Commons License 2011.08.16 0 0 15854

Szia,

 

Ne haragudj, de ahogy olvastam, hogy "tettem bele időmérőt", akkor felcsillant a szemem.

Én is akartam már haszni VBA-ban is, (mert ABB robot nyelven használtam már) nem sikerült.

El tudnád küldeni ezt az időmérőt?

Bocsánat, hogy nem a Te problémáddal foglalkozok, ne haragudj!

 

Szép napot!

 

Üdv: Sznido

Előzmény: wawabagus (15853)
wawabagus Creative Commons License 2011.08.16 0 0 15853

Sziasztok!

Írtam egy makrót, ami riport fájlokat kreál több országra /egy fájl 17MB kb...elég nagy/.

4 országra kb 50 másodperc alatt fut le.

 

Tettem bele időmérőt, hogy lássam melyik fázis a lassú és úgy látom hogy a fájl mentése.

 

Én 2007-es excelen dolgozom, de a fájl 2003-as....

Lehet ez az ok?

 

Mit tehetek, hogy ne vegyen ennyi időt igénybe?

 

Persze az egy naphoz képest az 1 perc nem sok :-)))...de mégis szeretném tökéletesíteni a dolgot, ha lehet.

 

Köszi a tippeket!!

Törölt nick Creative Commons License 2011.08.16 0 0 15852

Nagyon jó! Azt hiszem ez jobb lesz a beágyazott word sablon helyett.

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

Előzmény: Törölt nick (15851)
Törölt nick Creative Commons License 2011.08.16 0 0 15851

Talán ezzel próbáld meg:

 

Sub teszt()
    Dim wd As Word.Application, D As Document
    Dim myImage As Object
        
    Set myImage = ActiveSheet.Shapes("Picture 2").OLEFormat.Object
    
    Set wd = New Word.Application
    wd.Visible = True      'teszteléshez érdemes ezt a sort meghagyni, aztán törölhető
    Set D = wd.Documents.Add
    myImage.Copy
    D.Range(0).Paste    'első karakterhelyre teszi be a képet
    D.Sections(1).Headers(wdHeaderFooterPrimary).Range.Paste        'fejlécbe teszi be a képet
End Sub

 

A kép ilyenkor egy munkalapon van beágyazva. Természetesen az elérési útvonalát (kék betűvel kiemelve) megfelelően módosítani kell.

Előzmény: Törölt nick (15845)
Törölt nick Creative Commons License 2011.08.15 0 0 15850

Igen, felugrik. Ezt kellene elkerülni.

 

Az a gond, hogy a Word applikáció a

o.Verb Verb:=xlOpen

utasítás végrehajtásakor megnyílik egy új word application ablakban, ami by default látható.

Ahhoz, hogy ne látszódjon, vagy az utasítást kellene úgy paraméterezni, hogy pl.

o.Verb Verb:=xlOpen, Visible:=False

már ha lenne ilyen paraméter, de nincs.

Vagy pedig az o objektumból kellene kiszedni valahogy a beágyazott word doksit, és azt átadni megnyitásra egy általam létrehozott, láthatatlan word application instance-nak. Ez sem megy.

 

Még azt tudnám elképzelni, hogy a csatolt word fájl ikonjához tartozó feliratból kiszedni az elérési utat, és úgy megnyitni a doksit. De ezt az elérési utat sem látom, hogy honnan, hogyan lehetne kinyerni program útján.

Előzmény: SQLkerdes (15848)
wawabagus Creative Commons License 2011.08.15 0 0 15849

Szia,

Köszi a tippet. Ezen a vonalon indultam, de valahogy nem akart összejönni.

...míg végül mégis :-D.

 

Köszi!

Előzmény: Törölt nick (15839)
SQLkerdes Creative Commons License 2011.08.15 0 0 15848

Mer mér?  Felugrik az ablakja?

 

Előzmény: Törölt nick (15847)
Törölt nick Creative Commons License 2011.08.15 0 0 15847

Szerintem, csak ide lehet beszúrni, de sajnos, nem javít a helyzeten:

 

Sub teszt()
    Dim  W As Word.Document, WD As Word.Application
    Dim o As OLEObject
    
    Set o = ActiveSheet.Shapes("Object 3").OLEFormat.Object
    o.Verb Verb:=xlOpen

    Set W = o.Object
    Set WD = W.Parent

    WD.Visible = FALSE
    W.SaveAs "D:akármi.doc"
    W.Close
    WD.Quit
End Sub

Előzmény: SQLkerdes (15846)
SQLkerdes Creative Commons License 2011.08.15 0 0 15846

Sub teszt()
    Dim  W As Word.Document, WD As Word.Application
    Dim o As OLEObject
    
    Set o = ActiveSheet.Shapes("Object 3").OLEFormat.Object
    o.Verb Verb:=xlOpen

    Set W = o.Object
    Set WD = W.Parent
    W.SaveAs "D:akármi.doc"
    W.Close
    WD.Quit
End Sub

 

Ide az elejére miért nem lehet beszúrni, hogy:

 

WD.Visible = FALSE

 

Vagy félreértem a kérdést?

Törölt nick Creative Commons License 2011.08.15 0 0 15845

Lehet, egy másik nézetből kellene nekikezdeni. A lényeg, hogy különböző munkalapok, különböző adataiból makróval létrehozok és összeállítok egy word dokumentumot különböző formázásokkal.

A problémám az, hogy sehogy sem tudok egy kis képet (egy logót) a wordbe illeszteni, úgy, hogy a képnek ne kelljen külön elérési utat megadni, hanem az adatokat (és a makrót is) tartalmazó excel munkafüzetből lehessen azt a wordben adott helyre beszúrni. 

Előzmény: Törölt nick (15843)
Törölt nick Creative Commons License 2011.08.15 0 0 15844

Sajnos, semmi, pedig erőst guglizok is a témában...

Előzmény: Törölt nick (15843)

Ha kedveled azért, ha nem azért nyomj egy lájkot a Fórumért!