vb.net - 检查excel范围是否为空

Question

在下面的代码中，我尝试检查单元格 R23 是否包含任何数据(如果有):

执行操作

如果没有

执行其他操作。

问题是单元格为空，但包含一个可能返回值或不返回值的公式。因此，这就是为什么我要检查值。问题是我的代码正在查看单元格中的公式，并出于某种原因认为它是一个字符串。如果我删除公式，那么我的代码将按计划执行。

我想不出我在这里做错了什么？

Option Explicit On
Option Strict On  

Private Sub radMoveToRowQ23EE_MouseHover(sender As Object, e As EventArgs) Handles radMoveToRowQ23EE.MouseHover



Dim eeName As String
    Dim WB As Excel.Workbook
    Dim WS as Excel.Worksheet
    WB = CType(Globals.ThisWorkbook.Application.ActiveWorkbook, Excel.Workbook)
    WS = CType(WB.Worksheets("positionBoard"), Excel.Worksheet)
    eeName = CStr(WS.Range("R23").Value)

    If eeName Is Nothing Then

        Me.tipSelectEmploye.SetToolTip(Me.radMoveToRowQ23EE, "No employee details to display")

    Else

        Me.tipSelectEmploye.SetToolTip(Me.radMoveToRowQ23EE, "Display details for employee: " & eeName)


    End If

End Sub

Answer 1

在 VBA 中，这是通过函数 IsEmpty 来完成的。因此，在 VB.NET 中，String.IsNullOrEmpty 是最好的等价物:

If (String.IsNullOrEmpty(eeName)) Then
    Me.tipSelectEmploye.SetToolTip(Me.radMoveToRowQ23EE, "No employee details to display")
Else
    Me.tipSelectEmploye.SetToolTip(Me.radMoveToRowQ23EE, "Display details for employee: " & eeName)
End If