SaberExcel - Aprenda Excel VBA, Site sobre macros, funções, fórmulas e planilhas do Excel VBA planilhas prontas e apostilas para download

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
 Excel planiha vba datas retorna o ultimo dia do mes funcao