返回列表 上一主題 發帖

變動陣列固定陣列不是以dim和redim區份?

rick4615

帖子
16 
主題
3 
精華
0 
積分
25 
點名
0  
作業系統
winXP 
軟體版本
2007 
閱讀權限
10 
性別
男 
註冊時間
2013-8-9 
最後登錄
2013-11-12 
1# 跳轉到 »
發表於 2013-8-16 15:19 | 顯示全部帖子
回復 3# Hsieh



請問版主  我現在想做動態陣列 (依資料之欄數、列數改變陣列維數)
格式大概如下


1     listname 1       listname2      listname3    <- 這列始終保留
2    itemA               itemB              itemC
3    itemD              itemE               itemF
4    itemG              itemH              itemI


每個陣列都需要要listname這列 並且每個陣列加入第2列或第3列或第四列
並且可能以某個變數(假設為i)做呼叫
這樣是否可以用redim preserve的方法進行呢??

TOP

rick4615

帖子
16 
主題
3 
精華
0 
積分
25 
點名
0  
作業系統
winXP 
軟體版本
2007 
閱讀權限
10 
性別
男 
註冊時間
2013-8-9 
最後登錄
2013-11-12 
2#
發表於 2013-8-16 16:11 | 顯示全部帖子
本帖最後由 rick4615 於 2013-8-16 16:14 編輯

回復 6# Hsieh

抱歉@@ 我沒有講清楚

我現在大概是做到這樣  
   test.rar (30.22 KB)
先新增checkbox  看打勾幾個checkbox 並且將checkbox對應之欄位進行輸出的動作
現在是需要將標題 (姓名、身高、體重、腰圍)
與內容(王小明、170、80、34)
做成一個陣列 2* i 之陣列 (i為checkbox打勾的數量)
並且始終保持標題列 內容依情形更改

婀 我這樣講有比較清楚嗎@@ 小弟我不是很擅長表達 QQ
也感謝您的解答 :)

TOP

rick4615

帖子
16 
主題
3 
精華
0 
積分
25 
點名
0  
作業系統
winXP 
軟體版本
2007 
閱讀權限
10 
性別
男 
註冊時間
2013-8-9 
最後登錄
2013-11-12 
3#
發表於 2013-8-19 09:13 | 顯示全部帖子
本帖最後由 rick4615 於 2013-8-19 09:14 編輯

回復 8# Hsieh

QQ 看了忘記回
婀 我不太懂清單內容是什麼
不過我後來以自己的方法寫出來了
也附上小弟的寫法@@

ReDim Myarray(1, q - 1) As Variant

of = 2
   
    For c = 4 To items + of
        i = 1
        a = 0
        For Each CK In ActiveSheet.OLEObjects   '1 next
            If CK.Name Like "CheckBox*" Then    '2 end 判斷checkbox
                If CK.Object.Value = True Then  '3 end 判斷true/false
                    If q > 1 Then
                            Myarray(0, a) = Cells(3, i)
                            Myarray(1, a) = Cells(c, i)
                            a = a + 1
                    End If
                End If
                i = i + 1
            End If
        Next
        Csvgo.writetext Myarray(0, 0) & "," & Myarray(0, 1) & vbCrLf & Myarray(1, 0) & "," & Myarray(1, 1) & vbCrLf
    Next c

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題