43个典型excelvba实例

取性别”按钮。Р(5)输入身份证号码后单击“确定”按钮。Р例6  评定成绩等级Р1.案例说明Р本例将成绩表中的百分制成绩按一定规则划分为A、B、C、D、E五个等级。Р其中各等级对应的成绩分别为:Р—    A:大于等于90分;Р—    B:大于等于80分,小于90分;Р—    C:大于等于70分,小于80分;Р—    D:大于等于60分,小于70分;Р—    E:小于60分。Р2.关键技术Р本例共有五个分支,使用If…Then…Else这种二路分支结构也可完成,但需要复杂的嵌套结构才能解决该问题。其实VBA中提供了一种If…Then…ElseIf的多分支结构,其语法格式如下:РIf 逻辑表达式1 ThenР   语句序列1РElseIf 逻辑表达式2 ThenР   语句序列2.РElseIf 逻辑表达式3 ThenР   语句序列3Р    ... …РElseР   语句序列nРEnd IfР在以上结构中,可以包括任意数量的ElseIf子句和条件,ElseIf子句总是出现在Else子句之前。РVBA首先判断“逻辑表达式1”的值。如果它为False,再判断“逻辑表达式2”的值,依此类推,当找到一个为True的条件,就会执行相应的语句块,然后执行End If后面的代码。如果所有“逻辑表达式”都为False,且包含Else语句块,则执行Else语句块。Р3.编写代码Р(1)在Excel中打开成绩表。Р(2)按快捷键“Alt+F11”进入VBE开发环境。Р(3)单击“插入/模块”命令向工程中插入一个模块,并编写以下VBA代码:РSub 评定等级()Р    Dim i As IntegerР    For i = 3 To 11Р        t = Sheets(1).Cells(i, 2).Value   '取得成绩Р        If t >= 90 Then