《vb在excel中的应用.doc》由会员分享，可在线阅读，更多相关《vb在excel中的应用.doc（13页珍藏版）》请在金锄头文库上搜索。
1、1.例：2.定义数组的方法：Dim array_name (n) as type例如：定义一个数组保存1个人的名字Dim strname(9) as string说明：数组后面为 圆括号，元素下表默认从0开始，可以在模块的声明部分加上如下语句，让定义的数组下表从1开始Option base 1注意option base 语句必须写在模块的所有过程之前，并且只能出现一次。3.VBA的四种运算：算术运算、比较运算、逻辑运算和连接运算。算术运算：指数运算 22=4 -负数运算 -4 *，/乘除 整除 72=3 MOD取模 72=4 83=2 +,-加减比较表达式：=等于，不等于，大于，=大于等于。逻
2、辑表达式：其运行结果只有两种 ture和falseNot 取反运算 not xAnd 逻辑与运算 x and yOr 逻辑或运算 x or yXor 逻辑异或运算 x xor yEqv 逻辑相等运算 x eqv yImp 逻辑蕴含运算 x imp y4.连接运算表达式就是将两个以上的字符串使其成为一个字符串，例如Strtext=”Visual”+”Basic”,其结果相当于strtext=”Visual Baisc”。连接运算符只有两种：+和&。其区别+连接的是两个操作都是字符串的情况；&连接的连个操作数强制为字符串连接起来。例如：a=12b=1c=”12”d=”1”debug.print a
3、 & bdebug.print a & bdebug.print c & ddebug.print a + bdebug.print b + ddebug.print c + d程序运行结果：1211211211321215.赋值语句【Let】 变量=表达式Let关键字常省略6.输出语句在vb中的print输出语句主要用来调试程序，将变量的运算结果输出到立即窗口，格式如下：debug.print 【表达式1】【分隔符1】【表达式n】【分隔符】print首先计算表达式的值然后输出结果。其中分隔符可以几种形式:spc(n):插入n个空格到输出数据之间tab(n):移动光标到适当位置，n为移动列数分
4、号：表示前后两个数据项连在一起输出逗号：以14个字符为一个输出区，每个数输出到对应的输出区Print也可以用在窗体中当输出装置，但必须指明窗体名称7. ifthen语句If 逻辑表达式 then 语句序列End if8.ifthenelse语句If 逻辑表达式 then语句序列1elseif 逻辑序列表达式2 then语句序列2. else 语句序列nEnd if9.多分支语句select caseselect case测试表达式 case 表达式列表1 语句序列1 case 表达式列表2 语句序列2 .case else 语句序列nEnd select10.循环语句Do .loop语句，先测
5、试循环条件Do while loop形势如下Do while 逻辑表达式 语句序列1 exit do 语句序列2Loop Doloop while后测试循环条件语法格式：Do 语句序列1 exit do 语句序列2Loop while 逻辑表达式 Do untilloop先测试结束条件的语句语法格式Do until 逻辑表达式 语句序列1 exit do 语句序列2Loop这种形式与do whileloop相似，不同的是当表达式的值为false时才执行循环体，否则推出循环体Doloop until语句后测试结束条件语法形式Do 语句序列1 exit do 语句序列2Loop until 逻辑表
6、达式这种形式与doloop while相似，不同的是当表达式的值为false时才执行循环体，否则推出循环体For next语句语法如下For 循环变量=起始值 to 终值【step 步长值】 语句序列1 语句序列2Next 【循环变量】For eachnext语句语法格式For each 对象元素变量 in 对象集合 语句序列1 【exit for】 【语句序列2】Next 对象元素变量使用该语句的几点限制：对集合，对象元素变量只能是variant变量，或一般的对象（object）变量或对象浏览器中列出的对象；10.inputbox函数Inputbox函数的作用是显示一个输入对话框，等待用户输
7、入正文或单击按钮，并返回包含文本框内容的字符串数据，其语法为：Input=inputboxprompt,title,default,xpos,helpfile,context11.msgbox函数Msgbox函数的作用是以对话框的形式显示一些简单的错误，警告或提示给用户等待用户单击相应按钮做出响应，其用法有语句和函数两种格式，语句格式如下：Msgbox prompt ,buttons,title,helpfile,context函数格式：Value=msgbox（prompt,buttons,title,helpfile,context）大多数参数与 inputbox函数的参数意义是相同的，不
8、同的是多了一个buttons参数，用来制定按钮的数目及形式，使用提示图标样式、默认按钮及消息框的强制响应。Buttons的设置可分为4组：第一组值(0-5)用来决定对话框的形式与数目Bokonly：值0；只显示“确定”ok按钮Bokcancel：值1；显示“确定”ok及“取消”cancel按钮Vbabortretrylgnore：值2；显示“异常终止”abort“重试”retry及忽略lgnore按钮Vbyesnocancel：值3；显示“是”yes “否”no及“取消”cancel按钮Vbyesno：值4；显示 是 yes 否 no按钮Vbretrycancel：值;显示 重试 retry
9、及 取消 cancel按钮第二组值（16，32，48，64）用来决定图标的样式第三组值（0，256，512）用来决定哪个按钮时默认的按钮第四组值（0，4096）用来决定消息框的强制响应性intreturn = MsgBox(真的退出系统吗？, vbYesNo, vbQuestion, 提示)12.注释语句提高程序的可读性，方便代码的维护，vb中的注释语句有两种格式Rem注释内容 注释内容在代码语句后面添加注释一般用单引号（）如果使用rem，则需要早rem前面加冒号（：）来分割两条语句二过程和函数一、sub过程1.Sub子过程的语法格式：private public staticsubname(
10、arglist) statements exitsub statementsEndsubSub子过程的各参数含义Public 可选的，表示所有模块的所有其他过程都可以访问这个sub过程Private 可选的，表示只有在包含气声明模块中的其他过程可以访问sub过程Static 可选的，表示在调用之间保留sub过程的局部变量的值，static睡醒对在sub外声明的变量不会产生影响，即使过程中使用了这些变量Subname 必须的，sub的名称Arglist 可选的，代表在调用时要传递给sub过程的参数变量列表，多个变量可以用逗号隔开Statements 可选的，sub过程所执行的任何语句组如果没有使
11、用public或private显示指定，则sub过程就是公用的。2调用通用过程调用名为myproc的sub过程Call myproc（firstargument，secondargument）Myproc firstargument，secondargument注意使用call关键字是参数必须在括号里，若省略关键字call则必须省略参数两边的括号。3.调用function过程例如：调用有自定义函数area用来计算指定圆的面积：Print 10*area(5)X=area(5)X=anotherfuction(area（5）)例外也能用调用sub过程的方法Call area（5）Area 5这种
12、方法调用函数时，vb放弃返回值。4.参数传递按值传递参数，用byval关键字指出参数是按值来传递的Sub post1（byval intacctnum as integer） 过程语句块End sub调用过程call post1（a）或call post1（a+b）再调用过程中首先计算a或a+b的值，然将计算的结果赋值给intacctnum在子过程post1中不管怎么修改intacctnum的值调用的变量a都不会改变。5.按地址传递参数按照变量的内存地址去访问世纪变量的内容用byref关键字指出Sub post1 (byref intacctnum as integer) 过程语句块End s
13、ub在子过程 post1中修改了intacctnum的值并保存在内存中，调用程序中的变量a也取道同样内存单元的值，因此调用程序的实参a也要改变。三Excel对象Excel对象非常多，其实常用的对象只有几个，如applicantion对象，workbook工作簿对象，worksheet工作表对象等。1. 设置属性值Object.property=expression其中，object为对象名，property为对象的某个属性。例如：将工作表sheet1的标签重设为更改标签名Sheet1.name=”更该表签名”2.读取属性值Variable=object.property下面的代码计算工作表sh
14、eet1deep两单元格数据之和Intsum=sheet1.cells(2,1).value+sheet1.cell(2,2).value3.对象的方法再调用方法时使用点操作符引用，如有参数在方法后面加上参数值，参数间用空格隔开。Object.method例如：选中工作表sheet1的单元格“A1”然后清楚其中的内容Sheet1.range(“A1”).selectSheet1.range(“A1”).cleat4.使用withend with语句简化代码语法格式With 对象名 语句块End with有withend withPublic Sub 设置单元格格式()Selection.NumberFormatLocal = 0.00 With Selection.Font .Name = 宋体_GB2312 .FontStyle =
