IsMissing

Descrição:

A função IsMissing em VBA é utilizada para verificar se um argumento opcional foi passado para uma função. Ela é particularmente útil quando se tem funções com parâmetros que podem ser omitidos. A função IsMissing retorna um valor booleano indicando se o argumento foi fornecido (False) ou não (True).

Exemplos:

Function Exemplo1(Optional valor As Variant)
    If IsMissing(valor) Then
        MsgBox "O argumento 'valor' não foi fornecido."
    Else
        MsgBox "O argumento 'valor' foi fornecido com o valor: " & valor
    End If
End Function
    

Neste exemplo, a função Exemplo1 verifica se o argumento valor foi fornecido. Se não, exibe uma mensagem indicando que o argumento não foi passado. Se sim, exibe o valor fornecido.

Function Exemplo2(Optional texto As String)
    If IsMissing(texto) Then
        MsgBox "O argumento 'texto' não foi fornecido."
    Else
        MsgBox "O argumento 'texto' foi fornecido com o valor: " & texto
    End If
End Function
    

Neste exemplo, a função Exemplo2 verifica se o argumento texto foi fornecido. Se não, exibe uma mensagem indicando que o argumento não foi passado. Se sim, exibe o valor fornecido.

Function Exemplo3(Optional numero As Integer)
    If IsMissing(numero) Then
        MsgBox "O argumento 'numero' não foi fornecido."
    Else
        MsgBox "O argumento 'numero' foi fornecido com o valor: " & numero
    End If
End Function
    

Neste exemplo, a função Exemplo3 verifica se o argumento numero foi fornecido. Se não, exibe uma mensagem indicando que o argumento não foi passado. Se sim, exibe o valor fornecido.

Function Exemplo4(Optional data As Date)
    If IsMissing(data) Then
        MsgBox "O argumento 'data' não foi fornecido."
    Else
        MsgBox "O argumento 'data' foi fornecido com o valor: " & data
    End If
End Function
    

Neste exemplo, a função Exemplo4 verifica se o argumento data foi fornecido. Se não, exibe uma mensagem indicando que o argumento não foi passado. Se sim, exibe o valor fornecido.

Function Exemplo5(Optional lista() As Variant)
    If IsMissing(lista) Then
        MsgBox "O argumento 'lista' não foi fornecido."
    Else
        MsgBox "O argumento 'lista' foi fornecido com " & UBound(lista) + 1 & " elementos."
    End If
End Function
    

Neste exemplo, a função Exemplo5 verifica se o argumento lista foi fornecido. Se não, exibe uma mensagem indicando que o argumento não foi passado. Se sim, exibe a quantidade de elementos na lista.