Excel在药学中的应用.ppt

ExcelApplicationinPharmacy ShenyangPharmaceuticalUniversityProf DongHongyeDonghy001 上一章问题与讨论 判断一个数是奇数还是偶数 从1 10中查找3或4的倍数并输出 编制递归过程求10的阶乘 上一章回顾 程序设计环境VBA语法基础VBA运算符VBA控制语句VBA程序结构课堂练习 4 VBA的设计 过程与函数的设计模块的设计与访问对象设计概念Excel的对象结构窗体的设计 4 1取得窗体范围 PublicSubTableAddress 选取活动单元格ActiveCell SelectSelection End xlUp SelectSelection End xlToLeft Select 取得窗体左上角位置MsgBoxActiveCell AddressSelection End xlDown SelectSelection End xlToRight Select 取得窗体右下角位置MsgBoxActiveCell AddressEndSub 4 2利用窗体工具设置按钮 指定宏 4 3导出模块 文件 4 4导入模块 文件 4 5移出模块 4 6打开工作簿 SubW OPEN 打开工作簿CH XLSWorkbooks OpenFilename C CH XLS 指定窗口被激活Windows CH XLS Activate 关闭工作簿ActiveWorkbook CloseMsgBox 准备再打开CH XLS Workbooks OpenFilename C CH XLS EndSub 4 6填零 在空白单元格插入零值 PublicSubFILL ZERO DimRANGE1AsRange 声明变量DimCELL1AsRangeDimSTRING1AsStringSTRING1 InputBox 请输入范围 取得单元格操作范围SetRANGE1 Range STRING1 指定范围ForEachCELL1InRANGE1 检查单元格范围的值IfCELL1 Value ThenCELL1 0NextCELL1EndSub 4 7窗体的设计 Q A 课堂讨论 VBA程序设计的过程 谢谢大家