タイトル : Re^3: ArrayListの定義 投稿日 : 2013/06/29(Sat) 23:44 投稿者 : VBレスキュー(花ちゃん)
>でも、行の追加、削除するとソートなどかなり面倒くさい。 http://www.hanatyan.sakura.ne.jp/vbhlp/fil_Sort.htm > >Dim col As VBA.Collection > >Set ar = CreateObject("System.Collections.ArrayList") > ちょっと足りないかなー 意味が解らないけど > アドバイスお願いします。 魔界の仮面弁士さんがコードを掲載されておられますが。 下記のようにでも書けばいいのですか? 'Common Language Runtime Library を参照設定してから Private Sub Command1_Click() 'Dim ar As Object '参照設定しないなら 'Set ar = CreateObject("System.Collections.ArrayList") Dim ar As New ArrayList '参照設定したなら Dim vList As Variant ar.Add "Item2" ar.Add "Item4" ar.Add "Item1" ar.Add "Item3" ar.Sort For Each vList In ar Debug.Print vList Next ar.Reverse For Each vList In ar Debug.Print vList Next End Sub http://msdn.microsoft.com/ja-jp/library/system.collections.arraylist.aspx |