2013-08-09Excel编程入门

《2013-08-09Excel编程入门》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、HelloWork!ExcelVBA编程入门太平洋寿险北分信息技术部1我是熟练的Excel使用者。我能运用大部分Excel公式。但是感觉有些事情还是太麻烦了！！超复杂的公式！重复的劳动！所以我在想有没有“正确的办法”来处理？现在我已经准备好接受点挑战了！本节课程的预期听众2为了进入新知识领域。掌握一种思维方式。了解计算机的运行原理。真正“驯服”计算机。建立与IT人的沟通平台。你将能够开发出自己的函数来！制作自己的常用工具！你将从本课程上学到的3VBA：VisualBasicforApplication用Basic语言为微软的Offi

2、ce软件开发扩展功能的一种技术。学会了VBA，你可以为Excel，Word，PowerPoint，Access等办公软件开发你要的新功能。啥叫VBA激活“开发工具”菜单Office2007左上角的office按钮Excel选项常用在功能区显示“开发工具”选项卡。Office2013左上角的“文件”菜单选项自定义功能区自定义功能区，勾选“开发工具”开启Excel的VBA编程功能5认识一下VBA的开发环境6项目区。每一个Excel文件都是一个项目。属性区。当前选中的对象的属性显示与调整程序代码编写区域。工具栏带着问题出发吧！7

3、HelloWorld!所有编程书里的第一个程序。在Excel的A1格里写下“HelloWorld”.SubHello()setws=ThisWorkbook.ActiveSheetws.Cells(1,1).Value="HelloWorld!"EndSub需求：输入一个数值，得到它的绝对值。接受第一个真正的挑战！求出绝对值——自己的abs函数9认识一下流程图吧！圆角矩形：开始或结束方框：一个处理过程菱形：判断画个解决思路的流程图10FunctionMyABS(NAsDouble)AsDoubleIfN>0ThenMyABS=NEx

4、itFunctionElseMyABS=-NExitFunctionEndIfEndFunction把流程图翻成程序11运行我们自定义函数！——好幸福！！12需求：输入一个数值n，计算1+2+3+……n等多少？稍微复杂一点点的挑战哦！计算阶加——循环处理13画个解决思路的流程图14FunctionDect(NAsInteger)AsIntegerDimsAsIntegers=0ForI=1ToNStep1s=s+INextDect=sEndFunction把流程图翻译成程序15看看运行成果，好有成就感呀！运行成果16变量是什么？和代

5、数里的变量是似类的。就像是一个有名字的盒子。里面可以放入任何东西，比如一个数据，一串文字。程序利用盒子的名字来索引使用内容。命名1）字母打头，由字母、数字和下划线组成，如A987b_23Abc2）字符长度小于40，（Excel2002以上中文版等，可以用汉字且长度可达254个字符）3）不能与VB保留字重名，如public,private,dim,goto,next,with,integer,single等现在我们会使用变量了数据类型数据类型类型标识符字节字符串型String$字符长度(0-65400)字节型Byte无1布尔型Bool

6、ean无2整数型Integer%2长整数型Long&4单精度型Single!4双精度型Double#8日期型Date无8公元100/1/1-9999/12/31货币型Currency@8小数点型Decimal无14变体型Variant无以上任意类型，可变对象型Object无417ForEach…Next枚举范围内的每个值进行循环ForEachrInrange1 …… NextDowhile…Loop当条件成立时循环DoWhileI<100……LoopDountil…Loop循环到条件成立为止DoUntilI>=100……Loop

7、还有几种循环写法Do…Loop{while

8、until}先至少走一次，在结束时判断Do……LoopwhileI<>100while…wend与dowhile功能相同WhilenotI=100……wend18需求：输入一个基数金额，以及晚交的天数。处罚规则：晚1天罚10%晚2到5天30%晚6到10天60%晚10天以上100%计算出应该交的罚金。分天罚款！——条件分支19FunctionGetFine(cAmountAsCurrency,iDaysAsInteger)AsCurrencySelectCaseiDaysCase1GetFi

9、ne=cAmount*0.1Case2To5GetFine=cAmount*0.3Case6To10GetFine=cAmount*0.6CaseElseGetFine=cAmountEndSelectEndFunction代码20两