Excel planilha vba datas funcao converte data ao digita insere barras

Sáb, 20 de Novembro de 2010 19:16 Expedito Marcondes
Imprimir

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 plicativo Microsoft Excel VBA com Saberexcel



ESSE EXEMPLO DE PLANILHA FAZ PARTE DOS MÓDULOS COMO FAZER - PROGRAMAÇÃO MS EXCEL VBA - SABEREXCEL
   Baixe o exemplo de planilha com as funções acima 
 Excel planilha vba datas funcao converte data ao digita insere barras (21.75 kB)


Publicidade:
compre com garantia, segurança e ótimos preços, Lojas Submarino
Esporte & Lazer - Submarino.com.br

Tags:
Última atualização em Sáb, 13 de Agosto de 2011 17:39