タイトル : Re^4: ArrayListの定義 投稿日 : 2013/06/30(Sun) 12:28 投稿者 : GC
VBレスキュー(花ちゃん)、ご回答ありがとうございます > >でも、行の追加、削除するとソートなどかなり面倒くさい。 > http://www.hanatyan.sakura.ne.jp/vbhlp/fil_Sort.htm > ありがとう、見てみます。 > > >Dim col As VBA.Collection > > >Set ar = CreateObject("System.Collections.ArrayList") > > ちょっと足りないかなー > 意味が解らないけど > 説明が不足ですが、すみません。 言いたいことは、例で説明いたします。 1.構造体 Public Type Excel_Str tem1 As String tem2 As String tem3 As String tem4 As String tem5 As String End Type Public ExcelStr() As Excel_Str mnExcel_n=10 ReDim ExcelStr(mnExcel_n) 2. for i=0 to 8 ExcelStr(i).tem1 = "Item2" & i ExcelStr(i).tem2 = "Item2" & i ExcelStr(i).tem3 = "Item2" & i ExcelStr(i).tem4 = "Item2" & i ExcelStr(i).tem5 = "Item2" & i Next i 3. 3行目に挿入する場合 今の現状では最後に追加するしかない。 ExcelStr(8).tem1 = "Item2" & 4 ExcelStr(8).tem2 = "Item2" & 4 ExcelStr(8).tem3 = "Item2" & 4 ExcelStr(8).tem4 = "Item2" & 4 ExcelStr(8).tem5 = "Item2" & 4 4. sortedする 以上は、構造体配列のやりかたです。 5.したいことは ExcelStr(8).tem1 = "Item2" & 4 .tem2 = "Item2" & 4 .tem3 = "Item2" & 4 .tem4 = "Item2" & 4 .tem5 = "Item2" & 4 一行の中に5個.tem1、.tem2、.tem3、.tem4., tem5があります。 単に >'Set ar = CreateObject("System.Collections.ArrayList") で使うと、5個.tem1、.tem2、.tem3、.tem4., tem5が入れる場所がないです。 いい方法がないでしょうか? よろしくお願いします |