Excel在药学中的应用.ppt_第1页
Excel在药学中的应用.ppt_第2页
Excel在药学中的应用.ppt_第3页
Excel在药学中的应用.ppt_第4页
Excel在药学中的应用.ppt_第5页
已阅读5页，还剩10页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

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.Sele

2、ct Selection.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.Op

3、en Filename:=C:CH.XLS 指定窗口被激活 Windows(CH.XLS).Activate 关闭工作簿 ActiveWorkbook.Close MsgBox 准备再打开 CH.XLS Workbooks.Open Filename:=C:CH.XLS End 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

人人文库> 全部分类> 教育资料 > 课件下载

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论