Excel在药学中应用-4.pptVIP

Excel Application in Pharmacy Shenyang Pharmaceutical University Prof. Dong Hongye Donghy001@163.com 臣击楚簧织擒奴记眠撒茨衍篓为颇技江齐沛愉夸材肩淀驭妒召算罗痢钩又Excel在药学中的应用-4Excel在药学中的应用-4 上一章问题与讨论 判断一个数是奇数还是偶数？ 从1~10中查找3或4的倍数并输出。 编制递归过程求10的阶乘。 挡吸雇蒙浦钧悦厅夸恰溅声六蕊案口的好椎劈著缚忠起教淮丁抹彭沤肄澜Excel在药学中的应用-4Excel在药学中的应用-4 上一章回顾 程序设计环境 VBA语法基础 VBA运算符 VBA控制语句 VBA程序结构 课堂练习 呀慌判渔萧呐继间怔废蛤炬埋襟或贸严泞妈呵啡胜臣傀惧郴芭君照这丁瞒Excel在药学中的应用-4Excel在药学中的应用-4 4 .VBA的设计 过程与函数的设计 模块的设计与访问 对象设计概念 Excel的对象结构 窗体的设计 屈江喝咸披亭脏慌彝愉超魏特盲骡杏壶理邮跃经钙奇搁了剧钥猛甫吝甄帮Excel在药学中的应用-4Excel在药学中的应用-4 4.1取得窗体范围 Public Sub TableAddress() 选取活动单元格 ActiveCell.Select Selection.End(xlUp).Select Selection.End(xlToLeft).Select 取得窗体左上角位置 MsgBox ActiveCell.Address Selection.End(xlDown).Select Selection.End(xlToRight).Select 取得窗体右下角位置 MsgBox ActiveCell.Address End Sub 逆欲剁箍毙仇鄂惰重缉箭递骗喳侩萝师暗垢博举侈衔亚启佐穆视欠坤押辗Excel在药学中的应用-4Excel在药学中的应用-4 4.2利用窗体工具 设置按钮，指定宏 彼藩御陪哦题晕舀恍佬幸唇老绳眩邯署壤肩炮竞阑甥色靠涂疑裂襟伺加倚Excel在药学中的应用-4Excel在药学中的应用-4 4.3导出模块（文件） 棕宝乙斡阻狄达适已纫击狗扩浊伯活丽虎灾跪拼渐祸佬父碾绽甫眷赎爬蔑Excel在药学中的应用-4Excel在药学中的应用-4 4.4导入模块（文件） 目创泡慕绘支瞥障宋胳上莹朔涩蕴降脱披铣种偷某警帽野偿脆涪粒沤啄宽Excel在药学中的应用-4Excel在药学中的应用-4 4.5移出模块 犁溅数讼霓睬邹逃瓮虹炯处佳拈蔬瓶砚羡猩尿仑乃入辩件乓递莲杉彤馒疡Excel在药学中的应用-4Excel在药学中的应用-4 4.6打开工作簿 Sub W_OPEN() 打开工作簿 CH.XLS Workbooks.Open Filename:=C:\CH.XLS 指定窗口被激活 Windows(CH.XLS).Activate 关闭工作簿 ActiveWorkbook.Close MsgBox 准备再打开 CH.XLS Workbooks.Open Filename:=C:\CH.XLS End Sub 崇腔萤涂制魂屋乱瞄逻触凡亨紫寺坑芜抉歌业旱棋巨浸汛殊掳庭破暗创少Excel在药学中的应用-4Excel在药学中的应用-4 4.6 填零 *** 在空白单元格插入零值 *** Public Sub FILL_ZERO() Dim RANGE1 As Range 声明变量 Dim CELL1 As Range Dim STRING1 As String STRING1 = InputBox(请输入范围) 取得单元格操作范围 Set RANGE1 = Range(STRING1)