ExcelVBA开发与实例PPT学习教案

1、会计学1 ExcelVBA开发与实例开发与实例PPT课件课件 第1页/共52页 第2页/共52页 第3页/共52页 第4页/共52页 第5页/共52页 第6页/共52页 第7页/共52页 第8页/共52页 第9页/共52页 第10页/共52页 第11页/共52页 Sub 主界面() 主界面 Macro Coren Lee 记录的宏 2002-11-5 Sheets(主界面).Select End Sub 第12页/共52页 第13页/共52页 第14页/共52页 第15页/共52页 第16页/共52页 n发生于对象上的事情 第17页/共52页 第18页/共52页 第19页/共52页 容器容器属

2、性 集合对象 第20页/共52页 第21页/共52页 第22页/共52页 第23页/共52页 If 条件1 Then 语句块1 ElseIf 条件2 Then 语句块2 Else 语句块n+1 End If Select Case 测试变量 Case 表达式1 语句块1 Case 表达式2 语句块2 Case Else 语句块n+1 End Select 第24页/共52页 For 变量=初值 To 终值 Step 步长 语句块 Next 变量 For Each 对象变量 In 对象集 语句块 Next 对象变量 Do While 条件表达式 语句块 Loop 第25页/共52页 第26页/共

3、52页 Private Sub donkey_Click() MsgBox ( I am a donkey ) End Sub Private Sub Wabbit_Click() Call PlaySound(ActiveDocument.Path + wabbit.wav) End Sub Private Sub turtle_Click() Const Answer = TURTLE Dim Tries As Integer Dim Message, Title, Default0, MyValue As String Tries = 0 Message = What am I? Set

4、 prompt. Title = What am I? Set title. Default0 = * Set default for input field. Question: Tries = Tries + 1 If Tries = 3 Then Default0 = T* End If If Tries = 4 Then Default0 = TUR* End If MyValue = InputBox(Message, Title, Default0) MyValue = UCase(MyValue) Convert to uppercase 第27页/共52页 第28页/共52页

5、第29页/共52页 第30页/共52页 第31页/共52页 第32页/共52页 第33页/共52页 第34页/共52页 第35页/共52页 的什么位置 n创建程序包 第36页/共52页 第37页/共52页 第38页/共52页 Office XP标准版标准版专业版专业版企业版企业版开发版开发版 Word Excel Outlook PowerPoint Access FrontPage (SharePoint) 开发工具开发工具 小型语言套件小型语言套件(英文界面英文界面) 素材库素材库 建议市场零售价 普通版全包装产品普通版全包装产品￥3940￥4720-￥6310 普通版许可证普通版许可证￥

6、2925￥3528￥4405￥4926 升级版全包装产品升级版全包装产品￥1970￥2750-￥4340 升级版许可证升级版许可证￥1408￥2102￥2605￥3510 第39页/共52页 n起点高，开发周期短 第40页/共52页 nOffice 260 nOffice 开发版Office 完备开发 工具 第41页/共52页 nOffice XP 第42页/共52页 Microsoft Office XP 小型语言套件（切换为英文界面） 第43页/共52页 n文本文件 第44页/共52页 第45页/共52页 第46页/共52页 第47页/共52页 Visual InterDev 的 Web 部件生 成器加载项 第48页/共52页 第49页/共52页 语言特性 O