宏运用入门及数组运用.docVIP

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