Excel vba planilha tipo dados celula ativa funcao

Seg, 18 de Julho de 2011 17:57 Expedito Marcondes
Imprimir

Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA

E
sse procedimento do Aplicativo Microsoft Excel VBA, auxiliado por uma função retorna o TipoValor contido nas células, neste caso,
células vazias, se contém números, se contém datas ou Texto. observe que também inserimos a função como fórmula na célula, que retorna
também o valor contido na célula.

Private Sub Worksheet_BeforeDoubleClick
(ByVal Target As Range, Cancel As Boolean)
sbx = TipoValor(ActiveCell)
ActiveCell.Offset(0, 2).Value = sbx    'deslocando duas colunas a direita e inserindo o resultado armazenado pela variável (sbx)
End Sub

'Função que retorna o tipo de dados contidos na célula
Private Function TipoValor(Celula As Range) As String

If Celula.Value = "" Then
   TipoValor = "Celula Vazia"
ElseIf IsNumeric(Celula.Value) Then
   TipoValor = "Contém número"
ElseIf IsDate(Celula.Value) Then
   TipoValor = "Contém Data"
Else

TipoValor = "Contém texto"
End If

End Function



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

  Baixe o exemplo de planilha contendo procedimentos e funções acima
       Excel vba planiha tipo dados celula ativa funcao (25.1 KB)

Tags:
Última atualização em Qua, 10 de Agosto de 2011 08:28