2021年2月2日 星期二

VBA:排序;SORT

 這超級常被使用到的。

完整參數參MSDN:SORT

一般資料排序:降/升:xlDescending/xlAscending

    A_COUNT = ACTIVESHEET.Range("A2000").End(xlUp).Row

    ActiveSheet.Range("A1:Z" & A_COUNT).Sort Key1:=ActiveSheet.Range("A1"), Order1:=xlDescending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _

    :=xlStroke, DataOption1:=xlSortNormal



顏色排序:

MSDN有提供一個例子,小編以MSDN的例子做說明;首先 把C行對應儲存格的顏色代號(ColorIndex;沒顏色則為-4142),都列出後,標上標題(名稱為index),再用C行的數字做排序完成後,在清除C行資料。


這MSDN的這個方法有很多好處歐,因為一般手動顏色排序都是一個 KEY值指定一種顏色,要多顏色實在是要設定很多(有興趣可以自己錄錄巨集,CODE會很嚇人),真要說缺點就是要多一行做資料存放。

沒有留言:

張貼留言

職場毒癌:你憑什麼以為你十年寒窗,抵得我三代從商

你憑什麼以為你十年寒窗,抵得我三代從商——這句話已經記不得是從哪裡看到的,可能是某部劇,也可能是某篇 FB 文章標題。 但最近,特別有感。 為什麼會有這種感觸? 職場上有個同事,一路慢慢升到課長,好歹也是管理職,雖說不上鐵飯碗,但在多數人眼裡也算穩定。 結果呢?輾轉換了兩個製造課...