Excel会计信息化教学课件 作者 刘曜 第4章VBA变量、条件与循环语句及应用技术.pptVIP

对区域命名的另一个意义：如果区域是变动的，在有些情况指定区域必须对区域命名，然后在指定区域时使用区域的名称。 示例：教材P39 计算区域空格数代码 Cells(1, 5) = “=COUNTBLANK(Jlk)”中区域名称Jlk不能用区域 Range(Cells(1, 2), Cells(x - 1, 3))替代 执行时，通过在条件语句中设置的条件xm = Sheets(名单).Cells(t, 1)，将xm的值与Sheets(名单).Cells(t, 1)的值（第1次循环t = 2）逐一进行比对。 代码  xm = Sheets(“名单”).Cells(t, 1)的意义比对： xm的值 Sheets(名单).Cells(t, 1)的值（第1次循环t = 2） 注意：循环  For y = 6 To z - 1  …  x = x + 1 Next y语句中x = x + 1的意义 第一次循环时，循环 For y = 6 To z – 1 Sheets(“凭证库”).Cells(x, 1)= Sheets(ActiveSheet.Name).Cells(3, 3)  … Next y语句中的x 是由前面代码判断的“凭证库”工作表记录的第1个空行的行数。 在循环过程中并没有重新判断记录的第1个空行的行数。  第一次循环时，x = x + 1的意义是：在记录的第1个空行的行数x上加1。这样，第二次循环转入“凭证库”工作表的记录紧接第一次循环转入的记录 第二次循环时，x = x + 1的意义是：凭证记录转入“凭证库”工作表时，单元格行数在x+1上再增加1，即第三次循环转入“凭证库”工作表的记录紧接第二次循环转入的记录。 可调整R[“ (-2 - i) ”]C中R和C的参数观察：如此设置参数填充的公式刚好为B2 R[“ (-2 - i) ”]C可改写为R2C2：此时引用为$B$2  也可变动R2C2中R和C的参数观察：如此设置参数填充的公式刚好为$B$2 本章教学建议： 学习VBA编程，我们推荐“模块编程法”，这一方法对“用户开发”具有非常实际的意义。 模块编程法是这样一种方法，不要求学生死记代码，只须掌握哪一种VBA功能模块可以完成什么任务。 例如，在本章4.3节中代码x = 1Do While Not (IsEmpty(Sheets(“销售记录”).Cells(x, 1).Value)) x = x + 1Loop形成一个VBA功能模块，完成“确定记录的末行数 ”任务。 凡在VBA编程中要“确定记录的末行数 ” ，将该模块复制在程序中，然后对参数进行修改。 本章中的一些VBA编程关键技术，形成了一些十分有用的VBA功能模块（参见“VBA功能模块描述”）。 还可以用“录制”方法利用Excel的功能形成VBA功能模块。 如果将VBA功能模块看成是一块块“积木”，那么我们就可以用这些“积木”方便地搭成各种“大厦”——实用的VBA应用程序。 本章编程练习题： 编程练习题1和2。 现在我们来回答，在记账凭证格式设计中，为什么C12合并单元格仅合并了C12：F12区域，而不将B12单元格合并在一起。 这是为了保证B12单元格始终为空，这样循环最多进行到y = z – 1=12 – 1=11（记账凭证记录最多可能达到的一行）即终止，否则会出错。 4.3.5 多表操作1.单一工作簿的多表操作示例：教材P44 · 链接方式　　· 代码方式 　 代码方式计算奶粉A合计宏的设计思路是，将各子公司奶粉A的销售金额从不同工作表集中到同一张工作表上，然后求合计。 具体步骤为，先选定甲公司工作表，将奶粉A的销售金额复制到奶粉A合计工作表金额栏甲公司对应的单元格，再顺次选定乙公司、丙公司工作表复制。 Sub 计算奶粉A合计() x = 1 For t = 1 To 3 x = x + 1 Sheets(x).Select Range(B2).Copy Sheets(Sheet1).Select y = 4 Do While Not (IsEmpty(Cells(y, 2))) y = y + 1 Loop Cells(y, 2).Select ActiveSheet.Paste Next tEnd Sub 程序中代码