资源描述：
《宏运用入门及数组运用》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、1、宏命令的使用方法1．1按图1步骤操作可添加控件及编写相关代码，图2为代码编写窗口图1在工作表中添加控件图2编写控件代码1．2按图3所示步骤自定义函数后就可以像使用Excel函数一样运用它了，如图4图3自定义函数图4自定义函数的使用1．3按图5所示步骤编写自己的宏命令，例如在代码窗口输入如下代码：Subsheetcount()DimnumAsIntegernum=ThisWorkbook.Sheets.CountRange("a1")=numEndSub此函数功能是求取工作薄中所有工作表的个数，按图6方法运行该宏命令，也可以按图7所示步骤执行宏命令图5编
2、写宏命令图6运行宏命令图7在Excel中调用宏命令2、用Array创建数组按Alt+F11打开VBE窗口，插入一新的模块，在代码窗口中写入代码：Subtest()红绳子=Array("辣1","辣2","辣3","辣4","辣5","辣6","辣7","辣8","辣9","辣10")EndSub按F8，逐行运行代码，程序成功创建了一个数组，数组名称是“红绳子”，"辣1","辣2","辣3","辣4","辣5","辣6","辣7","辣8","辣9","辣10"是数组元素。用Array()创建数组，各元素之间用逗号隔开。元素如果是文本，要用半角引号作定界符。
3、练习，创建两个数组：⑴数组名为cName，数据为8个同学的姓名：林思明、曾玉婷、曾国文、林伟权、林兴发、刘卓怀、曾仙婷、林平⑵数组名为cj，数据为8个数值：99,85,92.5,70,78.5,65,84,100参考答案：数组入门01.xls点击浏览该文件★推荐：ExcelHome技术论坛的最佳学习方法★山菊花--------------------------------------------------------------------------------3、我们已经初步认识了数组，数组是把一组数保存到一个数组变量中，它有两个重要特征。⑴它是一
4、个变量，对一组数进行统一管理带来方便。上面建立的姓名数组，我们要把它写入到工作表区域A1向右连续8个单元格中，可用命令：Range(“a1:h1”)=cname我们认识的这类数组，称为一维数组，一维数组是一个水平数组，相当于工作表中的行。如果要把姓名按垂直方向填充到单元格，可转置命令。如，把这个数组写入到A1:A8单元格中：Range(“a1:a8”)=WorksheetFunction.Transpose(cname)练习：把数组cname分别写入到单元格C4:J4、D8:D15。答案：数组入门02.xls点击浏览该文件⑵第二个重要的特征，是数组元素的有
5、序性，一组数据有序地保存到数组变量中。数组中，用数组名加序号(称索引值)构成唯一的名称对元素进行引用。元素与序号一一对应，根据序号，可以修改和读取指定位置上的元素。把一串姓名保存到数组cName中，数据在数组中按顺序保存，默认从0开始，依次是1、2、3……，用cName(0)表示第一个姓名、cName(1)表示第二个姓名，等等。在工作表中插入一个按钮，点击按钮，把姓名填入单元格A1:A8中：PrivateSubCommandButton1_Click()cname=Array("林思明","曾玉婷","曾国文","林伟权","林兴发","刘卓怀","曾仙婷
6、","林平")Fori=1To8Range("a"&i)=cname(i-1)NextEndSub数组序号(索引值)默认从0开始，也可以通过命令OPTIONBASE1修改为从1开始。该命令写在模块的前面。如果设定索引值从1开始，则上面的代码修改为：PrivateSubCommandButton1_Click()cname=Array("林思明","曾玉婷","曾国文","林伟权","林兴发","刘卓怀","曾仙婷","林平")Fori=1To8Range("a"&i)=cname(i)‘工作表行号与数组序号相吻合NextEndSub参考：数组入门03.xl
7、s点击浏览该文件--------------------------------------------------------------------------------4、想起瑞士军刀Array()很好用，但有时Split()更好用，我们取出这瑞士军刀的第二利器。Split()把一个文本，根据指定的分隔符，建立一个数组。看一个实例：单元格A1中有一串姓名：朱清燕(女),林鑫,林秋静(女),林永鑫,林云艳(女),林嘉惠(女),曾文婷(女),林悦,陈诚,林伟健,赖紫岚(女),曾雁(女),赖文强,钟娟(女),张琪(女),林文彬,黄晓婷(女),李朕,林依婷
8、(女),林佳利(女),曾德福要求：用Split()，把这串文本创建
