[Risolto]Ordina colonne
Inviato: giovedì 8 marzo 2018, 13:50
Salve,
le macro le risultano mi sono abbastanza indigeste …
Vorrei ordinare le colonne in base al valore in E1
In E1 "2" ordina in base alla colonna 2
riga incriminata
args5(5).Value = 3 ' colonna C
tipo
args5(5).Value = E1
ma non và
Grazie
le macro le risultano mi sono abbastanza indigeste …
Vorrei ordinare le colonne in base al valore in E1
In E1 "2" ordina in base alla colonna 2
riga incriminata
args5(5).Value = 3 ' colonna C
tipo
args5(5).Value = E1
ma non và

Codice: Seleziona tutto
sub ordina
dim document as object, dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
oSheet = ThisComponent.Sheets(0)
oCursor =oSheet.createCursor
oCursor.gotoEndOfUsedArea(False)
LastRow = oCursor.RangeAddress.EndRow + 1
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$2:$C$" & LastRow
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dim args5(6) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ByRows"
args5(0).Value = true
args5(1).Name = "HasHeader"
args5(1).Value = false
args5(2).Name = "CaseSensitive"
args5(2).Value = false
args5(3).Name = "IncludeAttribs"
args5(3).Value = true
args5(4).Name = "UserDefIndex"
args5(4).Value = 0
args5(5).Name = "Col1"
args5(5).Value = 3 ' colonna C
args5(6).Name = "Ascending1"
args5(6).Value = true
dispatcher.executeDispatch(document, ".uno:DataSort", "", 0, args5())
rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "ToPoint"
args6(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6())
end sub