請問一下Excel VBA可以用Class跟List嗎?

excel vba

小魚 2018-09-15 10:44:06 ‧ 7314 瀏覽

分享至

大概是.Net用久了,
還蠻習慣的,
最近有需求要用Excel VBA,
但是查資料好像沒看到class跟List相關的文章,
所以在Excel VBA裡面沒辦法用class跟List嗎?
麻煩有在使用的大大解答一下,
感恩~

froce iT邦大師 1 級 ‧ 2018-09-15 11:15:04 檢舉

https://excelmacromastery.com/vba-class-modules/
list應該是沒有，有array，畢竟算是上古神器了。

小魚 iT邦大師 1 級 ‧ 2018-09-15 11:42:41 檢舉

上古神器都快生鏽了...
要先決定大小算是致命弱點...

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

q00153

iT邦新手 3 級 ‧ 2018-09-15 15:12:39

最佳解答

俺沒學過 .NET
不過如果是說一般程式語言有的 Class 跟 List
一模一樣的沒有
不過有相同功能的

Class 在 VBA 內是物件類別模組

http://blog.xuite.net/crdotlin/excel/10897249-%E5%A6%82%E4%BD%95%E5%9C%A8+%5B%E7%89%A9%E4%BB%B6%E9%A1%9E%E5%88%A5%E6%A8%A1%E7%B5%84%5D+%E4%B8%AD%E5%AE%9A%E7%BE%A9%E4%B8%80%E5%80%8B%E5%B1%AC%E6%80%A7%E5%8F%8A%E8%A9%B2%E5%B1%AC%E6%80%A7%E4%B9%8B%E5%B1%AC%E6%80%A7%EF%BC%9F

http://e0935487916.ddns.net/svbr8/doc-1080.html

List 有兩個
1.Collection
http://blog.xuite.net/crdotlin/excel/10710083-Collection%E7%89%A9%E4%BB%B6%EF%BC%8C%E5%A5%BD%E7%94%A8
2.Dictionary
http://coding-warehouse.logdown.com/posts/231348-dictionary-object

回應 7
分享
檢舉

看更多先前的回應...收起先前的回應...

小魚 iT邦大師 1 級 ‧ 2018-09-16 00:35:38 檢舉

你那篇物件類別模組看起來像是.Net的,
不是Excel VBA的,
Excel VBA的物件類別模組要再研究,
不過我另外找到Type可以用了,

另外Collection跟Dictionary倒是跟.Net蠻像的,
的確是不錯的東西.

q00153 iT邦新手 3 級 ‧ 2018-09-16 00:54:21 檢舉

小魚大~抱歉抱歉
太粗心了，已經更新物件類別模組的網址，
這次應該沒找錯了~

小魚 iT邦大師 1 級 ‧ 2018-09-16 08:11:01 檢舉

對啊，他怎麼改物件類別模組的名稱的?
為什麼我都找不到地方改?

paicheng0111 iT邦大師 5 級 ‧ 2018-09-16 08:21:05 檢舉

想不到我那不成熟的BLOG文章會在這裡被引用。

我覺得Dictionary比較好用，因為：

Dictionary強制要輸入Key值，Collection則可以忽略Key值。
Dictionary可以利用Exists方法檢查Key值是否已經存在
Dictionary可以利用Item屬性覆蓋或變更已經存在的Item。
Dictionary的Key值可以利用CompareMode屬性設定Case Sensitivity

小魚 iT邦大師 1 級 ‧ 2018-09-16 09:06:45 檢舉

pcw
好的, 感謝~

froce iT邦大師 1 級 ‧ 2018-09-16 11:35:09 檢舉

忘記excel都應該找pcw先問。哈
其實我現在與其寫VBA，我都乾脆盡量丟給python了。

q00153 iT邦新手 3 級 ‧ 2018-09-17 09:16:54 檢舉

小魚大~
在下方的屬性式窗修改
輸入完後按 Enter 就行拉~

登入發表回應

paicheng0111

iT邦大師 5 級 ‧ 2018-09-15 22:04:48

array可以不用先決定大小。
我自己都這樣用：

dim ary as variant

if isarray(ary) then
    redim preserve ary(ubound(ary)+1) as variant
else
    redim ary(0) as variant
end if

ary(ubound(ary))="somevalue"

回應 1
分享
檢舉

小魚 iT邦大師 1 級 ‧ 2018-09-15 23:56:54 檢舉

這樣好像是可以，
速度也沒有說很慢...
之前看到有一篇說改變大小會比較慢.

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22045 篇

完賽人數

594 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙