Saberexcel - site das macros

Funçao do Aplicativo Microsoft Excel VBA, converte datas digitadas em células, inserindo as barras de separação de datas dia, mes, ano,
por exemplo voce diigita : (*) Baixe o exemplo de planilha no final da página.  
Observe que fizemos uma formatação personalizada na coluna (Data Digitada) @ para aceitar o zero.

Espero tê-lo ajudado! - Fique com Deus, Boa sorte.

DATA DIGITADA - RETORNO - FUNÇAO USADA
01072012 01/07/2010 =SE(C6="";"";ConverteData(C6))
01052010 01/05/2010 =SE(C7="";"";ConverteData(C7))

Funçao converte datas digitas inserindo as barras de separação:

Function ConverteData(vdate) As Date
Application.Volatile
ConverteData = CDate(Left(vdate, 2) & "/" & Mid(vdate, 3, 2) & "/" & Right(vdate, 2))
End Function

Function RetornaFormula(vCelula As Range) As String
'Application.Volatile = True
RetornaFormula = vCelula.FormulaLocal
End Function

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




(*) -   ESSE EXEMPLO DE PLANILHA FAZ PARTE DOS MÓDULOS COMO FAZER - PROGRAMAÇÃO MS EXCEL VBA - SABEREXCEL

 Publicidade:
compre com garantia, segurança e ótimos preços, Lojas Submarino