Új hozzászólás Aktív témák
-
róland
veterán
Ugyan nem Excel, de 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?
http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!
Új hozzászólás Aktív témák
Microsoft Office szaktopicok:
● Microsoft Word topic
● Microsoft Excel topic
● Microsoft Powerpoint topic
● Microsoft Access topic
● Microsoft Outlook topic
● Microsoft Outlook Express topic
Archívumok:
● Microsoft Office 2010
● Microsoft Office 2007
● Microsoft Office 2003
- Multimédiás / PC-s hangfalszettek (2.0, 2.1, 5.1)
- Ukrajnai háború
- Háromféle processzor is része lesz a Core 200 sorozatnak
- Path of Exile (ARPG)
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- Barimel károsultjai
- A fociról könnyedén, egy baráti társaságban
- Milyen billentyűzetet vegyek?
- Politika
- WLAN, WiFi, vezeték nélküli hálózat
- További aktív témák...
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest