fkjj.net
当前位置:首页 >> ExCElvBA数组赋值 >>

ExCElvBA数组赋值

Excel VBA数组赋值主要分为一维数组赋值和二维数组赋值两方面来讲,多维数组赋值只要沿用二维的方法即可.在将vba 数组赋值的方法之前,先说下为什么要用数组的方法来写程序吧.使用excel vba数组赋值的主要目的是为了提高程序运行

excel vba数组赋值主要分为一维数组赋值和二维数组赋值两方面来讲,多维数组赋值只要沿用二维的方法即可.在将vba 数组赋值的方法之前,先说下为什么要用数组的方法来写程序吧.使用excel vba数组赋值的主要目的是为了提高程序运行效

1、打开一个Excel的文件,在表格中输入简单的表格,比如学生身高表格,如下图所示.2、接着,在表格中输入一维数组的说明文字,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,如下图所示.3、然后,在

参考下面的代码,和你的问题有些像:Sub Test() Dim Arr(1 To 9) As Integer '定义一个下标为1,上标为9的整型数组 Dim Brr(9) As String ''定义一个下标为0,上标为9的整型数组.这里的默认下标可以在模块中用 option base来声明数组下标的缺

dim i as integerfor i=3 to 14 range(chr(asc("A")+i-4 ) & "219")=range("AE" & i)nextfor i=4 to 14 range(chr(asc("A")+i-4 ) & "218")=range("AF" & i)next

用cells(row,column)比用range灵活多了,a(i) = Range("a" & i)可改成a(i) = cells(1,5+i) 'E列为第5列

EXCEL表的单元格区域是一个二维数组dim arrarr=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 2 brr(i)=arr(i,1)next

问题出在你的Range(Cells(2, 1), Cells(7, 5))cells里面,当你不在人物总表的时候,cells(,2,1)就是你其它表里的值了.这样修改就正常了.Sub aaa() Dim 人物签() As Variant Dim a 人物签 = Sheets("人物总表").Range(Sheets("人物总表").Cells(2, 1), Sheets("人物总表").Cells(7, 5)).Value a = 人物签(1, 5) Debug.Print aEnd Sub

Dim i as integer, aaa(9) as integeraaa=array{1, 6, 8, 18, 19, 20, 25, 62, 63, 64}

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

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