1、Excel Application in Pharmacy,Shenyang Pharmaceutical University Prof. Dong Hongye D,上一章问题与讨论,判断一个数是奇数还是偶数？从110中查找3或4的倍数并输出。编制递归过程求10的阶乘。,上一章回顾,程序设计环境 VBA语法基础 VBA运算符 VBA控制语句VBA程序结构 课堂练习,4 .VBA的设计,过程与函数的设计模块的设计与访问对象设计概念Excel的对象结构窗体的设计,4.1取得窗体范围,Public Sub TableAddress()选取活动单元格ActiveCell.SelectSelecti
2、on.End(xlUp).SelectSelection.End(xlToLeft).Select取得窗体左上角位置MsgBox ActiveCell.AddressSelection.End(xlDown).SelectSelection.End(xlToRight).Select取得窗体右下角位置MsgBox ActiveCell.AddressEnd Sub,4.2利用窗体工具 设置按钮，指定宏,4.3导出模块（文件）,4.4导入模块（文件）,4.5移出模块,4.6打开工作簿,Sub W_OPEN()打开工作簿 CH.XLSWorkbooks.Open Filename:=“C:CH.X
3、LS“指定窗口被激活Windows(“CH.XLS“).Activate关闭工作簿ActiveWorkbook.CloseMsgBox “准备再打开 CH.XLS“Workbooks.Open Filename:=“C:CH.XLS“ End Sub,4.6 填零,* 在空白单元格插入零值 * Public Sub FILL_ZERO()Dim RANGE1 As Range 声明变量Dim CELL1 As RangeDim STRING1 As StringSTRING1 = InputBox(“请输入范围“) 取得单元格操作范围Set RANGE1 = Range(STRING1) 指定范围For Each CELL1 In RANGE1 检查单元格范围的值If CELL1.Value = “ Then CELL1 = 0Next CELL1 End Sub,4.7窗体的设计,Q & A,课堂讨论,VBA 程序设计的过程,谢谢大家,
