Results of 1 - 1 of about 8934 for リスト (0.007 sec.)
- [[20081127203940]]
- #score: 2746
- @digest: 23c113bafa0e049ad6f022e35904b94f
- @id: 41057
- @mdate: 2008-11-27T12:26:48Z
- @size: 1644
- @type: text/plain
- #keywords: 義リ (27151), getcustomlistnum (11199), 囲). (7162), listnum (5713), deletecustomlist (4987), 数to (4605), listarray (4419), 除ne (3409), ヒロ (3332), 理ap (2572), トen (2261), 数> (2136), ー定 (1418), リス (1350), ロ) (1324), ト処 (1286), 不定 (1097), ト= (1029), 定義 (1028), 囲= (1025), （ヒ (987), で登 (942), 囲) (885), スト (878), ユー (862), ソー (841), ーザ (841), ザー (820), 定期 (812), ト) (700), 準で (691), 件数 (642)
- 『VBA ユーザー定義リストの削除』（ヒロ）
Excel2000 WindowsXP いつもお世話になっております。 VBAでソートを行っているのですが、その際、 不定期に変更になるユーザー定義リストを使って並べ替えております。 そのまま使っていくと、ユーザー定義リストがどんどん増えていってしまうので、 標準で登録されているもの以外を、終了時に自動で削除するようなことはできますでしょうか? 標準で登録されている並べ替えの定義リストは11あるので、 11以降を全て消去したいのですが、探し方が悪いのでしょうか・・・ いろいろ検索しても見つからないんです・・・どう探したらよいのでしょうか? w範囲 = "A2:A" & Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row On Error Resume Next Application.AddCustomList listarray:=Worksheets("Sheet1").Range(w範囲) On Error GoTo 0 NN = Application.GetCustomListNum(Worksheets("Sheet1").Range(w範囲).Value) + 1 ↑こんな感じで、どんどん登録されていきます。 しかも、同じ範囲でも順番が入れ替わることもあり、増える一方なのです。 イメージとしては、 If ユーザー定義リストの件数 > 11 Then For リスト = ユーザー定義リストの件数 To 11 Step -1 ユーザー定義リスト(リスト) を削除 Next リスト End If こんな感じなのでしょうか? よろしくお願いします。 ---- あ、すみません＞＜ やり方、見つかりました。 たぶん・・・・ やってみて、またわからなかったら、質問いたします。 （ヒロ） ---- ソートが完了するたびに、リストを削除することで解決しました。 NN = Application.GetCustomListNum(Worksheets("Sheet1").Range(w範囲).Value) ソート処理 Application.DeleteCustomList ListNum:=NN ←これが探せなかった＞＜ これにて解決です。 お騒がせしましたm(_ _)m (ヒロ)... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200811/20081127203940.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97065 documents and 608342 words.
訪問者：