注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

玄雨

一花一世界,一叶一菩提。

 
 
 

日志

 
 

【引用】VBA语言基础-2  

2012-01-14 11:24:41|  分类: 电脑 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
本文转载自bene《VBA语言基础-2》

1)注释语句是用来说明程序中某些语句的功能和作用;VBA中有两种方法标识为注释语句。

ü        单引号 ;如:定义全局变量;可以位于别的语句之尾,也可单独一行

ü        Rem ;如:Rem定义全局变量;只能单独一行

2)赋值语句是进行对变量或对象属性赋值的语句,采用赋值号 =,如X=123Form1.caption=”我的窗口

对对象的赋值采用:set myobject=object myobject:=object

第七节 书写规范

1VBA不区分标识符的字母大小写,一律认为是小写字母;

2)一行可以书写多条语句,各语句之间以冒号 : 分开;

3)一条语句可以多行书写,以空格加下划线 _ 来标识下行为续行;

4)标识符最好能简洁明了,不造成歧义。

第八节 判断语句

1If…Then…Else语句

If condition Then [statements][Else elsestatements]

1If A>B And C<D Then A=B+2 Else A=C+2

2If x>250 Then x=x-100

或者,可以使用块形式的语法

If condition Then

[statements]

[ElseIf condition-n Then

[elseifstatements] ...

[Else

[elsestatements]]

End If

1:

If Number < 10 Then

    Digits = 1

ElseIf Number < 100 Then

    Digits = 2

Else

    Digits = 3

End If

2Select Case…Case…End Case语句

1

Select Case Pid

Case “A101”

Price=200

Case “A102”

Price=300

……

Case Else

Price=900

End Case

3Choose 函数

choose(index, choce-1,choice-2,…,choice-n),可以用来选择自变量串列中的一个值,并将其返回,index 必要参数,数值表达式或字段,它的运算结果是一个数值,且界于 1 和可选择的项目数之间。choice 必要参数,Variant表达式,包含可选择项目的其中之一。如:

GetChoice = Choose(Ind, "Speedy", "United", "Federal")

4Switch函数

Switch(expr-1, value-1[, expr-2, value-2 _ [, expr-n,value-n]])

switch函数和Choose函数类似,但它是以两个一组的方式返回所要的值,在串列中,最先为TRUE的值会被返回。 expr 必要参数,要加以计算的 Variant 表达式。value 必要参数。如果相关的表达式为 True,则返回此部分的数值或表达式,没有一个表达式为 TrueSwitch 会返回一个 Null值。

第九节 循环语句

1For Next语句 以指定次数来重复执行一组语句

For counter = start To end [Step step]                    ' step 缺省值为1

[statements]

[Exit For]

[statements]

Next [counter]

1

For Words = 10 To 1 Step -1                                ' 建立 10 次循环

    For Chars = 0 To 9                                 ' 建立 10 次循环

        MyString = MyString & Chars         ' 将数字添加到字符串中

    Next Chars                                            ' Increment counter

    MyString = MyString & " "                      ' 添加一个空格

Next Words

2For Each…Next语句 主要功能是对一个数组或集合对象进行,让所有元素重复执行一次语句

For Each element In group

Statements

[Exit for]

Statements

Next [element]

1

For Each rang2 In range1

With range2.interior

.colorindex=6

.pattern=xlSolid

End with

Next

这上面一例中用到了 With…End With 语句,目的是省去对象多次调用,加快速度;语法为:

With object

[statements]

End With

3Do…loop语句 在条件为true时,重复执行区块命令

Do {while |until} condition             ' while 为当型循环,until为直到型循环,顾名思义,不多说啦

Statements

Exit do

Statements

Loop

或者使用下面语法

Do                                                    ' do 再判断,即不论如何先干一次再说

Statements

Exit do

Statements

Loop {while |until} condition

  评论这张
 
阅读(41)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017