Forum IDG.pl - miejsce dyskusji o IT: sortowanie w excelu - Forum IDG.pl - miejsce dyskusji o IT

Witam,

jak posortować dane w kolumnach niezależnie od drugiej kolumny, chodzi mi o to że jak zaznaczam np. 200 kolumn i daje sortuj to sortuje mi względem pierwszej(lub tej którą wybiore) i tylko w tej jest posortowane, a nie chce mi sie każdej kolumny oddzielnie sortować

Napisałem makro, które sortuje po kolei każdą kolumnę.
W tym wypadku sortowane są niezależnie kolumna A od wiersza 1 do 6 i tak samo kolumna B. Jeśli mamy do 20 kolumn to można po prostu powielić 4 linijki kodu dla każdej kolumny, jeśli więcej to lepszym rozwiązaniem bedzie pętla for.
W tym przykładzie sortowanie jest rosnące, jesli chcemy mieć malejące skorzystamy z SortDescending zamiast SortAscending.

sub Main
rem definiowanie zmiennych
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem dostep do dokumentu
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1(0) as new com.sun.star.beans.PropertyValue

rem kolumna A
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1:$A$6"

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

rem kolumna B
args1(0).Name = "ToPoint"
args1(0).Value = "$B$1:$B$6"

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

end sub

bardzo diekuje za zainteresowanie moim problemem lecz odpalając to makro wyskakuje mi błąd "Compile error: Sub or Function not defined"

Makro powinno bez problemu działać. Załączam gotowy dokument.

http://openoffice.co.../sortowanie.ods

Witam, Mam pytanie, jak dokonać sortowania kolumny, w której znajdują sie imiona i nazwiska zapisane np. Adam Kowalski, by posortowac według nazwiska?
Z góry dziekuję za odpowiedź
Pozdrawiam