Keresés

Részletes keresés

Törölt nick Creative Commons License 2010.08.24 0 0 12636
"igen, openoffice-ban vagyok..."

Ez alapvető információ, ezzel kellett volna kezdened.
Openoffice-ban semmilyen Excel makró nem fog működni, mivel ez Visula Basic, az meg (ha jól tudom) java. A kompatibilitás csak munkalap szinten van meg, ott sem 100%-os.
De megpróbálhatod, amit a 11746-ben javasoltam, az lehet, hogy OO-ban is működik.
Bár a menük hierarchiája biztosan más, szóval lehet, hogy keresni kell a megfelelő parancsokat. A súgó segíthet.
Előzmény: blues69 (12635)
blues69 Creative Commons License 2010.08.24 0 0 12635
igen, openoffice-ban vagyok...
különben ezt sem értem... miért nem egyforma az összes office macro nyelve?
Törölt nick Creative Commons License 2010.08.24 0 0 12634
Mi ez, OpenOffice? Egy Excel makró nem így néz ki...
Előzmény: blues69 (12633)
blues69 Creative Commons License 2010.08.24 0 0 12633
ez a macro lefut szépen de csak akkor ha a kellő helyen állok a curzorral
ez baromság!
én úgy szeretném hogy működjön, hogy ha bárhol áll a cursor akkor is állítsa 0 értékre a cellák tartalmát

ha a macro gombhoz van rendelve akkor nem fut le, az miért lehet?

továbbá szerintem tele van mindenféle felesleges dologgal a kód, bár nem értek a dologhoz...

meg néznéd?

REM ***** BASIC *****

Sub Main

End Sub


sub zero
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "StringName"
args1(0).Value = "0"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
args2(1).Name = "Sel"
args2(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "StringName"
args3(0).Value = "0"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args3())

rem ----------------------------------------------------------------------
dim args4(1) as new com.sun.star.beans.PropertyValue
args4(0).Name = "By"
args4(0).Value = 1
args4(1).Name = "Sel"
args4(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args4())

rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "StringName"
args5(0).Value = "0"

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args5())

rem ----------------------------------------------------------------------
dim args6(1) as new com.sun.star.beans.PropertyValue
args6(0).Name = "By"
args6(0).Value = 1
args6(1).Name = "Sel"
args6(1).Value = false

dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args6())


end sub

Törölt nick Creative Commons License 2010.08.24 0 0 12632
Amennyiben fix cellákkal dolgozol, és kód nélküli megoldást szeretnél, így pl lehetséges:

1) Jelöld ki az összes kérdéses cellát. Nem összefüggő tartományok kijelöléséhez használd a Ctrl gombot.
2) Beszúrás menü -> Név -> Név megadása. Itt adj meg a kijelölt tartománynak egy tetszőleges nevet. Pl "pezsgőtabletta"

Ezután, ha törölni akarod a cellák tartalmát, annyit kell tenned, hogy az A oszlop fölötti lenyíló menüből a "pezsgőtabletta" nevet kiválasztod, és megnyomod a Delete gombot.

Ha törlés helyett nullákat akarsz, akkor a "pezsgőtabletta" tartomány kiválasztása után írj 0-t majd Ctrl+Enter.
Előzmény: blues69 (12629)
Törölt nick Creative Commons License 2010.08.24 0 0 12631
Vagy ha tartani akarod a B5:B7-et, akkor Column, helyett Range
Előzmény: blues69 (12629)
Törölt nick Creative Commons License 2010.08.24 0 0 12630
hová másoltad be a scriptet?
javítsd B:B-re

vagy írd próbáld azt is hogy beírod elé h (A Sub...() utáni sorba)
On Error Resume Next
Előzmény: blues69 (12629)
blues69 Creative Commons License 2010.08.24 0 0 12629
Sajnos nem megy, ezt dobja a program:
"Aleljárás vagy függvényeljárás nincsen definiálva."

Amit változtattam rajta az a A:A helyett B5:B7.
Csak a B oszlopban vannak a cellák az alábbi tagolásban.
B5-B7
B11-B13
B16-B18
B21-B23
B26-B28
B31-B32
B34-B36

összesen 20 db
blues69 Creative Commons License 2010.08.24 0 0 12628
bármilyen megoldás érdekel...

a lényeg hogy a 15 cellában található értékek egy gomb nyomásra vagy macro futtatás hatására vegye fel a 0 értéket...
ha felülírjuk az is jó, ha vhogy nullázuk nekem az is jó...

kipróbálom a macro-dat amit küldtél...
hátha működik...
Ságnes Creative Commons License 2010.08.24 0 0 12627
Sikerült!!! Köszönöm!
Ági
Előzmény: Törölt nick (12626)
Törölt nick Creative Commons License 2010.08.24 0 0 12626
Ja, azt elfelejtettem leírni az előbb, hogy mielőtt a Feltételes Formázás menüpontot kiválasztod, jelöld ki az A oszlopot.
Ha a dátumok máshol vannak, a képleteket annak megfelelően kell módosítani.
Előzmény: Törölt nick (12625)
Törölt nick Creative Commons License 2010.08.24 0 0 12625
Formátum menü -> Feltételes formázás

Ha például az A oszlopban vannak a dátumok, akkor a mellékelt ábra szerint állítsd be.
Itt 30 napot vettem egy hónapnak, mert így lényegesen egyszerűbb megoldani, mintha ténylegesen hónapokkal kellene számolni.

Előzmény: Ságnes (12624)
Ságnes Creative Commons License 2010.08.24 0 0 12624
Sziasztok!
A következő lenne a problémám:
Szeretnek egy olyan nyilvántartást, ahol tudom figyelni engedélyek lejárati dátumát.
Úgy gondoltam, hogy ha 3 hónap van még hátra az engedélyből zölddel, ha 2 sárgával, ha 1 pirossal legyen megjelölve. Meg lehet ezt valahogy oldani excelben?
Ha igen, akkor milyen módon? Vagy a háttér színeződne be, vagy a dátumok. Bármelyik megoldás jó lenne.
Előre is köszi a segítséget.
Ági
Törölt nick Creative Commons License 2010.08.23 0 0 12623
ja meg azt sem értem, hogy mitől lenne egyszerűbb a "B" oszlopba (az "A" mellé) beírogatni nullákat, mint kinullázgatni az "A" oszlop celláit. Vgay minek kell kinullázgatni, miért nem lehet őket felülírni azt kész.

Nyilván meg van az oka, csak ugye nem látok a fejedbe
Előzmény: blues69 (12620)
Törölt nick Creative Commons License 2010.08.23 0 0 12622
ha jól értelek: nem lehet "kiementi" cellát megadni egy beépített függvénynek.

az a "15-20" cella egybefüggő, meghatározható a (maximális) cellatartománya?
csak számok vannak benne?
Gondolom a1:a20 tartományt kell "nullázgatni", hát

próbáld meg ezt a makrót: (tedd rá egy gombra, amit az űrlapok eszköztárból húzol fel a munkalapra)

amúgy ez is egy simán rögzített makró, csak a felesleges select-eket kiszedtem belőle


Sub nullbeir()
Columns("A:A").SpecialCells(xlCellTypeConstants, 23).FormulaR1C1 = "0"
End Sub
Előzmény: blues69 (12620)
Delila_1 Creative Commons License 2010.08.23 0 0 12621
A helyedben Word-ben csinálnám meg űrlapmezőkkel, ott van olyan opció, hogy csak ezeket nyomtassa.
Előzmény: takrisz (12616)
blues69 Creative Commons License 2010.08.23 0 0 12620
Gyakorlatilag mezők nullázásáról volna szó.
Kiszámolok egy munkát a táblázattal, mentem, majd másnap újra számolok egy másikat de lusta vagyok 15-20 mezőt egyesével kitörölni.

Megpróbáltam macro felvétellel megoldani a dolgot de használhatatlan eredményt kaptam, viszont programozni meg nem tudok.

Valaki valami script-et javasolt de ezt szintén nem tudom leprogramozni.

Az biztos hogy a 15-20 cella az beviteli mező, ergo oda csak számokat lehet beírni.
Én egy IF függvénnyel próbálkoztam, de nem tudtam megadni a nullázandó cellákat mint kimeneti cellát.

Remélem érthető voltam.
Köszi.
Törölt nick Creative Commons License 2010.08.23 0 0 12619
ez így kör-körös
Egy cellában vagy képlet van, vagy konstans.
munkalap eseményre induló makróval megoldható.

Bár gyanítom, felesleges, csak átfogóbban kéne látni az egész táblázatot - vagyis annak célját.


Előzmény: blues69 (12618)
blues69 Creative Commons License 2010.08.23 0 0 12618
Ha vki tud segítsen.

Az A1-es cellába beírok egy számot pl. 100, de ha a B1-es cellába azt írom hogy 0 akkor az A1-es cella felveszi a 0 értéket.
Mondhatnám úgy is, hogy egyik cella nullázza a másik cella értékét.

Előre is thx.
Törölt nick Creative Commons License 2010.08.23 0 0 12617
Ne haragudj, szerintem a probléma leírása nem egyértelmű.

A cellarácsok nyomtatását egyszerűen ki lehet kapcsolni. Lásd: Fájl -> Oldalbeállítás
A "többi sallang" micsoda?
Ha az adatok egy elkülöníthető területen vannak, akkor a kijelölt terület nyomtatása a barátod.


Előzmény: takrisz (12616)
takrisz Creative Commons License 2010.08.23 0 0 12616
Üdv Mindenkinek!
Nekem az alábbi problémám lenne megoldásra várva:
- adott sok-sok (3lapból álló indigós) munkalap.
- a (a papír alapú, előbb említett) munkalapokon vannak részek, amik fixek, pl.: munkalap címe, vagy épp dátum, vagy 1-2 rublika megnevezése.
- hogyan csinálok olyan XLS-t excelben, amely a következőket tudja:
>>látom a teljes munkalapot úgy, ahogyan a papíron is szerepel.
>>csak az adatokat nyomtassa ki, a többi sallangot ne pl.: cella-szegélyek..
??Vki tud megoldást rá?
probci Creative Commons License 2010.08.22 0 0 12615
Köszönöm mindenkinek, nagyon sokat segítettetek!
Előzmény: Delila_1 (12614)
Delila_1 Creative Commons License 2010.08.22 0 0 12614
Igen, ez a megoldás is jó. Beírom a magyar megfelelőjét.

=SZORZATÖSSZEG(--(KÖZÉP(A1;SOR(A1:INDIREKT("A"&HOSSZ(A1)));1)="@"))
Előzmény: SQLkerdes (12612)
Delila_1 Creative Commons License 2010.08.22 0 0 12613
Nincs mit.
Előzmény: tt65 (12611)
SQLkerdes Creative Commons License 2010.08.22 0 0 12612
Függvényes megoldás a kukac-ok számára.

=SUMPRODUCT(--(MID(A1,ROW(A1:INDIRECT("A"&LEN(A1))),1)="@"))
Előzmény: Delila_1 (12599)
tt65 Creative Commons License 2010.08.22 0 0 12611
köszi, ezt nem tudtam.
Előzmény: Delila_1 (12610)
Delila_1 Creative Commons License 2010.08.21 0 0 12610
Összefűz. Az összefűz függvény helyett is lehet használni, pl. A1-> alma, B1-> fa,
=A1&B1 -> almafa.
Előzmény: tt65 (12609)
tt65 Creative Commons License 2010.08.21 0 0 12609
a k=k & mid ( ... hogyan működik, az & milyen operátor?
Előzmény: Delila_1 (12599)
tt65 Creative Commons License 2010.08.21 0 0 12608
a második sub-ban a k = k & Mid(Cells(... mit csinál?
mármint az & művelet?
Előzmény: Delila_1 (12599)
Delila_1 Creative Commons License 2010.08.21 0 0 12607
A szóközök eltávolításához egyszerűbb a csere funkció alkalmazása. Kijelölöd a tartományt, Szerkesztés/Csere, vagy ehelyett Ctrl+h-ra bejön a funkció. A "Keresett szöveg"-hez adj egy szóközt, a "Csere erre" rubrika maradjon üres, "Az összes cseréje" kipusztítja a szóközöket.

Makró: Eszközök/Makró/Visual Basic Editor, avagy Alt+F11. Bal oldalon kiválasztod a füzetedet, Insert menü, Module. Jobb oldalon kapsz egy üres lapot, oda másold be a makrót. Indítás: vagy a VBE-ben F5-tel, vagy az Excelben Eszközök/Makró/Makrók (Alt+F8), makró nevén duplaklikk.
Előzmény: probci (12606)

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