エクセルVBAのカスタムソート順序

図1は、ソートされたデータセットであることが
カスタムアプリケーション配列、次のサンプルコードを追加する方法を使用するソートAddCustomListニーズに記載E6シーケンスセット：セル範囲によってE2を所望であれば、図1の濃度に示すデータ、。

Sub SortByLists()
     Dim avntList As Variant, lngNum As Long
     avntList = Range("E2:E6")
     Application.AddCustomList avntList
     lngNum = Application.GetCustomListNum(avntList)
     Range("A1").Sort Key1:=Range("A1"), _
         Order1:=xlAscending, Header:=xlYes, _
         OrderCustom:=lngNum + 1
     Application.DeleteCustomList lngNum
 End Sub

図2のソート結果

カスタムアプリケーションのシーケンスを追加するには、ApplicationオブジェクトのAddCustomListメソッドのコードの4行目。カスタムAddCustomListのオートフィル（またはカスタムオーダー）の方法は、カスタムリストの構文は以下の通りである追加します。

AddCustomList（一覧アレイ、ByRow）

ListArrayパラメータが必要とされる、対象範囲の文字列またはアレイであってもよいです。ByRowパラメータはオプションであり、場合にのみ、ListArray Rangeオブジェクトを使用しています。Trueの場合、各ラインの領域を使用してカスタムリストを作成し、Falseの場合は、その後、使用の各カラム領域は、カスタムリストを作成します。省略し、複数の列の数よりも領域の行数（または列が列の数に等しい）場合、領域を使用してMicrosoft Excelの各列は、カスタムリストを作成します。このパラメータを省略すると、行数よりも地域内の列の数されている場合は、それぞれの行は、エリアを使用してMicrosoft Excelのあるカスタムリストを作成します。

すでに存在するリストを追加したい場合は、AddCustomListメソッドは動作しません。

返される配列avnListカスタムシーケンス内の行番号5。

6行目のセットは、タイトルが含まれており、カスタムシーケンスインデックスが新しく追加されたの数でソートを指定しながら、パラメータ指定する最初の並べ替えキー1キーワードは、デフォルトでは、昇順である現在のデータを使用してソートソート方法。

注：パラメータを指定OrderCustom整数オフセット1からのシリアル番号に基づいて定義されるように、1に基づいて指定されたパラメータでカスタムソート順リストに追加されます。

9行目DeleteCustomListコードが新しく追加されたを削除するカスタムシリアライゼーション・メソッドを使用しています。

マイクロチャンネル公共数：VBA168

淘宝網の店の住所：https://item.taobao.com/item.htm?spm=a1z10.1-cs.w4004-21233576391.4.1af0683dzrx3oU&id=584940166162

毎日を説明するために、Excel VBAの古典的な例を受信する時間におけるマイクロチャネルパブリック番号、に焦点を当てています。

淘宝網は、カスタマイズされたサービスExcelを提供する店。

私はあなたの仕事と簡単に学習したいです！