- Vékonyabb lett, jobb kamerát kapott, de az akku maradt a régi: itt a Fold7
- Változó design, tekerhető lünetta: megjött a Galaxy Watch8 és a Classic
- Honor Magic V3 - mágikus realizmus
- Yettel topik
- Motorola Edge 40 - jó bőr
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- iPhone topik
- Honor Magic6 Pro - kör közepén számok
- Íme az új Android Auto!
- Megjelent a Poco F7, eurós ára is van már
Új hozzászólás Aktív témák
-
róland
veterán
-
róland
veterán
LibreOffice makró készítésben otthon van valaki?
-
róland
veterán
Adott az alábbi makró:
sub Adatrogzites
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 = "ToPoint"
args1(0).Value = "$B$2"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$B$2:$M$2"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Nr"
args4(0).Value = 2
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args4())
rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$B$290"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
end subA lényege, hogy egy berögzített adatsort átmásolna (kijelölés-másolás-beillesztés módszerrel) egy táblázat megfelelő sorába.
Ezt szeretném módosítani oly módon, hogy az adott dátumnak megfelelő sorba szúrja be az adatokat. (A dátumnak megfelelő sor kiszámított sorszámát az eredeti munkalap egyik (jelen esetben A3) mezője tartalmazza.Úgy néztem, hogy ebben a részben határozza meg, hogy hová is kell beszúrni:
rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$B$290"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())Azaz ezt szeretném úgy módosítani, hogy $B$290 érték helyett a mindenkori kívánt cellába illessze be az adatokat.
Hogy lehet ezt megoldani?
-
róland
veterán
Hali!
Hogyan lehet saját makrót rögzíteni a Calc-ben? (Sajnos, amit a súgója ír, nem működik, mert az ott említett menüpontok egyike sincs bent a legutolsó változatban.)
A probléma a következő:
- adott napon bizonyos típusú szolgáltatások napi értékesítését kellene egy táblázatban elmenteni;
- viszont hosszabb távon nem szeretnénk, hogy a rögzítők lássák a teljes táblázatot, hanem csak az adott nap számait írhassák be;
- így lenne egy űrlap szerű "Adatfelvitel" tábla, melynek végén egy nyomógombra kattintva bemásolná az "Adatsor" tábla aznapi dátumához a rögzítendő adatokat.Hogyan lehetne a problémát megoldani?
-
róland
veterán
Hogy lehet megoldani LibreOffice-ban, hogy naponta ismétlődően ugyanazon űrlapot töltse ki valaki, és az adatok egy táblázatba/adatbázisba kerüljenek? A kitöltés helye fizikailag nem egyezik meg a táblázat helyével. (Intranet összeköttetés van 2 gép között.) A kitöltő nem szerkesztheti a "Végleges" táblázatot.
(Részmegoldásként a Google Űrlapokat fogjuk használni, de szeretnénk házon belül tartani az adatáramlást.)
Új hozzászólás Aktív témák
Hirdetés
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Vékonyabb lett, jobb kamerát kapott, de az akku maradt a régi: itt a Fold7
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Milyen videókártyát?
- Épített vízhűtés (nem kompakt) topic
- Windows 10
- Változó design, tekerhető lünetta: megjött a Galaxy Watch8 és a Classic
- Windows 11
- Digitális Állampolgárság Program DÁP
- Kínai és egyéb olcsó órák topikja
- További aktív témák...
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Sea of Thieves Premium Edition és Egyéb Játékkulcsok.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Apple iPhone 14 128GB , Kártyafüggetlen
- ÁRGARANCIA! Épített KomPhone Ryzen 7 5800X 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Beszámítás! HP Z2 G4 Tower Workstation számítógép garanciával, hibátlan működéssel
- Xiaomi 11T Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- Telefon felvásárlás!! Samsung Galaxy S24/Samsung Galaxy S24+/Samsung Galaxy S24 Ultra
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest