valor - funcion search en vba

VBA Comprobar si la variable está vacía

Question

Tengo un objeto y dentro de él quiero verificar si algunas propiedades están configuradas en falso, como:

If (not objresult.EOF) Then
''Some code
End if

Pero de alguna manera, a veces objresult.EOF está Empty , y ¿cómo puedo verificarlo?

• IsEmpty función IsEmpty es solo para celdas de Excel
• objresult.EOF Is Nothing - return Empty
• objresult.EOF <> null - ¡devuelve Empty también!

Answer 1

La forma en que prueba depende del DataType de la propiedad:

| Type | Test | Test2 | Numeric (Long, Integer, Double etc.) | If obj.Property = 0 Then | | Boolen (True/False) | If Not obj.Property Then | If obj.Property = False Then | Object | If obj.Property Is Nothing Then | | String | If obj.Property = "" Then | If LenB(obj.Property) = 0 Then | Variant | If obj.Property = Empty Then |

Puede decirle a DataType presionando F2 para iniciar el Examinador de objetos y buscar el Objeto. Otra forma sería simplemente usar la función TypeName: MsgBox TypeName(obj.Property)

Answer 2

Para un número, es complicado porque si una celda numérica está empty VBA le asignará un valor predeterminado de 0, por lo que es difícil para su código VBA distinguir la diferencia entre un cero introducido y una celda numérica en blanco.

La siguiente comprobación funcionó para mí para ver si había un 0 real ingresado en la celda:

If CStr(rng.value) = "0" then
''your code here''
End If

Answer 3

Para verificar si una Variant es nula, debes hacerlo como sigue:

Isnull(myvar) = True

o

Not Isnull(myvar)