Excel中的宏应用.ppt

Excel中的宏应用 宏的定义 宏是一系列操作的组合 是指程序员事先定义的特定的一组 指令 这样的指令是一组重复出现的代码的缩写 此后在宏指令出现的地方 系统总是自动的把他们替换成相应定义的操作或代码块 Excel2007中找到宏组件 2003中的宏组件可在 工具 栏下找到 而在2007版中需 要在 开发工具 栏下找到 见图1 图1 宏的安全性设置 如果不对宏的安全性进行设置 你所录制的宏可能无法应用 这时 需要点击图1中的 宏安全性 弹出图2 进行设置 选 宏设置 点击 启用所有宏 点击确定 有时可能仍无法使用上次开发的宏 这时可推出excel 再次打开excel 就可以使用上次开发的宏了 宏的录制 录制宏的目的是为了调用宏 调用宏的目的是为了让电脑解决一系列重复的问题 并形象地表示出来 所以在录制宏之前必须先解决上面的问题 先举一个简单的例子 已知方程 求该方程在不同a b值时的解 求取a 0 10间隔0 5 b 1 2 3的共21 3个解 宏的录制 录制前 先根据要解决的问题 建立excel表格 如下 这里 x a b的初值可以任意给定 一般建议给定1为好 F项是公式 和VB编程相当 为了保证录制正确的宏 一般先将需要录制的宏操作一遍 此问题是单变量求解问题 宏的录制 单变量求解 点击 数据 假设分析 单变量求解 如图3所示 图3系统弹出图4 宏的录制 目标单元格选D2 目标值输入0 可变单元格选A2 点击 确定 可得A2单元格的值为6 64453 为方程解 如果小于点过多 可将A列向右拉 就会增加小于点 图4 宏的录制 做完了前面的准备工作 将X值先恢复到1 点击图1中的 录制宏 系统弹出图5 默认宏名为Macro1 输入快捷键为a 点击 确定 将原来的单变量方程求解过程重复一遍 图5 宏的录制 得到方程解后 再点击 开发工具 点击停止录制 完成一个宏的完整录制过程 图6 宏的调用 单击 开发工具 点击 插入 出现 表单控件 点击 表单控件 中的第一个按钮 窗体按钮 出现 号 图7 宏的调用 将出现的 号移动至适当位置 如图按钮7 原来没有的左上角 按住拖动成一定大小的矩形 此时系统自动产生 按钮7 字样及 指定宏 对话框 注意 7 不一定 也有可能是1 2 3 跟前面已输入的按钮有关 图8 宏的调用 点击图8中的 Macro1 图8中的 指定宏 转变成图9 表明刚才插入的 按钮7 已和我们录制的宏 Macro1 绑定 点击确定出现图10 图9 将图10中的 按钮7 3个字删除 输入 单变量方程求解 7个字 如无法操作时 可通过点击右键 在功能菜单单中选择 编辑文字 光标移出按钮 点击 出现图11 图10 图11 注意图10 11中的a b的系数已变为2 3 这时我们在调试单变量方程计算过程中改变的数字 不会影响宏的应用 现在我们可以任意改变a b的值 当然需要保证方程 有实数根 否则无解 现输入a 10 b 2 点击 单变量方程计算 见图12 如果宏的应用到此为止 那么 还没有充分发挥宏的威力 只不过减少了一些步骤 可以方便地求出但变量方程的解 但是如果能够对宏进行编辑 那么 宏的威力将带给你无穷的威力 图12 宏的编辑 回到原问题 已知方程 求该方程在不同a b值时的解 求取a 0 10间隔0 5 b 1 2 3的共21 3个解 如果利用图12中的宏的调用 需要改变63次a b的值 同时点击63次 单变量方程求解 按钮 同时需要及时将所求的根转移至其他单元格 否则所求的根就会被新根替代 宏的编辑 在EXCEL的宏编辑中 最关键的要素是单元格的定义 EXCEL表中的每一格可以用CELLS I J 定义 如图12中的X的根3 0858所在的单元格为CELLS 2 1 2表示第二行 1表示第A列 依次类推 可以定义所有的单元格 图12 宏的编辑 现在要利用宏的编辑 直接产生63个根 并将对应的数据放在第5行至第67行 第A列至第D上 其程序编辑过程如下 图12 宏的编辑 图13 单击图13中的 查看宏 弹出图14 图14 宏的编辑 点击图14中的编辑 弹出图15 图15 删除绿色部分代码 有时会有红色部分代码 这是一些宏录制过程中多余或错误的操作记录 删除 并按题目要求编辑宏代码 宏的编辑 SubMacro1 Forj 1To3Fori 1To21Cells 2 2 i 1 0 5 a的值用循环语句来赋值Cells 4 j 1 21 i 1 i 1 0 5 a的值新放置位置Cells 2 3 j b的值用循环语句来赋值Cells 4 j 1 21 i 2 j b的值新放置位置Range D2 GoalSeekGoal 0 ChangingCell Range A2 方程求解Cells 4 j 1 21 i 3 Cells 2 1 将方程的根保存起来Cells 4 j 1 21 i 4 Cells 2 4 将方程的偏差保存起来NextiNextjEndSub 宏的编辑 编辑好上述代码后 返回EXCEL界面 单击 单变量方程计算 按钮 不到1秒钟系统自动计算好63个方程的根 见图16 图16 宏的编辑 图12 谷物发酵稳态模拟优化求解器 SubMacro3 DimiDimjFori 0 1To1Step0 1Range C6 SelectActiveWindow ScrollColumn 2ActiveWindow ScrollColumn 1ActiveCell FormulaR1C1 0 3 Cells 6 3 iRange D14 SelectActiveWindow ScrollColumn 2ActiveWindow ScrollColumn 3ActiveWindow ScrollColumn 4Forj 1To8SolverSolve True Nextj Cells 22 i 10 14 iCells 22 i 10 15 Cells 22 15 Cells 22 i 10 16 Cells 9 3 Cells 22 i 10 17 Cells 10 3 Cells 22 i 10 18 Cells 11 3 ActiveWindow ScrollColumn 3ActiveWindow ScrollColumn 2ActiveWindow ScrollColumn 1ActiveWindow ScrollColumn 2ActiveWindow ScrollColumn 3ActiveWindow ScrollColumn 4ActiveWindow ScrollColumn 3ActiveWindow ScrollColumn 2ActiveWindow ScrollColumn 1NextiEndSub 谷物发酵稳态模拟优化求解器 摩擦系数宏求解 SubMacro2 Dimi j 改变粗糙度Fori 0To10Cells 2 2 Cells 6 2 Cells 8 2 i 改变雷诺数Forj 0To20Cells 2 1 Cells 6 1 Cells 8 1 jCells 2 j 6 Cells 2 1 单变量方程求解Range C2 GoalSeekGoal 0 ChangingCell Range D2 Cells j 2 i 7 Cells 2 4 保存摩擦系数NextjNextiEndSub 摩擦系数宏求解 人有