个人建网站的步骤,泰安住房和城乡建设厅网站,物流网站后台,网站用户需求报告萌二笔记分类目录及书单一、If-Then语句 说明#xff1a;条件判断#xff0c;如果......那么......例1#xff1a;A2单元格的成绩大于等于60#xff0c;则弹出对话框提示“及格”。Sub 判断成绩()If Range(A2) 60 Then MsgBox 及格End Sub操作…萌二笔记分类目录及书单一、If-Then语句 说明条件判断如果......那么......例1A2单元格的成绩大于等于60则弹出对话框提示“及格”。Sub 判断成绩() If Range(A2) 60 Then MsgBox 及格End Sub操作过程二、If-Then-Else语句 说明条件判断如果......那么......否则......例2使用按钮窗体控件判断A2单元格的成绩大于等于60则弹出对话框提示“及格”否则弹出对话框提示“不及格”。Sub 判断成绩() If Range(a1) 60 Then MsgBox 及格 Else MsgBox 不及格 End IfEnd Sub操作过程三、For-Next语句 例3判断A列成绩在B列对应单元格一次性返回全部结果大于等于60“及格”反之“不及格”。①常规公式法②VBA法for-next循环语句说明循环语句定义变量i第一个要判断的单元格行号为2最后一个行号为15Sub 判断成绩()Dim i As IntegerFor i 2 To 15 Step 1 If Range(A i) 60 Then Range(B i).Value 及格 Else Range(B i).Value 不及格 End IfNext iEnd Sub操作过程四、Do-While语句 还是上面例3。③VBA法do-while循环语句说明定义变量i初始值为2A列单元格不为空时按条件“判断成绩”遇到空格则停止判断。这样不需要看最后一行是多少增减数据不用更改代码。Sub 判断成绩3() Dim i As Integer i 2 Do While Range(A i).Value If Range(A i) 60 Then Range(B i).Value 及格 Else Range(B i).Value 不及格 End If i i 1 LoopEnd Sub操作过程把文件“另存为”EXCEL启用宏的工作簿(*.xlsm)【原文链接EXCEL中VBA基础语句(1)】
