Home Excel - Dicas Microsoft Excel VBA Excel VBA - Datas Excel vba planilha inputbox data dia mes ano

Excel vba planilha inputbox data dia mes ano

E-mail Imprimir PDF

Escola Saberexcel VBA Estudos - o site de quem precisa aprender sobre Macros MS Excel VBA

Esses macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando um objeto inputbox retorna um partes da data, dia, mês e ano, e insere na célula (B4) na folha de planilha. Espero que o exemplo possam lhe ser útil
Macro retirada da Coleção de 15.000 Macros Microsoft Excel VBA, Fórmulas e Funções - Saberexcel
'- - - - - - - - - - - - - - - - - - - - - -'
'Escola Saberexcel VBA Estudos®
'Treinamento com Macros, Fórmulas e Funções
'contato@saberexcel.com.br
'- - - - - - - - - - - - - - - - - - - - - -'
'esse exemplo de macro retorna o dia da data atual em uma inputbox que envia para uma célula na folha de planilha
'Li - experimente : 'vp_dia = vbDefaultButton3
Sub inputbox_dia_data_agora()
On Error Resume Next
vp_dia = Application.InputBox(prompt:="Extraindo dia data corrente [dd]", Title:="Extrair data dia celula(B4)[ " & Format(Date, "dd-mm-yyyy") & " ]", Default:=Day(Now))
If vp_dia = "" Or vp_dia = False Then Exit Sub
On Error GoTo 0
Range("B4") = vp_dia
[b4].Offset(0, 2).Value = "Dia da data Atual: " & [b4].Value
End Sub
'- - - - - - - - - - - - - - - - - - - - - -'
'esse exemplo de macro retorna o Mês da data atual em uma inputbox que envia para uma célula na folha de planilha
Sub inputbox_mes_data_agora()
vp_mes = Application.InputBox("Extraindo o mês data corrente [mm]", "Data mês célula(B4)", Month(Now), , , , 1)
If vp_mes = "" Or vp_mes = False Then Exit Sub
On Error GoTo 0
Range("B4") = vp_mes
[b4].Offset(0, 2).Value = "Mês da data atual : " & [b4]
End Sub
'- - - - - - - - - - - - - - - - - - - - - -'
'esse exemplo de macro retorna o Ano da data atual em uma inputbox que envia para uma célula na folha de planilha
Sub inputbox_ano_data_agora()
vp_ano = Application.InputBox("Extraindo o ano data corrente [AAAA]", "Data ano célula(B4)", Year(Now), , , , 1)
If vp_ano = "" Or vp_ano = False Then Exit Sub
On Error GoTo 0
Range("B4") = vp_ano
[b4].Offset(0, 2).Value = "Ano data atual : " & [b4]
End Sub
'- - - - - - - - - - - - - - - - - - - - - -'


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



    Baixe o exemplo de planilha contendo os macros acima
icon Excel planiha vba datas retorna o ultimo dia do mes funcao

Última atualização em Ter, 01 de Maio de 2012 15:40  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje139
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana19645
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês33374
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10456203
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA