Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA
Esse 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)
