Excel 2010 (下篇).doc

office套件组件第四章 图片和图形4.1 自选图形的使用1. 插入自选图形 插入-插图形状 shift绘出“正”图形 一次性插入多个 右击自选图形，锁定绘图模式 esc解除锁定快速插入自选图形：双击法 单击法 2. 连接符的使用 连接控制点 右击它可改变其形状 及重排连接符绘制自选图形：任意多边形（线条） 任意图形（线条） 自由曲线调整自选图形的大小 ：对话框法 、选项卡法 、拖拉法（按着Ctrl，利用控制柄拖拉，图形呈中心扩散或缩小即图形中心位置不变）确定自选图形的位置：拖拉法、方向键法旋转自选图形：控制柄法、对话框法 、选项卡法 、拖拉法对齐自选图形组合自选图形 shift、ctrl隐藏和显示自选图形 绘图工具/格式-排列-选择窗格-选择和可见性 隐藏不能被打印 改变叠放次序：右击法、任务窗格法1.2 设置自选图形格式1. 改变自选图形形状 绘图工具/格式-插入形状-编辑形状 格式被应用到新图形上 编辑顶点（右击）2. 设置自选图形格式 填充 ： 选项卡法 绘图工具/格式-形状样式-形状填充（颜色、图片、渐变色、纹理） 右击设置形状轮廓 形状效果3. 直接套用形状样式 4. 向图形中添加字符 右击 文本框法 （无填充 无线条） 单元格连接法：选中图，编辑栏输入=a12 enter4.3 外部图片的使用1. 插入外部图片 2. 图片的裁剪 直接裁剪（图形工具/格式-大小） 异形裁剪（自选图形的图片填充）3. 套用图片样式 图片边框 图片效果 图片版式4. 图片调整 艺术效果 颜色 （ 透明色） 更正 删除背景4.4 剪贴画的使用1. 搜索剪贴画 2. 插入剪贴画3. 格式化4. 重新编辑剪贴画 多个自选图形的组合体的转换图片 右击编辑图片-是-右击-组合-取消组合-重新组合4.5 艺术字的使用1. 插入艺术字 图文框 2. 套用样式te4.6 添加批注1. 添加 右击法 审阅 编辑 2. 查看 随机查看 逐一浏览（审阅） 全部显示3. 设置批注格式 进入编辑批注状态 ，右击 4. 删除批注 右击 功能选项卡法4.7 SmartArt图形的使用（制作演示流程、层次结构、循环或关系等精美图形）1. 插入 2. 设计 “SmartArt工具”功能卡- “设计”选项卡 “SmartArt工具/设计”功能选项卡添加形状 调整字符位置 更改图形布局 更改颜色3. 格式化 4.8 插入屏幕截图1. 插入当前窗口截图2. 插入部分窗口截图 屏幕裁剪 4.9 图片的特殊用途1. 把数据表复制为图片 复制为图片 2. 将工作表拍摄成图片 照相法 图片替换法（先插入外部图片，再编辑栏） 动态链接功能3. 让背景图片能被打印出来 拍，填充第五章 工作簿的管理5.1 工作表的管理1. 工作表的选择 右击法 单击法2. 插入 快捷键shift+f113. 删除 不可撤销，没保存前关闭它4. 重命名 方便公式引用，采用西文字母和阿拉伯数字及其组合字符命名5. 改变工作表标签颜色6. 移动和 复制 ctrl 两个工作簿同时打开7. 隐藏和显示 高级隐藏 alt+f11进入VBA编辑窗口，工程资源管理器中选中需要隐藏的工作表，属性窗口中visible 选择veryhidden选项 通过属性取消隐藏8. 窗口的拆分 视图-窗口-拆分 取消拆分：再次单击拆分或双击窗口拆分线9. 隐藏工作表窗口 视图-窗口-隐藏1.2 工作簿的管理1. 移动和复制 其他文件一样 自动备份法：另存为-工具-常规选项 扩展名为.xlk2. 文档属性 包括主题、作者、建立时间等，利用此可以快速搜索到相应的文件 属性的编辑 直接编辑法 文档面板法 高级属性法 文件-信息 文件夹窗口的状态栏来修改删除属性 文件-信息-检查问题3. 检查文档的辅助功能 残障人员 展开“辅助功能检查器”任务窗格，有具体解决办法4. 工作簿文档的特殊打开 一次多个文档 右击法 对话框法 工作区法（先同时打开文档，视图/窗口-保护工作区-输入工作区文件名称xlw）让文档自动打开 新建文件夹（如常用），文档移入-选项-高级-常规-启动时打开此目录中的所有文件，输入路径 太多死机保存全部文档 shift+单击关闭按钮1.3 工作表的保护1. 保护整个工作表 一般保护 审阅更改，一次只能操作一个 批量保护用VBA 加密保护 2. 保护部分单元格区域 保护公式：全选-设置单元格格式/保护-取消锁定-查找和选择-公式-设置单元格格式/保护-锁定仿照上述保护工作表 锁定下的隐藏 可隐藏编辑栏中的公式3. 分区加密工作表 多用户 设置“允许用户编辑区域” 审阅更改1.4 工作簿的保护1. 保护工作簿 保护结构，不能对工作表添加、删除、移动 复制等 保护窗口 窗口大小不能调整 窗口位置不能移动2. 加密保护 另存为-工具-常规选项 3. 清除密码 另存为-工具-常规选项 1.5 工作簿的共享1. 共享 高级标签设置共享参数 共享后，合并单元格 条件格式 数据有效性 图表等无法更改，共享前设置好2. 保存并共享 3. 使用共享工作簿 打开共享工作簿（ 放在局域网上某台电脑的共享文件夹） 建立修订日志 处理修订数据4. 取消共享 1.6 超链接的使用1. 自动建立 网站和邮箱地址 取消自动转换功能 选项-校对-自动更正选项2. 手动建立 快捷键ctrl+k 网页 其他文档 其他office文档的指定位置 链接路径和名称后添加Word 书签Excelppt 第三张.doc#总金额#Sheet2！a2#3本文档指定位置 3. 为对象建立 图片4. 取消 右击法 智能标记 开始-编辑-清除第六章 函数和公式 6.1 认识函数1. 函数式的结构 3要素 标识符= + - 函数名称（英文单词缩写） 函数参数2. 函数参数 类型 常量 逻辑值 a22 单元格引用 名称 其他函数式 （函数嵌套） 数组参数 英文输入状态下输入逗号将参数隔开3. 单元格引用 3类型 相对引用 绝对引用 混合引用 绝对引用标志“$” 英文输入状态下shift+4 转换单元格的引用方式 功能键法： 编辑栏-选择单元格地址-反复f4功能键 替换法：绝对变为相对 查找与替换6.2 函数式的输入与修改1. 函数式的输入 开始-编辑 函数向导法 公式功能选项卡 直接输入法 不区分大小写2. 批量输入函数式 选中区域，输入函数，ctrl+enter3. 函数的修改 重新输入 编辑修改法4. 搜索需要的函数 5. 利用函数帮助文件的示例6. 函数的复制相对复制 复制粘贴法 拖拉法 绝对复制 返回结果转为普通值，选择性粘贴6.3 函数分类介绍1. 日期与时间函数 =today（）返回系统当前日期 =now（）返回日期和时间=datedif（date1，date2，”y”） y改为m、d 计算年龄、工龄 如=datedif（”1972-12-8”, today（）,”y”） =month(“2010-6-15”) =year(“2010-6-15”) =day(“a1”) =networkdays(start_date,end_date,holidays) 工作日不包含双休日和指定的假日。 2. 数学和三角函数 abs 绝对值int x向下取整数 round（18.89,0）0代表小数位数，四舍五入 roundup rounddow向下保留小数取舍无论function_num参数选用什么类型，subtotal函数都忽略任何不包含在筛选结果中的数据。数学和三角函数函数功能例子格式 说明mod求出两数相除的余数=mod(13,4)=1subtotal列表或数据库分类汇总不适用于行subtotal(function_num,ref1,ref2,) ref-要进行分类汇总区域或引用sumifSumif(b2:b10,安徽, h2:h10)sumifssumifs(h2:h10,b2:b10,安徽，f2:f10,高处坠物) “32”randbetween返回两整数之间一个随机整数Sin弧度格式=sin（30*pi（）/180） PI（）返回Lcm最小公倍数统计函数AverageAverage(b2:d8,f2:h8,7,8)包括数字7和8Countifs单元格数目countifs(b2:b10,安徽，f2:f10,高处坠物) 通配符 ？（任一单个字符）和*（字符序列）Countifcountifs(b2:b10,山*)frequency统计频数Frequency（c2:c56,b59:b63）Ctrl+shift+enter 数组函数确认Max minrank排位0或忽略降序 非0升序Rank(c2, $C$2:$C$56,0)Rank(number,ref,order)mode频率最大的数值查找与应用column单元格列号Row单元格行号Index返回单元格数值=Index(b2:k11,6,8) 行列必有一个=Index(b2:k11,6,0) 数组Index（b2:f6,g2:k6,b7:f11,g7:k11,3,2,4）行列参数相对引用区域而言不是工作表行列号4代表第四区域offset单元格=Offset(refrence,rows,cols,0,0)Ctrl+shift+enter offset单元格区域=Offset(refrence,rows,cols,height,width)Ctrl+shift+enter Vlookup hlookup 首行见图片，e2必须在区域首列，忽略0时首列排序数据库函数Dmax =dmax(b1:f82,”销售金额”，h1:h2)包含列标题Dsum=dsum(b1:f82,”销售金额”，h1:h2)Dvarp 样本总体方差Dcount 单元格数目文本函数concatenate数据连接显示在单元格中=concatenate（text1，）=concatenate（b2,”,c2） = b2&”&c2 连接符&Left right截取数目=left(a8,3)Len （不区分）统计字符数目汉字是全角、数字是半角字符 Lenb区分全半角，全角计2 半角计1Mid指定位置开始，指定数目字符Mid(text,start_num,num_chars)Text 数值格式转为文本=text（b2,”$0.00”） 显示为$128.45value文本格式转为数值逻辑函数And返回逻辑值true false=And(a82,j210,.)全真为真If=if(logical,value_if_true,value_if_false)or返回逻辑值true false全假为假iferror= iferror(value,value_if_error)= iferror(a1/a2,”错误”)信息函数iserror测试= iserror(a1/a2)与if配套使用，=if（= iserror(a1/a2)，”，a1/a2）info返回当前操作环境Type检测对象是数值返回1 文本 2 逻辑4 误差16 数组64Cell区域左上角单元格的格式 位置 内容=cell（info_type,reference）color工程函数Bin2dec二进制转十进制dec 2 Bin（） imsum复数求和imabs模多维数据集函数=info(“”)directory路径recalc重新计算方式 自动 手动Numfile工作簿中活动工作表的数目releaseExcel的版本号originsystem操作系统名称osversion当前操作的版本号6.4 函数返回错误的处理1. “#div/0”错误2. “#NAME？” 名称错误或中文“” 或没” 使用“分析工具库”等加载部分的函数，没有加载相应的宏：选项-加载项-管理-转到3. “NULL！”区域运算符（：） 单元格引用4. “#NUM” 参数无法接受 sqrt（-2） 结果太大 太小5. “#REF！” 函数引用的单元格被删除6. “#VALUE！”提供区域引用 类型不对 数组用enter确认7. “#N/A” 缺少数据， 数据源没排序 自定义函数不可用8. “#”日期运算结果为负值 日期序列超过系统允许的范围 单元格宽度不够返回错误数据时左上角显示三角智能标记，帮助分析错误6.5 函数的嵌套1. 函数的嵌套2. 嵌套函数的输入 鼠标拖拉选中 开启 函数记忆 输入功能，选项-公式-使用公式6.6 公式1. 公式的概念 公式是一种二次开发的 “函数”；函数是一种内置的 “公式”，内置程序。2. 运算符号 算术运算符号：乘方shift+6 比较运算符号:不等号 引用运算符号 : , 文本运算符号 &运算优先级 先后顺序 冒号、空格、逗号、负数、百分号、乘方、乘除、加减、连字符、比较运算符号改变运算优先级 加（）3. 公式的输入 公式的构成 由函数、引用、常量运算符号构成调整公式编辑框的大小：折叠按钮法 拖拉法 双击法公式的修改6.7 公式的检查1. 追踪公式与单元格之间的关系 引用单元格 从属单元格 取消追踪箭头2. 公式求值 公式/公式审核-公式求值3. 检查公式中的错误 4. 公式输入常见错误 64层限制，增加过度单元格 5. 监视公式的返回结果 添加监视点 公式/公式审核-监视窗口删除监视点批量添加包含公式的监视点 查找和替换 公式 再添加监视6.8 数组公式 Ctrl+shift+enter 1. 数组公式 常量数组1,3,2;3,5,4二行三列 区域数组a2：a82. 数组公式的输入=sum(c2:c5680)*(c2:c560)*( $f2-1600-0,500,2000,5000,20000,40000,60000,80000,100000)*0.05)条件最大值max(if(, , )逐位求和 电话号码 =sum(-mid(,row(1:11),1) row(1:11)产生1到11顺序数组 mid文本格式加“-”转为数值格式 或=sum(value（mid(,row(1:11),1)）隔列求和 =sum(mod(colunn(b3:bk3),2)=1)*（b3:bk3）) 6.9 函数和公式的特殊应用1. 函数和公式在条件格式中的运用 先选中区域1) 突出显示重复数据 =countif(c:c,c1)12) 隔行（隔列）填色 =and(mod(column(),2)=0, mod(row(),2)=0) =and(mod(column(),2)=1, mod(row(),2)=1)2. 函数和公式在数据有效性中的运用限制重复值的输入 =countif(c:c,c1)=1 输入信息 出错警告限制输入字符数量 身份证=or(len(c1)=15, len(c1)=18) =and(or(len(c1)=15, len(c1)=18), countif(c:c,c1)=1) 3. 函数在定义名称中的运用1) 为区域设置一个名称 公式-定义的名称-已选定区域创建名称 名称框下拉按钮在工作簿中某个工作表中定义的名称在整个工作簿中所有工作表中都可以直接引用。 2) 管理名称 新建 编辑 删除 筛选 以上定义的名称其引用的单元格区域是静态的。3) 动态名称：随时选中整个工作表中所有数据区域 输入名称 sg_date引用位置 =offset(数据!$a$1,count(数据!$a:$a)+1, counta(数据!$1:$1)4. 宏表函数的运用 保存为启用宏的工作簿1) 公式与结果 b2命名为结果 引用位置=evaluate(sheet1!a1) get.cell(6,sheet1!a1)2) 获取工作簿和工作表名称 选中单元格，公式-定义的名称-定义名称 = get.cell(62) = get.cell(66) = get.cell(63)填充颜色代码 在单元格中输入“=定义的名称”3) 获取页码 自定义两个名称：页码=if(iserror(match(row(),get.document(64),1),1,match(row(),get.document(64),1)+1) 总页码=get.document(50) 某个单元格输入=第&页码&页共&总页码&页 6.10 自定义函数1. 自定义函数 插入-模块 扩展名xlam2. 自定义函数的使用 插入 用户定义 调用自定义函数同调用内置函数3. 移动1) 另存为加载宏文件 另存为 保存类型“excel加载宏” 路径使用默认的 C:UsersLuchaoAppDataRoamingMicrosoftAddIns2) 加载上述加载宏文件 选项-加载项-转到=加载宏-浏览第七章 数据的统计和分析7.1 记录单 “记录单”窗体 Tab键切换行1. 添加记录单按钮2. 用记录单录入数据3. 查询数据 条件按钮4. 修改数据5. 删除数据 不可撤销7.2 排序 方便浏览 查找 比较1. 单条件排序 默认的排序规则 升序：排序条件是文本格式，排序规则：数值格式的数字0到9、文本格式的数字、标点符号、字母a到z（不分大小写）、汉字汉语拼音的顺序降序反之。无论降序还是升序，空格单元格始终排在最后。第一行作为标题行，不参与排序。对单列数据排序 选中区域 2. 多条件排序 是依据多列的数据规则对整个数据表进行排序操作。数据包含标题 3. 汉字笔划排序 设置“选项” 4. 自定义排序 职称排序 自定义职称序列5. 按颜色排序 字体颜色 单元格填充颜色6. 按图标排序 单元格图标 最后一项设置“在顶端”7. 按行排序8. 利用函数进行排序 =rank(g2, $G$2:$G$19,0) 非零为升序9. 局部排序 考虑首列序号 保持不变 选定区域法（区域连续） 插入列分割法（隐藏） 函数序号法=counta($B$1: B2)-17.3 分列1. 按固定宽度进行分列 选中相应的数据列设置好参数2. 按分隔符号进行分列 7.4 筛选1. 自动筛选 单条件 多条件 自定义 清除筛选结果 右击 复制粘贴2. 高级筛选 单条件 多条件 通配符条件或（不同行） 条件与（同行） 7.5 分类汇总1. 数据分类汇总 直接分类汇总 浏览分类汇总数据 嵌套分类汇总（先排序， 不选替换当前分类汇总） 清除分类汇总2. 数据分类打印和保存 分类明细数据的打印 每组数据分页，分页符分类打印保存分类汇总结果 分级 工具条选中2， 选中区域-开始/编辑-查找和选择-定位条件-可见单元格-确定-复制3. 数据分类分级显示 建立分级显示 组与组之间加入空白行-创建组 取消分组显示4. 删除重复的数据行 7.6 合并计算1. 合并计算2. 创建指向源数据的链接3. 结果的更新 保存打开法 重新计算法7.7 模拟分析1. 单变量求解求解一元方程 2. 规划求解 加载“规划求解加载项” 鸡兔同笼问题3. 模拟运算表 建立单变量数据表 建立双变量数据表4. 方案管理器 1) 建立数学模型2) 进行方案设计3) 建立方案 方案摘要7.8 数据透视表1. 创建数据透视表 功能选项卡法 数据透视表向导法（添加向导按钮）拖拉到行标签 列标签（列标题） 死亡人数拖拉到数值框 报表筛选标签（页标签） 2. 数据透视表的设置组合日期 右击创建组 数据透视表工具/选项-分组-将字段分组修改字段名称 直接修改法 字段设置法（右击-值字段设置-自定义名称） 不能与数据源的名称重复修改汇总方式 右击-值字段设置增删数据透视表中的字段 字段列表3. 数据透视表的应用4. 多工作表数据透视表 数据透视表向导法 5. 数据透视表相关选项 数据透视表工具/选项 名称 更改数据源 清除 移动 添加计算项6. 数据透视表的设计7. 数据透视表的切片器1) 插入切片器 数据透视表工具/选项- 排序和筛选2) 切片器的使用3) 断开切片器链接 下拉按钮4) 删除切片器 del键法 右击法5) 设置切片器样式第八章 图表8.1 创建图表1. 图表类型2. 创建图表 选中区域 alt+f1插入默认图表 f11新建chart工作表8.2 设置图表的格式 图表工具1. 图表中相关元素的修改 图表类型 添加标题 修改图例名称 设置法（图表工具/设计-数据组-选择数据） 直接修改法（选中系列折线-编辑栏）添加新系列 2. 格式化图表元素 调整大小（图表区 绘图区）：拖拉法 数值法 对话框法 移动图表 右击3. 利用样式修改图表 快速应用样式 将主题样式应用于图表（页面布局/主题-主题-）8.3 自定义图表类型1. 修改默认图表类型 2. 自定义图表类型 图表工具/设计-类型-另存为模板 3. 自定义图表模板的调用 4. 自定义图表模板的移动 C:UsersLuchaoAppDataRoamingMicrosoftTemplatesCharts 5. 删除自定义图表模板 管理模板 8.4 图表的特殊应用1. 用图表画几何图形 “带平滑线的散点图”2. 绘制函数图象3. 一个图表使用多种系列类型 选中-右击 4. 为图表元素填充图片 层叠5. 把图形添加到图表区中6. 把图表隐藏起来 图表工具/格式-排列-选择窗格8.5 数据透视图1. 创建数据透视图 2. 格式化3. 使用 切片器 数据透视图工具/分析-数据组4. 添加动态标题 公式法 切换到另一工作表-输入 =if(透视图!b1=”(全部)”,”2009年安全事故统计图”， 透视图!b1&”2009年安全事故统计图”)照相法 某单元格输入 =if(透视图!b1=”(全部)”,”2009年安全事故统计图”， 透视图!b1&”2009年安全事故统计图”)-设置字体8.6 动态图表1. 让数据“动”起来数据有效性 =XM =vlookup(i2,b:f,2,0) =vlookup(i2,b:f,3,0) =vlookup(i2,b:f,4,0)2. 创建动态图表3. 为动态图表添加动态标题8.7 图表的分析1. 为图表添加趋势线 图表工具/布局-分析 右击 删除（下拉中选 无）2. 为图表添加误差线3. 其他系列方式 系列线 垂直线 高低点连线 涨/跌柱线8.8 迷你图表1. 创建2. 设置格式 迷你图工具/设计3. 删除 迷你图工具/设计-分组-清除第九章 工作表的打印9.1 打印前的准备工作1. 安装打印机2. 设置纸张参数 改变纸张方向不影响打印机的进纸方向。3. 设置顶端标题行 表头 打印标题-工作表-顶端标题行4. 设置页眉 页面布局 三个编辑区 或页眉/页脚标签5. 设置特殊页眉 首页不同6. 在页眉中添加相关信息7. 为表格添加水印 9.2 打印工作表9.3 打印指定区域1. 打印指定页2. 打印选定区域3. 打印固定区域 9.4 自定义视图1. 建立不同的视图 视图-工作簿视图-自定义视图9.5 特殊打印操作1. 显示内容的特殊打印 不打印0值 选项-高级-清除其中的“”错误值 打印标题打印行列号 页面布局-工作表选项-标题/打印把公式表达式打印出来 设置法（选项-高级 ） 快捷键法ctrl+ 自动调整列宽2. 页面调整的特殊打印 强制分页打印 分隔符 删除分隔符 （分别删除 全部删除 下拉按钮） 缩放大印 居中打印3. 其他 批注打印 单色 单独打印图表（选择） 不打印边框（草稿品质） 不打印图片（隐藏起来）图片工具/格式=排列-选择窗格9.6 打印工作簿1. 打印多个工作表 选择2. 打印整个工作簿 打印面板 页码问题 3. 打印多个工作簿 选择 右击9.7 数据的共享1.与word的数据共享粘贴、复制法 插入对象法 插入/文本-由文件创建 链接到文件 2.与PowerPoint的数据共享 图表3.与Access的数据共享直接导出法 外部数据-导出 失去链接直接导入法4.与Internet的数据共享（1）将Excel工作表保存为网页格式文档将电子表格发布成网页文档（htm），通过IE打开。 “另存为 保存类型 更改标题 发布”（2）将网页数据动态保存到Excel工作表中数据/获取外部数据-自网站-新建Web查询-输入地址从网络获取数据并与网络数据实现动态更新（联网时）。选中其中一个单元格，右击，刷新。第十章 宏与VBA 专门的VBA方面的书籍10.1 宏的录制1. VBA与宏2. 宏的录制 直接录制法 手动编辑法使用相对引用 宏名称可以是汉字、字母，但是不能用非法字符 不能与工作表、工作簿、单元格等名称重复 不能有空格保存位置三个：个人宏工作簿（所有） 当前工作簿 新工作簿10.2 宏的运行1. 设置宏的安全性 选项法（选项-信任中心） 选项卡法 2. 宏的运行 直接运行宏（快捷键） 对话框PERSONAL.XLSB就是个人宏工作簿 的名称3. 用相关对象运行宏图片 右击指定宏用表单控件 按钮 右击编辑文字用activex控件 命令按钮 右击-属性 设计模式退出编辑状态4. 用宏按钮运行宏 快速访问工具栏添加宏按钮 修改按钮选择图标和显示名称导入导出下拉按钮10.3 宏的编辑1. 编辑原有的宏(修改录制的宏)2. 直接编辑制作宏Sub 数字累加()Dim x, y, s As Integer 声明变量性质x = InputBox(请输入累加起始数字：, 累加)y = InputBox(请输入累加结束数字：, 累加)For i = x To y Step 1s = s + iNext iCells(8, 2) = sEnd Sub英文单引号及后续字符是对代码的解释，在实际输入的时候可以不输入。3. 宏的移植宏的复制 模块导出 右击某模块模块导入 进入VBA编辑窗口，右击工作表名称 BAS文件模块删除 移除 10.4 常用宏代码1. 自动运行的宏1) auto_open宏Sub auto_open()MsgBox 欢迎使用excel 2010！, , 欢迎End SubSub auto_open()activewindow.closeEnd Sub(按shift打开文件 临时禁止宏的快捷方式)2) auto_close宏Sub auto_close()MsgBox 感谢使用excel 2010！, , 感谢ActiveWorkbook.SaveEnd Sub3) Workbook.open 双击“this workbook”选项Sub Workbook_open()A1 = 开始工作End Sub2. 控制工作表的宏建立12份工作表Sub 年表格()Dim i As IntegerFor i = 1 To 12Sheets(sheet1).Copy after:=Sheets(Worksheets.Count)ActiveSheet.Name = iNextEnd Subsub 改名（）for i=1 to sheets.countsheets(i).name=i&”月”next I end subSub 恢复名称()Dim cxf As WorksheetFor Each cxf In Worksheetscxf.Name = cxf.CodeNameNextEnd SubSub 保护所有工作表()For i = 1 To Sheets.CountSheets(i).Protect (123)NextEnd SubSub 撤销保护所有工作表()For i = 1 To Sheets.CountSheets(i).Unprotect (123)NextEnd Sub10.5 表单控件的基本应用1. 组合框件的使用 右击-设置对象格式-控制 右击改变大小和位置2. 列表框控件的使用3. 选项按钮的使用 即单选按钮 与分组框 控件配合使用4. 复选框控件的使用 与分组框 控件配合使用 5. 数值调节按钮控件的使用6. 滚动条控件的使用7. 标签控件的使用8. 命令按钮控件的使用10.6 ActiveX控件的基本应用 增强交互作用 退出设计模式1. 组合框activex控件的使用属性设置法 右击-属性 LinkedCell ListFillRange sheet1!a1:a5 VBA设置法 双击 最后点击 设计模式Private Sub ComboBox1_Change()Me.ComboBox1. List = Array(高级工程师, 工程师, 助理工程师, 技术员, 其他) 设置组合框控件选项Cells(2, 5) = ComboBox1.Text 设置链接单元格End Sub2. 列表框属性设置法 右击-属性 LinkedCell ListFillRange sheet1!a1:a5 VBA设置法 双击 最后点击 设计模式Private Sub ListBox1_dblclick(ByVal cancel As msforms.ReturnBoolean)Me.ListBox1.List = Array(高级工程师, 工程师, 助理工程师, 技术员, 其他) 设置组合框控件选项Cells(2, 4) = ListBox1.Value 设置链接单元格End Sub3. 数值调节钮属性设置法 右击-属性 4. 文本框5. 其他 双击windows media player 属性中URL输入时视频文件的路径或网址和名称 与工作簿在同一文件夹中只需输入名称第十一章 Excel应用示例11.1 教学中应用示例11.2 建筑管理中应用示例1. 绘制施工进度横道图2. 建筑施工安全评价系统=A1 !E28+A3 !E19Sheets(1).Delete11.3 财务管理中应用示例1. 将小写数字转换为大写数字=IF(ABS(B2)0.005,零元,IF(B20,负,)&IF(INT(ABS(B2),TEXT(INT(ABS(B2),dbnum2)&元,)&IF(INT(ABS(B2)*10)-INT(ABS(B2)*10,TEXT(INT(ABS(B2)*10)-INT(ABS(B2)*10,dbnum2)&角,IF(INT(ABS(B2)=ABS(B2),IF(ABS(B2)0.1,零)&IF(ROUND(ABS(B2)*100-INT(ABS(B2)*10)*10,),TEXT(ROUND(ABS(B2)*100-INT(ABS(B2)*10)*10,),dbnum2)&分,整)2. 工作条的制作=IF(MOD(ROW(),3)=1,OFFSET(Sheet3!A$1:A$32,0,0,1,1),IF(MOD(ROW(),3)=2,OFFSET(Sheet3!A$1:A$32,(ROW()+1)/3,0,1,1),) 添加框线时，使用 格式刷11.4 其他应用示例1. 电子评分系统同时选中几个工作表，在一个中操作，可同时完成相同的操作。=(SUM(B3:J3)-MAX(B3:J3)- MIN(B3:J3)/7双击其中的sheet1（jm），输入宏代码隐藏工作表的宏代码：Private Sub Worksheet_Activate()Dim cxf As Worksheet 声明一个变量For Each cxf In WorksheetsIf cxf.Name jm Then cxf.Visible = xlSheetVeryHidden 如果工作表的名称不是jm，则将其隐藏起来Next cxfCells(1, 1).SelectEnd Sub激发相应工作簿，自动运行的宏。宏名称“Worksheet_Activate”不能修改。代码放在模块中Sub pw_1()x = InputBox(请输入密码：, 身份验证)If x = 1 ThenSheets(1).Visible = xlSheetVisibleSheets(1).SelectElseMsgBox 请向评判长索取正确的密码！, , 密码错误Sheets(jm).SelectEnd IfEnd Sub工作簿共享 执行一下保存操作，相应成绩即刻显示出来。2. 电子调查表系统模块Sub baocun()Dim rs As Integerrs