Új hozzászólás Aktív témák

• #988 róland veterán

  Új Válasz 2014-10-17 16:19:59 #988

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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 sub

  A 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?

Új hozzászólás Aktív témák