Deselecteren van cellen na sorteren in LibreOffice Calc

Status
Niet open voor verdere reacties.

Abx

Gebruiker
Lid geworden
24 dec 2021
Berichten
16
Goedemiddag,

Ik heb een macro voor het sorteren van cellen, maar deze blijven geselecteerd bij het einde van de macro.
De geselecteerde cellen voor sorteren zijn van A3 tot L50. Er wordt gesorteerd op de cellen K3 tot K50.
Zie macro hieronder:

[FONT=&amp]REM ***** BASIC *****[/FONT]

[FONT=&amp]sub Main[/FONT]
[FONT=&amp]rem ----------------------------------------------------------------------[/FONT]
[FONT=&amp]rem define variables[/FONT]
[FONT=&amp]dim document as object[/FONT]
[FONT=&amp]dim dispatcher as object[/FONT]
[FONT=&amp]rem ----------------------------------------------------------------------[/FONT]
[FONT=&amp]rem get access to the document[/FONT]
[FONT=&amp]document = ThisComponent.CurrentController.Frame[/FONT]
[FONT=&amp]dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")[/FONT]

[FONT=&amp]rem ----------------------------------------------------------------------[/FONT]
[FONT=&amp]dim args1(0) as new com.sun.star.beans.PropertyValue[/FONT]
[FONT=&amp]args1(0).Name = "ToPoint"[/FONT]
[FONT=&amp]args1(0).Value = "$A$3:$L$50"[/FONT]

[FONT=&amp]dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())[/FONT]

[FONT=&amp]rem ----------------------------------------------------------------------[/FONT]
[FONT=&amp]dim args2(7) as new com.sun.star.beans.PropertyValue[/FONT]
[FONT=&amp]args2(0).Name = "ByRows"[/FONT]
[FONT=&amp]args2(0).Value = true[/FONT]
[FONT=&amp]args2(1).Name = "HasHeader"[/FONT]
[FONT=&amp]args2(1).Value = false[/FONT]
[FONT=&amp]args2(2).Name = "CaseSensitive"[/FONT]
[FONT=&amp]args2(2).Value = false[/FONT]
[FONT=&amp]args2(3).Name = "NaturalSort"[/FONT]
[FONT=&amp]args2(3).Value = false[/FONT]
[FONT=&amp]args2(4).Name = "IncludeAttribs"[/FONT]
[FONT=&amp]args2(4).Value = true[/FONT]
[FONT=&amp]args2(5).Name = "UserDefIndex"[/FONT]
[FONT=&amp]args2(5).Value = 0[/FONT]
[FONT=&amp]args2(6).Name = "Col1"[/FONT]
[FONT=&amp]args2(6).Value = 11[/FONT]
[FONT=&amp]args2(7).Name = "Ascending1"[/FONT]
[FONT=&amp]args2(7).Value = false[/FONT]

[FONT=&amp]dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, args2())[/FONT]

[FONT=&amp]end sub[/FONT]

Hopelijk kan iemand mij helpen?
Alvast bedankt.
 
Laatst bewerkt:
Probeer dit eens:
Code:
dispatcher.executeDispatch(document, ".uno:Deselect", "", 0, args2())
 
Deze heb ik als laatste toegevoegd en werkt perfect.
De cel A3 blijft nog wel actief. Kan ik dat wijzigen naar bv. cel A1?
 
Ik gebruik het zelf helemaal niet, maar probeer dit eens:
Code:
ThisComponent.CurrentController.Select("A1")
 
Als ik deze als laatst regel invoeg blijft alles hetzelde als daarvoor.
 
Dan kan ik je er verder helaas ook niet bij helpen.
Iemand anders misschien.
 
Eerste regel werkt perfect.
Alleszins bedankt.
 
Als ik deze als laatst regel invoeg blijft alles hetzelde als daarvoor.

Probeer eens:

Code:
ThisComponent.CurrentController..ActiveSheet.GetCellRangeByName("A1"))
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan