Question

VBA问题，如何判断某一单元格为空？

Answer 1

输入一下程序判断选中的单元格是否为空单元格

Sub n（）

If Selection.Value = Then

MsgBox 

Else

MsgBox 

End If

End Sub

扩展资料：

VBA主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。

该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言--------Visual Basic for Application(VBA)，实际上VBA是寄生于VB应用程序的版本。

掌握了VBA，可以发挥以下作用：

1.规范用户的操作，控制用户的操作行为；

2.操作界面人性化，方便用户的操作；

3.多个步骤的手工操作通过执行VBA代码可以迅速的实现；

4.实现一些VB无法实现的功能。

5.用VBA制做EXCEL登录系统。

参考资料来源：百度百科-VBA

Answer 2

输入一下程序判断选中的单元格是否为空单元格

Sub n（）

If Selection.Value = Then

MsgBox 

Else

MsgBox 

End If

End Sub

扩展资料

过程与函数

Sub 过程名(参数表)    语句块    Exit Sub    语句块End Sub

Function 函数名(参数表) As Type   语句块   函数名=表达式   Exit FunctionEnd Function

可以是Private、Public、Friend、Static等修饰。

调用函数/过程时，可以加括号或者不加括号。如果调用表达式作为一行的一部分，那么必须用参数，例如函数调用的返回值赋给变量。 调用过程时， 可以使用/不使用call关键字。使用call语句调用过程，如果无参数，则不加括号；如果有参数，必须加括号。如果调用时用括号包住单个参数，则该参数强行按值传递。需要特别注意，不用call不加括号的调用，形参与实参是传值(passed by value)而不是传引用(passed by reference)，这会导致一些对象的方法调用失败。

参考资料来源：百度百科-VBA

Answer 3

以下代码为判断选中的单元格是否为空单元格：
Sub n()
If Selection.Value = "" Then
MsgBox "空单元格"
Else
MsgBox "非空单元格"
End If
End Sub

Answer 4

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
If Target.Value = "" Then
Target.Offset(0, -3) = ""
Else
Target.Offset(0, -3) = Date
End If
End If
End Sub
--------------
下面是完整的代码，可以实现同时处理多个单元格：
-------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.EnableEvents = False
For Each c In Target
If c.Column = 4 Then
If c.Value = "" Then
c.Offset(0, -3) = ""
Else
c.Offset(0, -3) = Date
End If
End If
Next
Application.EnableEvents = True
End Sub

Answer 5

xaRichard 回答正确但是有种写法更具有可读性。就是把 "" 换成 empty。再用xaRichard的例子来说明
dim strT as string
if cells(i,j)=empty then
strT="空单元格"
else
strT="非空单元格"
endif

追问

如果某一列的某个单元格为空，那么另一列的同一行的单元格也为空，如何写呢？