tnjk.net
当前位置:首页 >> 在ExCEl VBA里, 定义数组并赋值,编译错误.请高手指点. >>

在ExCEl VBA里, 定义数组并赋值,编译错误.请高手指点.

数组赋值不能直接这样用 等于 某个单元格区域……要通过循环语句逐个赋值……考虑修改如下: Dim aa() As Double ReDim arr(1 To 1036) For i = 1 To 1036 arr(i) = Cells(i, 8) Next Stop 由于你使用了 动态数组 所以在赋值前 必须给它一个重新设置...

aaa=array(1,6,8,18,19,20,25,62,63,64) for i=0 to ubound(aaa) msgbox(aaa(i)) next

很简单的,你只距成功差一点 Dim ma ma = Array(37, 11, 3, 0, 1, 5, 31, 10, 35, 16) MsgBox ma(0) 这样试试看!!!

Function A_V_E(ary() As Variant)arr = Application.Transpose(Application.Transpose(ary))Dim sumtempFor Each x In arrn = n + 1sumtemp = sumtemp + xNextA_V_E = sumtemp / nEnd FunctionFunction St_De(ary() As Variant)Dim arr()arr = ...

有啊 例如将区域A1:B10的区域赋予数组 可以直接 ar=range("A1:B10")

range("B2:BO6") B2,BO6 是2个单元格 ,不是一个范围

EXCEL表的单元格区域是一个二维数组 dim arr arr=Sheet3.Range("D7:D9") '这时的arr得到的是二维数组 '你要转换成1维数组,先声明一个动态数组再重定义为1维数组 dim brr() redim brr(1 to ubound(arr)) '再重新将二维转一维 for i = 1 to uboun...

Sub ten() Dim arr(10) As Integer arr(0) = 1 arr(1) = 2 arr(2) = 3 arr(3) = 4 arr(4) = 5 arr(5) = 6 arr(6) = 7 arr(7) = 8 arr(8) = 9 arr(9) = 10 brr = Application.Transpose(arr()) Range("a1:a10").Value = brr End Sub 分析: 1、你...

A就是一个string类型的变量,不能用set a=.... a = "C:\新建文件夹\10.txt" 就好了。 For i = 11 To 50 a = a & "C:\新建文件夹\ " & i & " .txt" Next End Sub

可以给数组赋值,例如: arr=array(1,2,3) arr(2)=5

网站首页 | 网站地图
All rights reserved Powered by www.tnjk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com