《Excel在药学中的应用.ppt》由会员分享,可在线阅读,更多相关《Excel在药学中的应用.ppt(15页珍藏版)》请在三一办公上搜索。
1、Excel Application in Pharmacy,Shenyang Pharmaceutical University Prof.Dong Hongye,上一章问题与讨论,判断一个数是奇数还是偶数?从110中查找3或4的倍数并输出。编制递归过程求10的阶乘。,上一章回顾,程序设计环境 VBA语法基础 VBA运算符 VBA控制语句 VBA程序结构 课堂练习,4.VBA的设计,过程与函数的设计 模块的设计与访问 对象设计概念 Excel的对象结构 窗体的设计,4.1取得窗体范围,Public Sub TableAddress()选取活动单元格 ActiveCell.Select Sele
2、ction.End(xlUp).Select Selection.End(xlToLeft).Select 取得窗体左上角位置 MsgBox ActiveCell.Address Selection.End(xlDown).Select Selection.End(xlToRight).Select 取得窗体右下角位置 MsgBox ActiveCell.Address End Sub,4.2利用窗体工具 设置按钮,指定宏,4.3导出模块(文件),4.4导入模块(文件),4.5移出模块,4.6打开工作簿,Sub W_OPEN()打开工作簿 CH.XLS Workbooks.Open Filen
3、ame:=C:CH.XLS 指定窗口被激活 Windows(CH.XLS).Activate 关闭工作簿 ActiveWorkbook.Close MsgBox 准备再打开 CH.XLS Workbooks.Open Filename:=C:CH.XLSEnd Sub,4.6 填零,*在空白单元格插入零值*Public Sub FILL_ZERO()Dim RANGE1 As Range 声明变量 Dim CELL1 As Range Dim STRING1 As String STRING1=InputBox(请输入范围)取得单元格操作范围 Set RANGE1=Range(STRING1)指定范围 For Each CELL1 In RANGE1 检查单元格范围的值 If CELL1.Value=Then CELL1=0 Next CELL1End Sub,4.7窗体的设计,Q&A,课堂讨论,VBA 程序设计的过程,谢谢大家,