【VBA研究】如何在if中判断一个值为null的变量

作者：iamlaosong

做一个工具要求用户先在列表框中选择，然后再做相应的操作，如果未做选择，要给出提示，调试中发现，取列表框的值，假如未做选择，此时值为null（空），对其进行常规的判断是不行的，例如下面语句：

    StationName = ListBox2.Value 
    If StationName=vbNullString Then

调试发现，上述if条件中无论用“=”还是用“<>”都不成立，用len(StationName)=0也不成立，因为此时的变量StationName值是null，意思为空，可以理解为没有赋值，虽然没有值，但它不是长度为0的字符串vbNullString，判断其不等于vbNullString也不成立，对于这样的变量需要采用下面方式进行判断：

    StationName = ListBox2.Value
    If IsNull(StationName) Or StationName = vbNullString Then
         msg = MsgBox("请先选择加油站！" , vbOKOnly + vbExclamation, "iamlaosong")
         Exit Sub
    End If

实测发现，列表框未做选择时，其值为null，但是，单元格的值却不一样，即使这个单元格没有使用，如果将其值赋给一个变量，这个变量的值是空字符串vbNullString，而不是null。