如何加資料 - Excel程式區 - 麻辣家族討論版版

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

21^# 跳轉到 »

發表於 2011-1-7 20:21 | 只看該作者

本帖最後由 Hsieh 於 2011-1-7 20:27 編輯

回復 20# FAlonso
首先我必須先佩服的求知態度
記得當初剛接觸陣列與dictionary物件時，也有著跟你相同的疑惑
但我就是不求甚解的個性，就把TRANSPOSE函數作為處理陣列問題的方法而已
今天遇到您提出疑問，那就讓我們一起來探討他的奧秘吧!
以下是我個人對陣列與dictionary的理解方式
提供您做參考
若有不是之處，還請各位前輩指正

1.Range("A1:A4")算不算是一個陣列?
是陣列，而且是二維陣列
以下列程式碼測試該陣列狀態

Sub Ex()
Dim j%, i%, Ar As Variant
On Error Resume Next
Ar = [A1:A4]
Do Until j > 2 'j為計算轉置次數的變數
MsgBox IIf(IsArray(Ar), "ar是陣列", "ar不是陣列") '是否為陣列
i = 1
Do Until Err.Number > 0
i = i + 1
k = UBound(Ar, i)
Loop
MsgBox "此陣列為" & i - 1 & "維陣列" & Chr(10) & "被轉置" & j & "次" '第一維上限(列數)
Err.Clear
Ar = Application.Transpose(Ar)
j = j + 1
Loop
End Sub

複製代碼

2.為什麼打直的格子,一次transpose就可以,打橫的要兩次?
那是因為join的引數必須是一維陣列

3.d(mystr) = d(mystr) + A.Offset(, 4).Value這句是怎解釋,為什麼可以作累加的作用?
因為dictionary物件，你可以直接視為陣列，當中的mystr就是索引值(一般陣列會是數值,在此是除了陣列型態以外的任何資料型態)，代表此物見某個元素的指定索引
d(mystr)就是d這個物件的mystr位置的那個元素
d(mystr) = d(mystr) + A.Offset(, 4).Value
變數(新值)=變數(原值)+常數
就好比一個變數了，所以自然就能計算累加值

學海無涯_不恥下問

TOP

FAlonso

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

22^#

發表於 2011-1-7 23:05 | 只看該作者

第二個問題先擱下不表
第三個問題是否指先把mystr注冊在dictionary的index,d(mystr),而該index的default資料為 = 0(即 d(mystr)=0), 再引以offset(,4)計數?還有dictionary照理說應該是幾D array?

感覺愈來愈近真相!

80 字節以內
不支持自定義 Discuz! 代碼

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

23^#

發表於 2011-1-7 23:39 | 只看該作者

Dictionary物件當加入KEY的同時即產生對應該KEY的值為Empty的初始值
整個物件當可視為二維陣列
其第一維則是該物件的數量
其第二維則是該物件的keys與items
該陣列大小表示如下:
ThisArray(d.count,2)
但你無法以INDEX指定該陣列
因為這只是將其視為二維陣列
但實際上他是2個縱列的陣列合起來
所以一般應用上會以其Key直接指定到對應的Item

學海無涯_不恥下問

TOP

b9208

中學生 Rank: 2

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

24^#

發表於 2011-1-8 07:37 | 只看該作者

感謝各位先進
之前針對dictionary & transpose 總是不太了解
看完本文章後，總算比較了解其用法了。

100 字節以內
不支持自定義 Discuz! 代碼

TOP

linshin1999

中學生 Rank: 2

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

25^#

發表於 2011-1-8 11:22 | 只看該作者

本帖最後由 linshin1999 於 2011-1-8 11:26 編輯

回復 16# basarasy

變數要用Object嗎?
Dim d as Object ??

Dim d '建立一個變數
Set d = CreateObject(Scripting.Dictionary)

VBA 中變數的宣告不明確說明型別為何時,它的型別就是 Variant 它的意思就是什麼型態都可以,
1)有好處:就 Scripting.Dictionary 來講,它要處厘跟著來的陣列所以它的型別會跟著後面的陣列跑,它的型別就一定要是 Variant ,如果没有 variant 這個型別, Dictionary 就不存在了 .
2)有缺點:就是不明確,對於習慣明確型別的人會很不習慣,我也是這樣.

今天再回頭讀 Hsieh 版主和 TAlonso 精彩的論述,才注意到有這則回復,真不好意思.

回復 24# b9208

太精彩了,我也來加碼.

V98

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 253
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-22

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

26^#

發表於 2011-1-8 13:18 | 只看該作者

回復 25# linshin1999
dim d as object
這是正確宣告，dictionary他是個物件所以宣告為物件沒錯
dictionary這個物件不會因為他的key與item產生資料型態變化
你可將此物件看成一個容器，此容器的內容物並不會改變此容器本身的性質

所以VBA說明中提到
dictionary物件，其key式除了陣列以外的任何資料型態，而item則可為任何形態的資料。
一個關鍵字可對應任何的資料，這是此物件的特性。

學海無涯_不恥下問

TOP

FAlonso