請問 VBA 如何 add Object 到 ArrayList "ArrayList.Add(Object)" - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問 VBA 如何 add Object 到 ArrayList "ArrayList.Add(Object)"

返回列表下一主題上一主題發帖

[發問] 請問 VBA 如何 add Object 到 ArrayList "ArrayList.Add(Object)"

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2013-12-19 09:15 | 顯示全部帖子

回復 1# solitary0720
試試看用物件類別模組取代 User-Defined Type

定義物件類別模組Test

Public Name As String
Public Num As Integer
Public Bool As Boolean

複製代碼

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2013-12-19 12:57 | 顯示全部帖子

本帖最後由 stillfish00 於 2013-12-19 13:01 編輯

回復 3# solitary0720
是指 VBA project 插入物件類別模組後，Class1 改名稱為 Test，填上

Public Name As String
Public Num As Integer
Public Bool As Boolean

複製代碼

因為我不知道ArrayList在設定引用項目要勾選哪個
故改用CreateObject去late-binding，
一般模組中:

Public ArrList As Object 'New ArrayList
Function Body() As String
Dim Test_1 As Test
Set ArrList = CreateObject("system.collections.arraylist")
Set Test_1 = New Test
Test_1.Name = "sophia"
ArrList.Add Test_1
End Function

複製代碼

話說回來，一般VBA中比較常見的不是 arraylist ，而是用 array 或 dictionary。

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 2013-12-19 22:32 | 顯示全部帖子

回復 6# solitary0720
If ArrList(3) is Nothing Then

靜思自在 : 世上有兩件事不能等：一、孝順二、行善。

返回列表下一主題上一主題