excel在药学中的应用-4

《excel在药学中的应用-4》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、ExcelApplicationinPharmacyShenyangPharmaceuticalUniversityProf.DongHongyeDonghy001@163.com上一章问题与讨论判断一个数是奇数还是偶数？从1~10中查找3或4的倍数并输出。编制递归过程求10的阶乘。上一章回顾程序设计环境VBA语法基础VBA运算符VBA控制语句VBA程序结构课堂练习4.VBA的设计过程与函数的设计模块的设计与访问对象设计概念Excel的对象结构窗体的设计4.1取得窗体范围PublicSubTableAddress()'选取活

2、动单元格ActiveCell.SelectSelection.End(xlUp).SelectSelection.End(xlToLeft).Select'取得窗体左上角位置MsgBoxActiveCell.AddressSelection.End(xlDown).SelectSelection.End(xlToRight).Select'取得窗体右下角位置MsgBoxActiveCell.AddressEndSub4.2利用窗体工具设置按钮，指定宏4.3导出模块（文件）4.4导入模块（文件）4.5移出模块4.6打开工作簿

3、SubW_OPEN()'打开工作簿CH.XLSWorkbooks.OpenFilename:="C:CH.XLS"'指定窗口被激活Windows("CH.XLS").Activate'关闭工作簿ActiveWorkbook.CloseMsgBox"准备再打开CH.XLS"Workbooks.OpenFilename:="C:CH.XLS"EndSub4.6填零'***在空白单元格插入零值***PublicSubFILL_ZERO()DimRANGE1AsRange'声明变量DimCELL1AsRangeDimSTRING

4、1AsStringSTRING1=InputBox("请输入范围")'取得单元格操作范围SetRANGE1=Range(STRING1)'指定范围ForEachCELL1InRANGE1‘检查单元格范围的值IfCELL1.Value=""ThenCELL1=0NextCELL1EndSub4.7窗体的设计Q&A课堂讨论VBA程序设计的过程谢谢大家