2013_08_09Excel编程入门.pptxVIP

Hello Work!;我是熟练的Excel使用者。 我能运用大部分Excel公式。 但是感觉有些事情还是太麻烦了！！ 超复杂的公式！ 重复的劳动！ 所以我在想有没有“正确的办法”来处理？ 现在我已经准备好接受点挑战了！ ;为了 进入新知识领域。 掌握一种思维方式。 了解计算机的运行原理。 真正 “驯服” 计算机。 建立与IT人的沟通平台。 你将能够 开发出自己的函数来！ 制作自己的常用工具！ ;VBA：Visual Basic for Application 用Basic语言为微软的Office软件开发扩展功能的一种技术。 学会了VBA，你可以为 Excel，Word，Power Point，Access等办公软件开发你要的新功能。 ;激活 “开发工具”菜单 Office 2007 左上角的office按钮?Excel选项 ?常用?在功能区显示“开发工具”选项卡。 Office 2013 左上角的“文件”菜单?选项 自定义功能区?自定义功能区，勾选 “开发工具” ;;带着问题出发吧！;Hello World!;需求：输入一个数值，得到它的绝对值。 接受第一个真正的挑战！ ;认识一下流程图吧！ 圆角矩形：开始或结束 方框：一个处理过程 菱形：判断 ;Function MyABS(N As Double) As Double If N 0 Then MyABS = N Exit Function Else MyABS = -N Exit Function End If End Function;;需求：输入一个数值n，计算1+2+3+……n等多少？ 稍微复杂一点点的挑战哦！;画个解决思路的流程图;Function Dect(N As Integer) As Integer Dim s As Integer s = 0 For I = 1 To N Step 1 s = s + I Next Dect = s End Function ;看看运行成果，好有成就感呀！;变量是什么？ 和代数里的变量是似类的。就像是一个有名字的盒子。里面可以放入任何东西，比如一个数据，一串文字。 程序利用盒子的名字来索引使用内容。 命名 1） 字母打头，由字母、数字和下划线组成，如 A987b_23Abc 2） 字符长度小于40，（Excel2002以上中文版等，可以用汉字且长度可达254个字符） 3） 不能与VB保留字重名，如public, private, dim, goto, next, with, integer, single等 ;For Each…Next 枚举范围内的每个值进行循环 For Each r In range1?……?Next? Do while …Loop 当条件成立时循环 Do While I 100 …… Loop Do until …Loop 循环到条件成立为止 Do Until I = 100 …… Loop ;需求： 输入一个基数金额，以及晚交的天数。 处罚规则： 晚1天罚10% 晚2到5天30% 晚6到10天60% 晚10天以上100% 计算出应该交的罚金。 ;Function GetFine(cAmount As Currency, iDays As Integer) As Currency Select Case iDays Case 1 GetFine = cAmount * 0.1 Case 2 To 5 GetFine = cAmount * 0.3 Case 6 To 10 GetFine = cAmount * 0.6 Case Else GetFine = cAmount End Select End Function;Choose 函数 Choose(索引号，待选值1，待选值2, ……) 例如： r = Choose(iDays, 0.1, 0.3, 0.3, 0.3, 0.3, 0.6, 0.6, 0.6, 0.6, 0.6) If (IsNull(r)) Then GetFine = cAmount Else GetFine = cAmount * r End If Switch函数 switch(判断1，值1，判断2，值2，……) 例如 r = Switch(iDays = 1, 0.1, _ iDays = 2 And iDays = 5, 0.3, _ iDays = 6 And iDays = 10, 0.6) If (IsNull(r)) Then GetFine = cAmount Else G