8.1Excel 中的宏应用.pptx

《8.1Excel 中的宏应用.pptx》由会员分享，可在线阅读，更多相关《8.1Excel 中的宏应用.pptx（28页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 如何在excel中应用宏进行批量计算什么是宏？宏是一系列操作的组合，是指程序员事先定义的特定的一组“指令”，这样的指令是一组重复出现的代码的缩写，此后在宏指令出现的地方，系统总是自动的把他们替换成相应定义的操作或代码块。其实宏相对于微而言，微即单步操作；宏本身范围也可大可小。宏在哪里？Excel2003中的宏组件可在“工具”菜单栏下找到，而在Excal2007版中需要在“开发工具”菜单栏下找到，见下图1。高于2007版本的，也同样通过“开发工具”菜单栏下找到宏组件。图1图1 开发工具下的宏组件如何找到开发工具菜单栏？一般办公电脑没有开发工具菜单栏，需要通过点击Excel软件最右上角的offi

2、ce 按钮，在弹出的对话框中，点击左下的“Excel选项”，再在弹出的对话框中将“开发工具”选项卡打钩，点击确定，“开发工具”菜单栏便会出现在基本菜单栏中。点击Office 按钮点击“Excel选项”打钩、确定如何进行宏的安全性设置？如果不对宏的安全性进行设置，你所录制的宏可能无法应用。这时，需要点击图1中的“宏安全性”，弹出图2，进行设置。选“宏设置”，点击“启用所有宏”，点击确定。有时可能仍无法使用上次开发的宏。这时可退出Excel，再次打开Excel，就可以使用上次开发的宏了。图2 宏安全性设置如何录制宏？录制宏的目的是为了调用宏，调用宏的目的是为了让电脑解决一系列重复的问题，并形象地表

3、示出来。所以在录制宏之前必须先解决上面的问题。先举一个简单的例子。已知方程：求该方程在不同 a、b值时的解，求取a=0-10 间隔 0.5，b=1、2、3的共213个解。录制前，先根据要解决的问题，建立 Excel 表格，如下：这里，x、a、b的初值可以任意给定，一般建议给定1为好，F项是公式，和VB编程相当。为了保证录制正确的宏，一般先将需要录制的宏操作一遍，此问题是单变量求解问题。如何录制宏？单变量求解：点击“数据”，“假设分析”，系统弹出如图3所示，点击图3中的“单变量求解”，系统弹出图4。如何录制宏？图3 单变量求解1目标单元格选D2,目标值输入0，可变单元格选A2,点击“确定”，可得

4、A2单元格的值为为6.64453，为方程解，为方程解，如果小于如果小于点点过少，过少，可将可将A列向右拉，就会增加小于点列向右拉，就会增加小于点。图图4 单变量求单变量求解解2如何录制宏？做完了前面的准备工作，将X值先恢复到1，点击图1中的“录制宏”系统弹出图5。默认宏名为默认宏名为Macro1,输入快捷输入快捷键为键为a,点击点击“确定确定”，将原来的单，将原来的单变量方程求解过程重复一遍。变量方程求解过程重复一遍。图5 宏录制如何录制宏？得到方程解后，再点击“开发工具”，点击“停止录制”，完成一个宏的完整录制过程。图6 宏停止录制如何录制宏？如何调用宏？单击“开发工具”，点击“插入”，出现

5、“表单控件”，点击“表单控件”中的第一个按钮（窗体按钮），出现”+”号。图7 宏调用1 如何调用宏？将出现的”+”号移动至适当位置，如图按钮7（原来没有的左上角，按住拖动成一定大小的矩形，此时系统自动产生“按钮7”字样及“指定宏”对话框，注意“7”不一定，也有可能是1、2、3，跟前面已输入的按钮有关。图8 宏调用1 点击图8中的“Macro1”,图8中的“指定宏”转变成图9，表明刚才插入的“按钮7”已和我们录制的宏“Macro1”绑定，点击确定出现图10。图9 宏调用2如何调用宏？图8 宏调用1将图10中的“按钮7”3个字删除，输入“单变量方程求解”7个字，如无法操作时，可通过点击右键，在功能

6、菜单单中选择“编辑文字”，光标移出按钮，点击，出现图11。图10 宏调用3如何调用宏？图11 宏调用4 注意图10，11中的a,b的系数已变为2，3，这时我们在调试单变量方程计算过程中改变的数字，不会影响宏的应用，现在我们可以任意改变a,b的值，当然需要保证方程：有实数根，否则无解。，现输入a=10,b=2，点击“单变量方程计算”，见图12。如何调用宏？如果宏的应用到此为止，那么，还没有充分发挥宏的威力，只不过减少了一些步骤，可以方便地求出但变量方程的解，但是如果能够对宏进行编辑，那么，宏的威力将带给你无穷的威力。图12 宏调用5 如何调用宏？如何编辑宏？回到原问题：已知方程：求该方程在不同

7、a、b值时的解，求取a=0-10 间隔 0.5，b=1、2、3的共213个解。如果利用图12中的宏的调用，需要改变63次a、b的值，同时点击63次“单变量方程求解”按钮，同时需要及时将所求的根转移至其他单元格，否则所求的根就会被新根替代。在EXCEL的宏编辑中，最关键的要素是单元格的定义，EXCEL表中的每一格可以用CELLS(I,J)定义，如图12中的X的根3.0858所在的单元格为CELLS(2,1),2表示第二行，1表示第A列,依次类推，可以定义所有的单元格。现在要利用宏的编辑，直接产生63个根，并将对应的数据放在第5行至第67行，第A列至第D上，其程序编辑过程如下。图12如何编辑宏？图

8、13 宏编辑1单击图13中的“查看宏”，弹出图14，选择“Macro1”点击图14中的“编辑”，弹出图15。图14宏编辑2 如何编辑宏？图15宏编辑2 删除绿色部分代码，有时会有红色部分代码，这是一些宏录制过程中多余或错误的操作记录，删除。并按题目要求编辑宏代码。如何编辑宏？Sub Macro1()For j=1 To 3 3种b的数值 For i=1 To 21 21种a的数值 Cells(2,2)=(i-1)*0.5 a的值用循环语句来赋值 Cells(4+(j-1)*21+i,1)=(i-1)*0.5 a的值新放置位置，从第5行开始 Cells(2,3)=j b的值用循环语句来赋值 Ce

9、lls(4+(j-1)*21+i,2)=j b的值新放置位置，从第5行开始 Range(D2).GoalSeek Goal:=0,ChangingCell:=Range(A2)方程求解 Cells(4+(j-1)*21+i,3)=Cells(2,1)将方程的根保存起来 Cells(4+(j-1)*21+i,4)=Cells(2,4)将方程的偏差保存起来 Next iNext jEnd Sub如何编辑宏？编辑好上述代码后，返回EXCEL界面，单击“单变量方程计算”按钮，不到1秒钟系统自动计算好63个方程的根，见图16。如何编辑宏？图16 宏编辑3024681012345678910 xx图17

10、b=1,a=0.5-10时的方程解摩擦系数宏求解Sub Macro2()Dim i,j 改变 粗糙度For i=0 To 10 Cells(2,2)=Cells(6,2)+Cells(8,2)*i 改变雷诺数 For j=0 To 20 Cells(2,1)=Cells(6,1)+Cells(8,1)*j Cells(2+j,6)=Cells(2,1)单变量方程求解 Range(C2).GoalSeek Goal:=0,ChangingCell:=Range(D2)Cells(j+2,i+7)=Cells(2,4)/保存摩擦系数 Next j Next i End Sub摩擦系数宏求解Excel 宏应用演示应用程序：Excel 2007版本小结p宏组件在开发工具菜单栏下，开发工具菜单栏一般需要加载；p使用宏时必须通过宏安全设置，启用所有宏；p录制好的宏可以通过表单控件中的窗体按钮将其绑定；p通过编辑绑定后的宏，可以的规模批量计算功能;p宏编程时用cells(i,j)定义单元格，i代表行，j代表列。开发题 任选一化工或能源专业的计算问题，通过双层循环，至少设置2个可变量，开发可进行批量计算的宏程序，并用表格和图示表示计算结果。要求提供宏代码、Excel计算界面截屏、原问题表述以及开发思路。