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=&]REM ***** BASIC *****[/FONT]
[FONT=&]sub Main[/FONT]
[FONT=&]rem ----------------------------------------------------------------------[/FONT]
[FONT=&]rem define variables[/FONT]
[FONT=&]dim document as object[/FONT]
[FONT=&]dim dispatcher as object[/FONT]
[FONT=&]rem ----------------------------------------------------------------------[/FONT]
[FONT=&]rem get access to the document[/FONT]
[FONT=&]document = ThisComponent.CurrentController.Frame[/FONT]
[FONT=&]dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")[/FONT]
[FONT=&]rem ----------------------------------------------------------------------[/FONT]
[FONT=&]dim args1(0) as new com.sun.star.beans.PropertyValue[/FONT]
[FONT=&]args1(0).Name = "ToPoint"[/FONT]
[FONT=&]args1(0).Value = "$A$3:$L$50"[/FONT]
[FONT=&]dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())[/FONT]
[FONT=&]rem ----------------------------------------------------------------------[/FONT]
[FONT=&]dim args2(7) as new com.sun.star.beans.PropertyValue[/FONT]
[FONT=&]args2(0).Name = "ByRows"[/FONT]
[FONT=&]args2(0).Value = true[/FONT]
[FONT=&]args2(1).Name = "HasHeader"[/FONT]
[FONT=&]args2(1).Value = false[/FONT]
[FONT=&]args2(2).Name = "CaseSensitive"[/FONT]
[FONT=&]args2(2).Value = false[/FONT]
[FONT=&]args2(3).Name = "NaturalSort"[/FONT]
[FONT=&]args2(3).Value = false[/FONT]
[FONT=&]args2(4).Name = "IncludeAttribs"[/FONT]
[FONT=&]args2(4).Value = true[/FONT]
[FONT=&]args2(5).Name = "UserDefIndex"[/FONT]
[FONT=&]args2(5).Value = 0[/FONT]
[FONT=&]args2(6).Name = "Col1"[/FONT]
[FONT=&]args2(6).Value = 11[/FONT]
[FONT=&]args2(7).Name = "Ascending1"[/FONT]
[FONT=&]args2(7).Value = false[/FONT]
[FONT=&]dispatcher.executeDispatch(document, ".unoataSort", "", 0, args2())[/FONT]
[FONT=&]end sub[/FONT]
Hopelijk kan iemand mij helpen?
Alvast bedankt.
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=&]REM ***** BASIC *****[/FONT]
[FONT=&]sub Main[/FONT]
[FONT=&]rem ----------------------------------------------------------------------[/FONT]
[FONT=&]rem define variables[/FONT]
[FONT=&]dim document as object[/FONT]
[FONT=&]dim dispatcher as object[/FONT]
[FONT=&]rem ----------------------------------------------------------------------[/FONT]
[FONT=&]rem get access to the document[/FONT]
[FONT=&]document = ThisComponent.CurrentController.Frame[/FONT]
[FONT=&]dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")[/FONT]
[FONT=&]rem ----------------------------------------------------------------------[/FONT]
[FONT=&]dim args1(0) as new com.sun.star.beans.PropertyValue[/FONT]
[FONT=&]args1(0).Name = "ToPoint"[/FONT]
[FONT=&]args1(0).Value = "$A$3:$L$50"[/FONT]
[FONT=&]dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())[/FONT]
[FONT=&]rem ----------------------------------------------------------------------[/FONT]
[FONT=&]dim args2(7) as new com.sun.star.beans.PropertyValue[/FONT]
[FONT=&]args2(0).Name = "ByRows"[/FONT]
[FONT=&]args2(0).Value = true[/FONT]
[FONT=&]args2(1).Name = "HasHeader"[/FONT]
[FONT=&]args2(1).Value = false[/FONT]
[FONT=&]args2(2).Name = "CaseSensitive"[/FONT]
[FONT=&]args2(2).Value = false[/FONT]
[FONT=&]args2(3).Name = "NaturalSort"[/FONT]
[FONT=&]args2(3).Value = false[/FONT]
[FONT=&]args2(4).Name = "IncludeAttribs"[/FONT]
[FONT=&]args2(4).Value = true[/FONT]
[FONT=&]args2(5).Name = "UserDefIndex"[/FONT]
[FONT=&]args2(5).Value = 0[/FONT]
[FONT=&]args2(6).Name = "Col1"[/FONT]
[FONT=&]args2(6).Value = 11[/FONT]
[FONT=&]args2(7).Name = "Ascending1"[/FONT]
[FONT=&]args2(7).Value = false[/FONT]
[FONT=&]dispatcher.executeDispatch(document, ".unoataSort", "", 0, args2())[/FONT]
[FONT=&]end sub[/FONT]
Hopelijk kan iemand mij helpen?
Alvast bedankt.
Laatst bewerkt: