第四章 VBA定位内置函数.pdfVIP

VBA定位内置函数 VBA ⾃带了很多内置函数，可以在在线帮助⾥很容易地找到这些函数。在VB编辑器 窗⼜选 “帮助”－“Microsoft Visual Basic帮助”可以访问所有VBA函数按字母顺序排序 的清单，然后点击“函数” ，例如，以MsgBox或InputBox函数为例。⼀个程序好的功能 之⼀就是要与⽤户互动，当你使⽤Excel时，你通过多种对话框与该应⽤程序交流，当 你犯错的时候，对话框会弹出来，并且告诉你有错误。 当你编写你⾃⼰的程序时，你也可以将出乎意料的错误或某个计算的结果通知⽤户， 你可以使⽤函数MsgBox帮助你做这些。到⽬前为⽌，你只是看到了这个函数的⼀些 简单应⽤，在下⾯的部分，你将了解如何控制你信息的外观；你也将学习如何使⽤函 数InputBox从⽤户获得信息。在我们详细讨论这些函数之前，我们来看⼀个VBA函 数，在你已经很熟悉变量和它们的类型的时候，它对你特别有⽤处。 VB有个VarType函数，它返回⼀个值变量类型的整数。图4－4例显⽰了函数VarType 的语法和它返回的值。 图4－4 使⽤内置函数VarType ，你可以判别变量的类型 （本截图与2002版本有区别） 现在，看看如何在⽴即窗⼜⾥使⽤这个函数： 1.打开⽴即窗⼜ 2. 输⼊下列给变量赋值的语句 age 18 birthdate # 1/ 1/ 1981# firstName John 3. 现在询问VB每个变量的数据类型是什么： ?varType(age) 你按下回车时，VB返回2 ，如图4－4所⽰，数字2代表整数类型。 ?varType(birthdate) VB返回7代表⽇期。如果你在变量名称上犯了个⼩错误 （⽐如说，你输⼊了birthday⽽ 不是birthdate ），VB将返回0 。 ?varType(firstName) VB告诉你变量firstName的数据是字符串 （8 ）。 使⽤MsgBox函数 你⽬前使⽤的MsgBox函数局限于给⽤户⽤⼀个简单的，⼀个按钮的对话框显⽰信 息。你点击确定按钮或者回车来关闭该信息框。要创建⼀个简单的信息框，只要在 MsgBox函数名称后⾯带上⼀个⽤引号包括起来的⽂本就可以了。换句话说，要显⽰ 信息“过程已完成” ，你应该准备下列语句： MsgBox 过程已完成 ‘ （注意，英⽂状态的引号） 你可以将它输⼊⽴即窗⼜，快速地测试上⾯的指令，当你输⼊完这条指令并且回车 后，VB就显⽰如图4－5的信息框。 图4－5 将⽂本作为MsgBox函数的参数，来给⽤户显⽰信息 MsgBox函数允许你使⽤其它参数，使你可能决定可⽤的按钮数⽬，或者将默认的信 息框的标题 （Microsoft Excel ）改为你⾃⼰的标题。也可以设置你⾃⼰的帮助主题。 MsgBox的语法如下： MsgBox (prompt [, buttons] [, title], [, helpfile , context]) 注意，MsgBox函数有五个参数，只有第⼀个，Prompt （提⽰），是必须的；这些列 在⽅括号⾥⾯的参数都是可选的。当你在提⽰参数输⼊⼀个⾮常长的⽂本时，VB决 定如何断句，使⽂本适合信息框⼤⼩。我们在⽴即窗⼜⾥来做些练习，看不同的⽂本 格式技巧： 1. 在⽴即窗⼜输⼊以下指令，确保在⼀⾏⾥输⼊整个⽂本，回车 MsgBox All done . Now open Chap04 .xls and place an empty disk in the diskette drive . The following procedure will copy this file to the disk . ⼀旦回车，VB显⽰信息框，如图4－6 图4－6 如果你设置⼀下⽂本格式，长信息看上去将会更吸引⼈ 如果你遇到编译错误，可以点击确定，然后确定⽂件名⽤双引号括起来 ——““Chap04 .xls”” 。当你的信息⽂本特别长时，你可以使⽤VBA函数Chr将它分割为 好⼏⾏。Chr 函数需要你跟参数，这个参数是0到255之间的数字，它返回这个数字代 表的字符。例如Chr(13)返回的是回车 （这和按下回车键相同），以及Chr(10)返回换⾏ 字符 （这在⽂本⾏之间添加空⾏很有⽤）。 2. 将上⾯的指令修改为下述⽅式： MsgBox All done . Chr(13) Now open Chap04 .xl