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

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Parabéns pelos produtos didáticos, gostei muito do curso completo ms excel vba, hoje estou praticando com macros, aprendi muito. Obrigado. Osvaldo São Paulo....

Osvaldo Oliveira
16 November 2011
Simplesmente fantástico todo arquivo que vc me mandou.....rapaiz, é muito bom. Já usei vários modelos de códigos para situações que ficaria me matando..... Mal posso esperar o dvd 14.000 planilhas exemplos Muito obrigado. Deus lhe dê muita saude....

Percival( Analista de custos)
Analista de Custos
03 August 2011

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