1樓：陽光上的橋
for each i in array(1, 6, 8, 18, 19, 20, 25, 62, 63, 64)
msgbox "i=" & i
next i
2樓：表裡如一
dim i as integer, aaa(9) as integer
aaa=array
3樓：匿名使用者
sub a()
dim aaa(9)
aaa(0) = 1
aaa(1) = 6
aaa(2) = 8
aaa(3) = 18
aaa(4) = 19
aaa(5) = 20
aaa(6) = 25
aaa(7) = 62
aaa(8) = 63
aaa(9) = 64
for f = 0 to 9
i = aaa(f)
debug.print i
next f
end sub
4樓：匿名使用者
aaa(0)=1
aaa(1)=6..
.aaa(9)=64
5樓：匿名使用者
aaa=array(1,6,8,18,19,20,25,62,63,64)
for i=0 to ubound(aaa)msgbox(aaa(i))
next
6樓：匿名使用者
for i = 0 to 2 sheet1.cells(1, i 1) = s(i)
在excel vba裡, 定義陣列並賦值,編譯錯誤.請高手指點.
7樓：匿名使用者
陣列賦值不能直接這樣用 等於 某個單元格區域……要通過迴圈語句逐個賦值……考慮修改如下：
dim aa() as double
redim arr(1 to 1036)
for i = 1 to 1036
arr(i) = cells(i, 8)
next
stop
由於你使用了 動態陣列 所以在賦值前 必須給它一個重新設定範圍的語句 redim……
8樓：匿名使用者
自己以前學習的東西給你看一下：你給的語句如果要付值應該這樣寫：
dim aa() as arr
aa()=sheet1.range("h0:h1036")'這裡就把h0:h1036付給了aa()這個陣列！已經有值，只是涉及到讀取問題了，看下面的吧：
9樓：excel開發
要一個一個地進行賦值，另外h0這個單元格是不存在的，至少從h1開始吧
vba中如何用excel表中的資料給陣列賦值
10樓：浩哥奕弟
excel表的單元格區域是一個二維陣列
dim arr
arr=sheet3.range("d7:d9")'這時的arr得到的是二維陣列
'你要轉換成1維陣列，先宣告一個動態陣列再重定義為1維陣列dim brr()
redim brr(1 to ubound(arr))'再重新將二維轉一維
for i = 1 to ubound(arr)brr(i)=arr(i,1)
next
'如果你是要間隔寫進去
for i = 1 to ubound(arr) step 2brr(i)=arr(i,1)
next
vba中如何在宣告自定義函式之前給陣列賦值
11樓：匿名使用者
可以在bai函式中定義靜態型別
dustatic a '只能定義通zhi用型別，否則isempty 檢查不dao出來。
if isempty(a) then '這樣保證回陣列只賦值
答一次redim a(5) as string'對陣列賦值操作
end if
vfp陣列問題，vfp中如何定義陣列
alen 函式 返回陣列中元素 行或列的數目。語法alen arrayname narrayattribute 引數arrayname 指定陣列名。如果引數僅包含陣列名，alen 函式則返回元素的數目。narrayattribute 確定 alen 函式返回的是陣列元素的數目 陣列的行數，還是陣列的...
在 excel vba 中定義類模組，要如何才能自定義 op
不能的，在 vb 中 open 只能是關鍵字，在呼叫時如果某一過程名不符合 vb 的要求，則需要在其兩側加方括號 dim mycollection as new collection dim nextenum as object set nextenum mycollection.newenum 照...
excel vba中，我要對陣列arr 20 求和，必須
最簡單的方法就是定義變數，然後迴圈相加 當然不怕麻煩的話，也可以將陣列中的一個個元素直接用 號累加起來得到最終的和。關於陣列 所謂陣列，就是相同資料型別的元素按一定順序排列的集合，就是把有限個型別相同的變數用一個名字命名，然後用編號區分他們的變數的集合，這個名字稱為陣列名，編號稱為下標。組成陣列的各...