麻辣家族討論版版 » Excel程式區 » 請問二維常數陣列用vba該如何寫？

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

請問二維常數陣列用vba該如何寫？

中學生 Rank: 2

帖子: 32
主題: 10
精華: 0
積分: 68
點名: 0
作業系統: win xp
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 南投縣
註冊時間: 2010-9-28
最後登錄: 2019-10-4

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-10-9 07:51 | 只看該作者

請問二維常數陣列用vba該如何寫？

各位前輩大家好：向各位請教二維常數陣列的寫法。
[Range].FormulaArray = "={1,2,3;4,5,6}"，這種寫法不是我要的，我要的是例如:
一維陣列的寫法：array (1,2,3)
二維陣列該如何寫？：array((1,2,3);(4,5,6))這寫法似乎行不通，請各位大大賜教，謝謝！！

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2012-10-9 10:17 | 只看該作者

回復 1# sptakung1

要看你陣列的用途可能有不同做法
用個簡單例子你參考看看

Sub nn()
ar1 = Array(1, 2, 3, 4, 5)
ar2 = Array(6, 7, 8, 9, 10)
ar = Array(ar1, ar2)
MsgBox Application.HLookup(3, ar, 2, 0)
End Sub

複製代碼

學海無涯_不恥下問

小學生 Rank: 1

帖子: 13
主題: 1
精華: 0
積分: 18
點名: 0
作業系統: Win7
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: Taipei
註冊時間: 2012-9-29
最後登錄: 2012-10-10

3^#

發表於 2012-10-9 10:50 | 只看該作者

是否類似這樣?

Dim m(2, 2)
m(1, 1) = 1 : m(2, 1) = 3
m(1, 2) = 2: m(2, 2) = 4

複製代碼

很多事情，開始做了之後才發現很簡單，
真正難的是怎麼完美地發揮自身的狀態。

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2012-10-9 11:00 | 只看該作者

本帖最後由 c_c_lai 於 2012-10-9 11:02 編輯

回復 1# sptakung1
引用 Hsieh 版大的範例，也可以直接取值。

Sub nn2()
ar = Array(Array(1, 2, 3, 4, 5), Array(6, 7, 8, 9, 10))
MsgBox "Application.HLookup(3, ar, 2, 0) 其傳回值 " & _
Application.HLookup(3, ar, 2, 0) & Chr(10) & _
" 等於 ar(1)(2) 的二維陣列值 " & ar(1)(2) & ""
End Sub

複製代碼

中學生 Rank: 2

帖子: 32
主題: 10
精華: 0
積分: 68
點名: 0
作業系統: win xp
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 南投縣
註冊時間: 2010-9-28
最後登錄: 2019-10-4

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

5^#

發表於 2012-10-9 12:13 | 只看該作者

回復 2# Hsieh
Hsieh超版謝謝您好：
代碼ar = Array(ar1, ar2)就是我要的，非常感激您的熱誠答覆。謝謝。
#3、#4樓的樓主，也非常感謝你們的熱情回應。
在此向各位道謝。

靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。

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