|
>1)「ユーザー設定リスト」を定義しなくてはいけない
これは、マクロ記録でできますよね。
以下、マクロ記録とヘルプより
追加したものは、1番最後のものだから、
Application.AddCustomList ListArray:=Array("AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH")
MsgBox "OrderCustomは、" & Application.CustomListCount & "番目"
リストから探す場合は、こんな感じになると思います。
ですが、全く同じのもを探すのは、こんな簡単じゃないと思います。
また、すでにあるのかの確認も必要かも知れませんね。
必要なくなったら削除するとかも必要?
For i = 1 To Application.CustomListCount
ListArray = Application.GetCustomListContents(i)
TT = TT + 1
For ii = LBound(ListArray, 1) To UBound(ListArray, 1)
ct = ct + 1
Cells(ct, 1).Value = ListArray(ii)
Cells(ct, 2).Value = TT
If ListArray(ii) = "AA" Then
MsgBox "OrderCustomは、" & i
'Exit For
End If
Next
Next
|
|