返回列表 上一主題 發帖

[發問] 使array() 像 additem一樣增加item

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-9-6 23:28 | 只看該作者

[發問] 使array() 像 additem一樣增加item

就教於各位大大
d(A & "") =Array(A.Offset(, 3).Value, A.Offset(, 4).Value, A.Offset(, 6).Value)
如何使array() 像 additem一樣利用VBA語法來增加item?
謝謝
收藏 分享

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2012-9-6 23:41 | 只看該作者
Sub test()
    Dim a As Range
    Set a = Range("A1")
    Dim d()
    d = Array(a.Offset(, 3).Value, a.Offset(, 4).Value, a.Offset(, 6).Value) '3個值
    ReDim Preserve d(4) '多加兩個空間,保留 第1,2,3個值
    d(3) = "4"
    d(4) = "5"
End Sub
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
3#
發表於 2012-9-7 00:45 | 只看該作者
本帖最後由 yangjie 於 2012-9-7 00:47 編輯

回復 2# kimbal
感激Kimbal
問題為
default1 = wbf.Sheets("暫存").Cells(1, 5)
For i = 1 To 10
        n1(i) = wbf.Sheets("暫存").Cells(i, 6)
        If n1(i) = 0 Then
            s1 = i - 1  's1匯出個數
            Exit For
        End If
Next
Dim d As Object
    Dim a As Range
    Set d = CreateObject("Scripting.Dictionary")
     With Workbooks(str1).Sheets(sh1)
        For Each a In .Range(.[2,default1], .[65536,default1].End(xlUp))
            d(a & "") = Array(a.Offset(, n1(1)-default1).Value, a.Offset(,  n1(2)-default1).Value] ,---共s1個)
        Next
    End With
    應如何修改紅色那一行之語法?

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
4#
發表於 2012-9-7 02:54 | 只看該作者
回復 2# kimbal
感激Kimbal  2# 的教導
我另外用您的方法加一個 array   d1( )  以 d1(1),d1(2),d1(3)方式增加array內items
然後 d(a & "") = d1
解決了我的問題
如下  
    Dim d As Object
    Dim a As Range
    Set d = CreateObject("Scripting.Dictionary")
    With Workbooks(str1).Sheets(sh1)
        For Each a In .Range(.Cells(2, default1), .Cells(65536, default1).End(xlUp))
            Dim d1()
            d1 = Array(a.Offset(, n1(1) - default1).Value)
            If s1 > 1 Then
                For i = 2 To s1
                    ReDim Preserve d1(i - 1)
                    d1(i - 1) = a.Offset(, n1(i) - default1).Value
                Next
            End If
            d(a & "") = d1
        Next
    End With
供大家參考指教   
綜合多天來 在各帖指導
謝謝 Kimbal  & Hsieh & GBKEE  三位大大

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
返回列表 上一主題