作者:乔山办公网日期:
返回目录:excel表格制作
数组赋值不能直接这样用百 等于 某个单元格区域……要通度过循环语句知逐个赋值……考虑修改如下:
Dim aa() As Double
ReDim arr(1 To 1036)
For i = 1 To 1036
arr(i) = Cells(i, 8)
Next
Stop
由于你使用道了 动态数组版 所以在赋值前 必须给它一个重新设权置范围的语句 ReDim……
在excel的vba IDE中新建一个模块百,然后输入代码:publicF()asvariant在新建一个过程叫做publicSubINITF()RedimF(XFToXT,YFToYT)endsub其中的度xf,xt,yf,yt需要回你自己给值,因为我不知道你到底需要多少个横纵格在你所有的代码的最开始的位置调用一次这个sub即可答
能否截个图上来看看。或者,加一个format函数试试: Range("A1").Value = Format("0:30", "h:m")
在给常量赋值的表达式中,不能使用变量,用户自定义的函数,或 Visual Basic 的内部函数(如 Chr)。