EXL_VBA入门培训.pptVIP

录制宏举例 将选中的单元格颜色涂上红色 录制宏举例 宏的基本构成 配置VBA选项 编程实战 业务需求： 每日收货数据，能统计到货及时率的问题 J列做辅助列，J1输入延迟 选中首行，做数据筛选 I列，选自定义 选大于，0 J1直到该列有数据的最后1格都选中； 按键盘组合键Ctrl+D，即可得到相同的值 J列以“延迟”做筛选，得到的就是延迟交货的清单 录制宏模拟操作 录制宏模拟操作 清理无用代码 修改代码 程序代码规范化 以Main程序为主程序，调用其他过程 修改代码 插入窗体 修改代码 添加命令按钮 修改代码 查看命令按钮的代码，也可双击进入代码编辑器 修改代码 键入如下代码后，运行可见到效果 修改代码 再添加一个开始按钮，同时添加如下代码 修改代码 调整模块1中Main程序的代码；使得一开始运行就可以显示对话框 注意1和0对于显示的区别 修改代码 再添加一个按钮和一个文本框 在模块1中定义1个全局数组变量strWK 修改代码 在窗体中编辑按钮3的代码 代码优化 在模块1中编辑 代码优化 打开启动文件执行代码功能 代码优化 清理多余页面 代码优化 另存为加载宏，以便形成独立程序 代码优化 直接运行该程序， BackUP END 业务分析 关键字： “上午10点”;“下午4点”体现在备注栏F列 E列是到货时间 业务逻辑 要求上午到货的如果在10点前交货，属于合格交货 要求下午到货的如果在16点前交货，属于合格交货 业务模拟 上午交货情况： 添加G列做辅助列，体现10:00这个关键时间点 业务模拟 添加I列做辅助列，体现H列-G列差，同时设置格式为时间： 在I2单元格输入公式=H2-G2； 设置单元格式为时间，如图 复制I2，粘帖到I列其余单元格 F列，选自定义 选包含，“上午10点” 变量的数据类型 数据类型 存储空间 数值范围 Double 8字节 负值范围: -1.79769313486232E308?~? - 494065645841247E-324 正值范围: 4.94065645841247E-324 ?~?1.79769313486232E308 Decimal 14字 不包括小数时: +/-79228162514264337593543950335 包括小数时: +/7.9228162514264337593543950335 Currency 8字节 -922337203685477 ~?922337203685477 Date 8字节 1000年1月1日?-?9999年12月31日 String(固定长度） 字符串的长度 1?~?约65400 Varient（数字） 16字节 Double范围内的任何数值 Varient（文本） 22字节+1字节/字符 数据范围和变长字符串相同 用Dim语句创建变量(声明变量) 创建变量可以使用Dim语句,创建变量通常成为声明变量。 Dim语句的基本语法如下:? Dim?变量名?AS?数据类型 变量名必须以字母开始,并且只能包含字母数字和特定的特殊字符, 不能包含空格句号惊叹号,也不能包含字符@??$??#. 名字最大长度为255个字符。 变量声明自动检查: Option Explicit 变量命名的惯例 下表给出了推荐的变量命名惯例?数据类型短前缀长前缀? 数据类型 短前缀 长前缀 Array a ary Boolean f bl Byte b bit Currency c cur Double d dou Date/Time dt dtm/ dat Integer i int Long l lng Object o obj Single sng String s str Variant v var Dim varRange(3) As Range 定义一区域数组 Dim intI As Integer, intJ As Integer 定义2个整数变量 Dim douI As Double, douII As Double 定义2个双精度 Dim strPrintArea As String 定义1个字符串 Dim blEnd As Boolean 定义一个逻辑变量 内部编码 供应商名称 录入 条码 备注 X12D175-03 波士顿电梯 刘博平 *X12D175-03* 已到货 送扶梯焊接叶建林 366(4) G1203070131 慈溪市中顺机械实业有限公司 陈诗涛 *G1203070131* 2012-3-9 12:56 配件箱：黄辉峰，3-14上线，请下午到货，送海宁西子重工。 X12A148-03 慈溪市中顺机械实业有限公司 胡淑琴 *X12A148-03* 2012-3-9 12:56 3-14货梯1077-83 ，送海宁重工制造一部直梁工位