excle VBA? 怎么把這個(gè)數(shù)組定義為公共常量？在excel的vba　IDE中新建一個(gè)模塊，然后輸入代碼：publicF()asvariant在新建一個(gè)過程叫做publicSubINITF()Re

excle VBA? 怎么把這個(gè)數(shù)組定義為公共常量？

在excel的vba　IDE中新建一個(gè)模塊，然后輸入代碼：publicF()asvariant在新建一個(gè)過程叫做publicSubINITF()RedimF(XFToXT,YFToYT)endsub其中的xf,xt,yf,yt需要你自己給值，因?yàn)槲也恢滥愕降仔枰嗌賯€(gè)橫縱格在你所有的代碼的最開始的位置調(diào)用一次這個(gè)sub即可

VBA里應(yīng)該怎么定義一個(gè)動(dòng)態(tài)的二維數(shù)組？

VBA中動(dòng)態(tài)定義一個(gè)二維數(shù)組，案例代碼如下：//定義動(dòng)態(tài)數(shù)組ttSub tt()Dim a() As IntegerReDim a(1 To 2, 1 To 1) As Integera(1, 1) 10i 10ReDim Preserve a(1 To 2, 1 To i) As IntegerMsgBox a(1, 1)End Sub

在VBA中如何用一個(gè)數(shù)組給另一個(gè)數(shù)組賦值？

通過數(shù)組循環(huán)的進(jìn)行數(shù)組賦值。示例： Dim names 定義一個(gè)初始化數(shù)組 Dim dest(3) 定義一個(gè)要賦值的數(shù)組 賦值 names Array(小明, 小紅, 效力, 張明, 王武, , , , , , ) 通過Ubound()函數(shù)計(jì)算上界，LBound計(jì)算數(shù)組下界 For iLBound(dest) to UBound(dest) dest(i) names(i);//數(shù)組賦值 next i

ExcelVBA自定義函數(shù)的編寫，自定義數(shù)組？

你這個(gè)要求不能實(shí)現(xiàn)啊，我用了ParamArray 關(guān)鍵字，用來指定一個(gè) 任意元素個(gè)數(shù) 的數(shù)組

共參考：

---------

Function shuzu(ParamArray x())

Application.Volatile

Dim i, n, m, tmp

n UBound(x) - LBound(x) 1

If n Mod 2 0 Then tmp #Err_x(): GoTo 1000

n n / 2

m LBound(x)

For i 1 To n

tmp tmp x(m i - 1) * x(m i - 1 n)

Next

1000:

shuzu tmp

End Function

-----------

輸入公式的時(shí)候，需要 成對(duì) 的元素，套用你的公式如下：

shuzu((K5,L5,M7,N9),(M13,L15,K13,M17))

可以輸入任意 成對(duì)的 元素，比如使用10個(gè)參數(shù)：

shuzu((K5,L5,M7,N9,M10),(M13,L15,K13,M17,N20))