【Excel】ユーザー設定リストの何番目かを取得

質問

ユーザー設定リストの何番目に登録されているかマクロを使って調べたいのです。

Excelのバージョンは2003と2007です。

マクロは不慣れなため、どのように記述したらよろしいでしょうか。

宜しくお願いいたします。

回答No.2

watabe007 · ベストアンサー

>ユーザー設定リストの何番目に登録されているか
Sub Test2()
　　Dim n As Long, i As Long, j As Long
　　Dim listArray As Variant

　　With Application
　　　　'リスト数を取得
　　　　n = .CustomListCount
　　　　For i = 1 To n
　　　　　　'ユーザー設定リストを文字列の配列を取得
　　　　　　listArray = Application.GetCustomListContents(i)
　　　　　　MsgBox i + 1 & "番目" & vbCrLf & Join(listArray, ",")
　　　　Next
　　End With
End Sub
'※1番目は"標準"が設定されています。

お礼

watabe007さん、二度もありがとうございます。
No.2の方法を利用して行ったらできました！
大変助かりました。
ありがとうございます。

回答No.1

watabe007

A1セルから全リストを書き出しました。

Sub Test()
　　Dim n As Long, i As Long, j As Long
　　Dim listArray As Variant

　　With Application
　　　　'リスト数を取得
　　　　n = .CustomListCount
　　　　For i = 1 To n
　　　　　　listArray = Application.GetCustomListContents(i)
　　　　　　For j = LBound(listArray, 1) To UBound(listArray, 1)
　　　　　　　　Cells(j, i).Value = listArray(j)
　　　　　　Next
　　　　Next
　　End With
End Sub