If条件Then语句
发布时间:2016-02-23 14:21:14
发布时间:2016-02-23 14:21:14
If 条件Then 语句
例如,要删除工作表里面的空行,首先得确认当前单元格为空白的,如果测试的结果为真则继续删
除包含本单元格在内的整行:
If ActiveCell = "" Then Selection.EntireRow.Delete
如果当前单元格不是空白的,VB将忽略关键字Then后面的语句。
如果条件为真,你有时候可能想要执行好几个操作,虽然你可以在同一行加上其它的语句,通过冒
号分隔它们,但是如果你使用多行If…Then语句,你的代码将更清晰,如下:
If 条件Then
语句1
语句2
语句N
End If
例如,当当前单元格的数值大于50时执行一些操作,你可以编写如下指令:
If ActiveCell.Value >50 Then
MsgBox "The exact value is " & ActiveCell.Value
Debug.Print ActiveCell.Adress & ": " & ActiveCell.Value
End If
在上面的例子中,如果当前单元格数值小于等于50的话,那么在关键字Then和End If之间的语句就