vbaのすべてのカスタムソートリストを削除するには？

Question

vba excelのカスタム並べ替えリストをすべて削除（=可変数）したいが、どこでも正しい構文を見つけることができない。

私は2つのオプションを知っている：

1書き込みautomatticallyすべてのカスタムsortlistsを削除するコマンド、これはこれで私の試みだった：

Application.DeleteCustomList() 

の数を返すコマンドを書く2.Aカスタムsortlists = B

2.Bし、手動でカスタムsortlistsと削除：

2.B.1：

for del = 0 to b 
    Application.DeleteCustomList (del) 
next del 

2.B.2：

for del = 1 to b 
    Application.DeleteCustomList (del) 
next del 

2.C

For delete_lists = 100 To 0 Step -1 
    On Error Resume Next 'delete_list 
    Application.DeleteCustomList (delete_lists) 
Next delete_lists 

は誰がゴールを達成するために（NY）の機能方法を知っていますか？

大切にしてください。

Answer 1

問題は、Excelでは、既存のカスタムカスタムリストを削除したくないということです。 Excelには4つありますが、それはあるバージョンと次のバージョンで異なる場合があります。

（曜日、月、等...あなたは「ファイル」に行く場合は、「オプション」、「詳細オプション」、そして下の「編集通関リスト」で）

私はあなたを考えます最も安全な賭けは、エラー時に次を再開することです：

Sub test() 
On Error Resume Next 
Dim i As Long 
For i = 1 To Application.CustomListCount 
    Application.DeleteCustomList (i) 
Next i 

On error GoTo 0 
    End Sub 

それとも手続きを扱ういくつかのエラーを持っている場合errHandlerに行く - それ以外の場合は、あなたが望むものではないかもしれないあなたの全体のスクリプトについては、次の再開可能性があるため。