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

• #714 izmoswp újonc

  Új Válasz 2017-11-23 20:35:50 #714

  Ú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

  

  izmoswp

  újonc

  Sziasztok csináltem egy ilyen táblázatot
  B oszlopba lefelé seria számok vannak mellette lévő oszlopba beirja az időt mellé azt hogy OK/NOK
  és a megjegyzés.

  Van egy debug és egy result fül
  Debug fülön ha beirom amit keresk sn számot rányomok a keres gombra keresse meg nekem a táblázat összes fülön jelen esetbe a user1/user2/user3 és ha megtalálta akkor jelölje ki azt a sort és másolja át result fül x oszlopába user fül alá meg irja oda hogy meik táblába találta user 1 vagy user2 vagy user 3

  táblázat amiről szó van: [link]
  Előre is köszi segitségeteket

  kijelölés és másolás ugytudom hogy erre az jo
  sub j2
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 = "$A$7:$E$7"

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

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

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

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

rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$A$2"

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

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())


end sub

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