officeExcelVBA入门教程.docVIP

office_Excel_VBA_入门教程VBA，他有什么能耐？我们为什么要学习他？是不是真的“除了不会生孩子外，什么都会”？不是的，什么都不会是万能的，“寸有所长，尺有所短”。个人常讲的：从A处到B处，步行、乘汽车、乘火车、乘飞机一个比一个先进、一个比一个优越，当A是成都B是北京时肯定如此，然而A和B是一个家属院的两幢楼时大约就不是这样了吧？哪么我们在什么时候使用他？个人认为有以下情况时我们可以考虑看能否用VBA解决： 当我们仅仅在电脑上从事机械的、重复的简单的体力劳动的时候； 当我们在表格中写入的函数太多而致使改动一个数据，去泡了一杯茶过来电脑都还没有运算完的时候； 当我们需要在不同的文件间进行数据交换的时候； 当我们需要进行实时监控的时候 ……总之就是我们用电脑解决一些有规律的，我们用函数、技巧解决起来却很麻烦，或很耗时，或不太好解决甚至不能解决的问题，就可以考虑用VBA能否方便快捷地完成。那么VBA难吗？看到的VBA代码都是些鸟文，俺不懂鸟文，能学会吗？VBA难，担不会比E中的函数难，能学会E中的函数的人都应该能学会V，并且绝对比用E中的数组公式简单。懂不懂鸟文与学得会学不会V关系不大，不会有多少人E中的每个函数都能默写出来吧？对E中的函数我是仅仅记住了常用的那几个，其余的要用到时再到帮助中去找。V同样如此，有时整段整段的代码都来自帮助，稍改下就成了自己的了在进入下面的学习以前，请暂时忘掉你原有的excel函数、技巧等等吧。此贴是为完全不懂VBA、完全不懂程序设计的人而写的，否则还是请绕道，他会浪费你很多时间和精力。学VBA的要点是动手动脑，然后是再动手动脑，最后还是动手动脑。这里的动手，是指录入代码（哪怕是照抄别人的，都得自己手录入，而绝不能复制粘贴）、改代码（ 阅读理解别人代码的基础上进行功能改、扩等的改写）、写代码；动脑除了常规意义上的思考等以外，此处还包括阅读理解程序，阅读的时候大脑模拟电脑执行过程，要知道每到一处的时候各变量、参数的值是什么、处于何种状态。 ------------------------------分-------界-------线----------------------------VBA程序设计程序设计的基础知识： 一、计算机解决问题的步骤 计算机解决问题的步骤：一般来说，在运用计算机程序解决一个具体的实际问题时，大致经过以下几个步骤： 首先建模：分析问题，从具体问题中找出一个适当的数学模型 其次确定算法：然后设计一个解决数学模型的算法， 最后编制程序并进行测试调整，直到得出最终答案。 由于每一步不见得都能得到正确的方向，所以在每一步都可能返回到前一步甚至前几步。图形如下： 可见建立的模型不同（整得这么神秘，什么建模了、算法了，其实就我们对问题的想法，完成问题的具体步骤），最终编制出来的程序也就不同。 我们先来看一个经典的问（鸡兔同笼问题）：有若干只鸡兔同在一个笼子里，从上面数，有35个头；从下面数，有94只脚。问笼中各有几只鸡和兔？ 分析一：设兔子的数量为X，则鸡的数量为35-X，那么脚的数目就为4X+2（35-X）。我们就可以让X从0开始逐步增加，只要使4X+2（35-X）=94，就得到了兔子和鸡的数目。这就是所谓的建模。 确定算法： ①输入头的数目a，脚的数目b ②x= 0 ③如果4X+2（a-X）不等于b，则x增加1，重复③；否则进入④ ④输出兔子的数量X，则鸡的数量35-X ⑤结束 Sub jttl() Dim a AsInteger, b As Integer Dim x AsInteger a =InputBox(a=, 请输入头的数目) b = InputBox(b=,请输入脚的数目) x = 0 Do Until 4 *x + 2 * (a - x) = bx = x + 1 Loop MsgBox 有兔 x 只，有鸡 35 - x 只 End Sub 分析二（换一个思路，另建个模）：设兔子的数量为X，鸡的数量为Y，头的数目为a，脚的数目为b，则有X+Y=a,4X+2Y=b，解方程组可得X=b/2-a,Y=2a-b/2 确定算法： ①输入a和b的值 ②计算x= b/2-a ③计算y=2a-b/2 ④输出x、y的值 ⑤结束 编制程序： Sub jttl () Dim a AsInteger, b As Integer dim x AsInteger, y As Integer a =InputBox(a=, 请输入头的数目) b =InputBox(b=, 请输入脚的数目) x =