Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Vendo se celula contém um dado do tipo time

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Michel M



Mensagens : 1
Data de inscrição : 17/11/2011

MensagemAssunto: Vendo se celula contém um dado do tipo time   Qui Nov 17, 2011 7:32 pm

Opa galera estou aqui para tirar uma duvida de uma macro que eu tenho.
A minha macro faz a seguinte função de testar o tipo de dado que há dentro da celula,
para assim criar no formato especifico deste dado.

Ex.:

Código:
If IsDate(Cells(RowNum, ColNum).Value) Then
          FormChk = Format(Cells(RowNum, ColNum).Value, "dd/mm/yyyy")

Mais eu gostaria de fazer um teste para ver se o dado que tem dentro da celula é do
tipo "TIME" mais não estou conseguindo encontrar uma função para ver se o tipo da celula
é "TIME", como esta descrito no meu exemplo acima, com a função "IsDate".

Desde já agradeço a todos, pela colaboração.



Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Vendo se celula contém um dado do tipo time   Sex Nov 18, 2011 1:00 am

Boa noite!!!

Este exemplo te ajuda..caso contraerio poste sua planilha modelo..

Sub ss1()
'As constants the following will not update
[a1] = Int(Now) 'date
[a2] = Now 'date and time
[a3] = Date 'date
[a4] = Date + Time 'same as now
'As Worksheet Functions the following will update
[a5] = "=Today()" 'current date into worksheet formula
[a6] = "=now()" 'current date
[a7] = "=now() - Today()" 'current time when recalculated
[a7].NumberFormat = "hh:mm"
[a8] = "=MOD(NOW(),1)" 'current time when recalculated
[a8].NumberFormat = "hh:mm"
End Sub
Código:
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Vendo se celula contém um dado do tipo time
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» VENDO OU TROCO Marvel Vs Capcom 3 e Assassin's Creed 2
» Vendo Xbox 360 jasper Travado + 2 jogos!!!!
» VENDO VESPA 125 SPRINT 1968 VENDIDA
» VENDO - KTM 400 EXC ( Vendida )
» [VENDO] CITROEN C4 1.6HDI PACK VTR COUPE 110CV

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: