Funções Array, IsArray, VarType, IsDate, IsEmpty, IsNull, IsNumeric

Oi Pessoal!

Neste post vou citar algumas funções do VBA que servem para verificarmos o tipo de dado armazenado em uma variável.

Existem diversas Funções para determinar o tipo de valor contido em uma variável. Essas Funções servem, por exemplo, para validarmos o preenchimento de um formulário, verificando se o usuário digitou texto em um campo de valor numérico.

Um Array é um conjunto ou tipo especial de variável que pode armazenar diversos valores em uma única variável. Cada um de seus elementos é acessado através de um índice que inicia em zero, com a seguinte sintax: NomeArray (índice).

Importante: como o índice de um Array começa em zero, para declarar um Array de 30 elementos chamado Teste, usaremos a seguinte sintaxe: Dim Teste (29).

Exemplo de código:

 

Sub Array_Declaração()

Dim Meses(5)

Meses(0) = “janeiro”

Meses(1) = “fevereiro”

Meses(2) = “março”

Meses(3) = “abril”

Meses(4) = “maio”

Meses(5) = “junho”

For i = 0 To 5

Mensagem = Mensagem & “Mês ” & i + 1 & “: ” & Meses(i) & Chr(13)

Next

MsgBox Mensagem

End Sub

 

 

A Função IsArray

Utilizamos a Função IsArray para verificar se uma variável é do tipo Array, ou seja, se está armazenando elementos de um conjunto. A sintaxe desta Função é IsArray(NomedaVariável) e resulta em Verdadeiro nos casos positivos, ou Falso nos casos negativos.

Acrescentando o comando MsgBox IsArray(Meses) ao exemplo de código anterior, o Excel mostrará a mensagem Verdadeiro como resultado.

 

 

A Função VarType

Utilizamos a Função VarType para verificar o tipo de dado armazenado em uma variável. Com a sintaxe VarType(NomeDaVariável), ela retorna um número inteiro que indica o tipo de dado armazenado, conforme relação abaixo.

0 – Vazio (não inicializado)

1 – Nulo (dados não válidos)

2 – Inteiro

3 – Inteiro longo

4 – Número de precisão simples

5 – Número de precisão dupla

6 – Monetário

7 – Data

8 – Texto

9 – Objeto de automação

10 – Erro

11 – Boleano (Verdadeiro ou Falso)

12 – Variant (somente utilizado com Arrays de variantes)

13 – Objeto para acesso a dados

17 – Byte

8192 – Array

Exemplo de código:

 

Sub Função_Var_Type()

Dim x, y, z

Dim a, b

Dim c(20)

Dim Mensagem As String

x = 10

y = 1324678976

a = “Valor de texto”

b = Date

Mensagem = “Tipo da variável x: ” & VarType(x) & Chr(13)

Mensagem = Mensagem & “Tipo da variável y: ” & VarType(y) & Chr(13)

Mensagem = Mensagem & “Tipo da variável z: ” & VarType(z) & Chr(13)

Mensagem = Mensagem & “Tipo da variável a: ” & VarType(a) & Chr(13)

Mensagem = Mensagem & “Tipo da variável b: ” & VarType(b) & Chr(13)

Mensagem = Mensagem & “Tipo da variável c: ” & VarType(c) & Chr(13)

MsgBox Mensagem

End Sub

Obs: reparem no exemplo acima que utilizamos a Função Date como valor da variável b. Usamos essa Função quando queremos que o Excel nos informe a data do sistema.

 

A Função IsDate

Esta Função verifica se determinada variável ou expressão é uma data válida, retornado Verdadeiro em caso positivo, ou Falso em caso negativo. É usada, por exemplo, para validar a digitação de um campo de data em um formulário.

A sintaxe é a seguinte: IsDate(NomeDaVariável) ou IsDate(expressão).

Exemplo de código:

 

Sub Função_IsDate()

Dim x

x = Date

If IsDate(x) Then

MsgBox “A variável é uma data válida!”

Else

MsgBox “A variável não é uma data válida!”

End If

End Sub

 

A Função IsEmpty

Esta Função verifica se uma variável ou expressão possui valor, retornando Verdadeiro em caso positivo ou Falso em caso negativo. Ela nos permite, por exemplo, verificar se um campo de preenchimento obrigatório em um formulário está em branco. A sintaxe é a seguinte: IsEmpty(NomeDaVariável) ou IsEmpty(expressão).

Exemplo de código:

 

Sub Função_IsEmpty()

Dim a, b, c

a = 5

b = 7

If IsEmpty(x) Then

MsgBox “A variável x não está em uso!”

End If

End Sub

 

A Função IsNull

Esta Função verifica se o valor de uma variável ou expressão é Null, retornando Verdadeiro em caso positivo ou Falso em caso negativo. A sintaxe é a seguinte: IsNull(NomeDaVariável) ou IsNull(expressão).

Importante: uma variável com valor Null, apesar de não ter nenhum valor definido, continua existindo na memória e é diferente de uma variável com valor zero ou de uma variável de texto de tamanho zero.

Sub Função_IsNull()

Dim x

x = Null

If IsNull(x) Then

MsgBox “A variável x é Nula!”

End If

End Sub

 

A Função IsNumeric

 

Esta Função verifica se o valor de uma variável ou expressão é numérico ou se pode ser convertido em numérico.

Retornando Verdadeiro em caso positivo ou Falso em caso negativo, tem a seguinte sintaxe: IsNumeric(NomeDaVariável) ou IsNumeric(expressão).

Exemplo de código:

 

Sub Função_IsNumeric()

Dim x, y, z

x = 345

y = “Excel 2007”

z = Date

Mensagem = “O valor de x: ” & x & ” é numérico? ” & IsNumeric(x) & Chr(13)

Mensagem = Mensagem & “O valor de y: ” & y & ” é numérico? ” & IsNumeric(y) & Chr(13)

Mensagem = Mensagem & “O valor de z: ” & z & ” é numérico? ” & IsNumeric(z)

MsgBox Mensagem

End Sub

Abs, Dr. E

P.S. Gostaria de pedir desculpas, mas infelizmente não estou conseguindo responder todos os e-mails com dúvidas que venho recebendo. Por isso, peço que não usem o espaço de comentários do post para enviar dúvidas.

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s