轻松读懂VBA代码语句
只有爱好的人看着代码才会神采飞扬,不喜欢的看着就想睡觉。下面我分享一点我学习VBA语句的笔记出来,看看我这样记录是不是对的。
Sub st()
Workbooks.Add
End Sub 新建工作簿
Sub st()
Worksheets.Add
End Sub 新建工作表
Sub st()
[a1] = 20
End Sub 给单元格赋值
Sub st()
Range("a1") = 56
End Sub 给单元格赋值
Sub st()
[a1:d1] = 20
End Sub 给多个单元格赋值
Sub st()
Range("a1:d2") = 56
End Sub 给多个单元格赋值
Sub st()
ActiveCell = 20
End Sub 给活动单元格赋值
Sub st()
[a3].RowHeight = 50
End Sub 设置单元格行高
Sub st()
Range("a8").RowHeight = 50
End Sub 设置单元格行高
Sub st()
ActiveCell.RowHeight = 50
End Sub 设置活动单元格行高
Sub st()
Dim rb$ ‘申明一个长度字符串变量
rb = Application.Name ‘应用程序名字赋值给变量。
[a1] = rb ’把变量赋值放入单元格里面
End Sub
条件判断语句
Sub st()
Dim brt% "申明整数内型变量
brt = 20 "给变量赋值
If [a3] = brt Then [b3] = 100 "如果a3单元格内容与变量相等b3单元格就等于100。
End Sub
Sub st()
Dim brt% "申明整数内型变量
brt = 20 "给变量赋值
If [a3] = brt Then "条件判断
[b3] = 100 "条件成立执行
Else "条件不成立
[a4] = 200 "条件不成立执行。
End If "结束条件语句。
End Sub
Sub st()
Dim brt% "申明整数内型变量
brt = 20 "给变量赋值
If [a3] = brt Then "条件判断
[b3] = 100 "判断条件成立执行
ElseIf brt > [a3] Then "否者条件判断
Range("c1") = 500 "否者条件判断成立执行
Else "条件判断不成立
[a4] = 200 "条件判断不成立执行
End If "结束条件判断语句。
End Sub
Sub st()
Dim brt% "申明变量
brt = 20 "给变量赋值
[d1] = IIf(brt = [a3], [a4].Value, 1000) "函数条件判断语句
End Sub
Sub st()
Dim brt
brt = InputBox("输入密码") ,把消息框内容赋值给变量。
Select Case brt "条件
Case "555" "条件判断比对
MsgBox "不可以" "条件比对成功执行。
End Select "结束单条件语句。
End Sub
Sub st()
Dim brt
brt = InputBox("输入密码") "把消息框内容赋值给变量。
Select Case brt "条件
Case "555" "条件判断比对
MsgBox "不可以" "条件比对成功执行。
Case Else "条件不成立。
MsgBox "你错了" "条件不成产执行。
End Select "结束单条件语句。
End Sub
Sub st()
Dim brt% "申明整数内型变量
brt = InputBox("请输入分数") "给变量赋值
Select Case brt "条件
Case Is > 20 "条件对比判断
MsgBox "优" "条件对比判断成立执行
Case Is < 20 "条件对比判断
MsgBox "差" "条件对比判断成立执行
End Select "结束条件判断语句
End Sub "可以在里面写多个判断语句
Sub st()
Dim brt% "申明整数内型变量
brt = InputBox("请输入分数") "给变量赋值
Select Case brt "条件
Case 80 To 100 "条件判断,80与100之间的数
MsgBox "优" "条件成立执行
Case 60 To 79 "条件判断对比,60与79之间的数
MsgBox "良" "条件成立执行
Case 0 To 59 "条件判断对比
MsgBox "差" "条件成立执行
Case Else "条件不成立
MsgBox "请输入0到100之间数字" "条件不成立执行
End Select " 结束条件判断语句。
End Sub