Procedimentos do Aplicativo MS Excel VBA, usando objetos textbox, no final da digitação dia, mes e ano, formata automaticamente o texto em uma outra textbox e também retorna o valor data para folha de planilha, no formato data(dd/mmm/aaaa).
1 - Userform
4 - Textbox
1 - CommandButton


Dim Dia As Integer
Dim Mês As Integer
Dim Ano As Integer

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()
On Error Resume Next
If Len(TextBox1) = 2 Then
Dia = TextBox1
TextBox2.SetFocus
End If
End Sub

Private Sub TextBox2_Change()
On Error Resume Next
If Len(TextBox2) = 2 Then
Mês = TextBox2
TextBox3.SetFocus
End If
End Sub

Private Sub TextBox3_Change()
On Error Resume Next
If Len(TextBox3) = 4 Then
Ano = TextBox3
Call Validando_data
End If
End Sub

Private Sub Validando_data()
If Dia < 1 Or Dia > 31 Then
MsgBox "Dia Inválido"
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox1.SetFocus
Exit Sub
End If

If Mês < 1 Or Mês > 12 Then
MsgBox "Mês Inválido"
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox2.SetFocus
Exit Sub
End If

If Ano < 1990 Or Ano > 2011 Then
MsgBox "Mês Inválido"
TextBox3 = ""
TextBox4 = ""
TextBox3.SetFocus
Exit Sub
End If

TextBox4 = Format(Dia, "00") & "/" & Format(Mês, "00") _
& "/" & Format(Ano, "0000")
Sheets(1).Range("b5") = TextBox4

If IsError(Sheets(1).Range("B8")) Then
MsgBox "Data Inválida"
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""

Sheets(1).Range("B5").Value = Format(Now, "DD/MM/YYYY")
TextBox1.SetFocus
End If
'Frame1.Caption = "Data: " & TextBox1.Value & "/" & TextBox2.Value & "/" & TextBox3.Value 'ou
Frame1.Caption = "Data Digitada: " & Format(Dia, "00") & "/" & Format(Mês, "00") _
& "/" & Format(Ano, "0000")
End Sub

Aprenda tudo sobre o Aplicativo MS Excel VBA com SaberExcel



Baixe o exemplo de planilha contendo os procedimentos acima




Publicidade:
Compre com Segurança, garantia e ótimos preços nas lojas submarino

Saberexcel - o site das macros

Esse procedimento do Aplicativo Microsoft Excel VBA, inserido na folha de planilha e sensizilizado pelo Evento SelectionChange, ao selecionar  copia determinados números com caracteres inválidos para datas, e os transforma em datas válidas, com barras.

'------------'
15%07&2012 - será transformado em 15/07/2012
17(07*2012 - será transformado em 15/07/2012
19.12.2012 - será transformado em 19/12/2012
25$07#2012 - será transformado em 25/07/2012
18!08*2012 - será transformado em 18/08/2012
26"12£2012 - será transformado em 26/12/2012
31%12§2012 - será transformado em 31/12/2012


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Saber1.[A1].Value = ActiveCell.Offset(0, -2).Value
Data_Formato_dia_mes_ano
End Sub

'transformando um data formato texto (07.03.2012) no formato (07/03/2012)

Sub Data_Formato_dia_mes_ano()
Dim Ano As Integer, Mes As Integer, dia As Integer
Ano = Right(Range("A1"), 4)
Mes = Mid(Range("A1"), 4, 2)
dia = Left(Range("A1"), 2)
Range("A2") = DateSerial(Ano, Mes, dia)
End Sub

Escola Saberexcel VBA Estudos - Treinamentos, Macros, Fórmulas e funções http://www.microsoftexcel.com.br


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




 

Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA retorna Funções DATAS, retorna mensagem de datas como , dia, mes, ano, e também retorna na folha de planilha determinadas células . VBA possui diversas funções que auxiliam no desenvolvimento. Vejamos as principais Funções de Datas
Você sabia que as datas e horas datas e horas são armazenadas internamente na memória como números. Isto de certa forma nos permite realizar os calculos com datas e também horas, como por exemplo adicionar dias ao dia de hoje para obtenção de uma data futura.
O Visual Basic realiza esses cálculos como muita facilidade com as funções que retornam datas e horas como também a atual, e gera esses dados baseado em string e ou outra expressão. Temos excelentes exemplos de planilhas nos Módulos [COMO FAZER - PROGRAMAÇÃO MS EXCEL VBA- SABEREXCEL] - com fórmulas e uso das Funções.

Função Descrição
Date.................................: Retorna a data atual
Time.................................: Retorna a hora atual
Now..................................: Retorna a data e hora atual
Hour, Minute, Second .........: Retornam Hora, Minuto e Segundo atual
Day, Month, Year ...............: Retornam Dia, Mês e Ano de uma data qualquer
DataDiff ............................: Retorna a diferença entre duas datas

Public Const sb = vbInformation
Public Const titulo = "Saberexcel - o site das macros"

Sub Funcao_data_retorna_planilha()

[A1].Select
[A1:D10].ClearContents

ActiveCell.Value = Date
ActiveCell.Offset(0, 2).Value = "Data atual"
MsgBox "Data Atual.......: " & Date, sb, titulo: ActiveCell.Value = Date

ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Day(Date)
ActiveCell.Offset(0, 2).Value = "dia de hoje"
MsgBox "Dia de Hoje....: " & Day(Date), sb, titulo: ActiveCell.Value = Day(Date)

ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Format(Date, "MMMM") & " ( " & Month(Date) & " )"
ActiveCell.Offset(0, 2).Value = "Mês atual"
MsgBox "Mês Atual......: " & Month(Date) & " = " & Format(Date, "Mmmm"), sb, titulo

ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Year(Date)
ActiveCell.Offset(0, 2).Value = "Ano atual"
MsgBox "Mês Atual......: " & Year(Date), sb, titulo

ActiveCell.Offset(2, 0).Select
ActiveCell.Value = "Ituverava(SP)," & Day(Date) & " de " & Format(Date, "Mmmm") & " de " & Year(Date) & "."
ActiveCell.Offset(0, 2).Value = "Local e Data"
MsgBox "Data...........: " & "Ituverava(SP)," & Day(Date) & " de " & Format(Date, "Mmmm") & " de " & Year(Date) & ".", sb, titulo
[D1].Select
End Sub

Fiz essa mensagem, com objetivo didático, para que voce veja as declarações públicas de variáveis no ínicio do módulo, isso simplifica quando voce tem que enviar um uma determinada mensagem várias vezes dentro de um módulo, não precisa ficar digitando só inserir as variáveis.

Sub aprender_vba_saberexcel()
MsgBox "Aprenda microsoft Excel VBA com qualidade", sb, titulo
End Sub

'funçao somente com retorno da mensagem
Sub Funcao_datas_msg()
MsgBox "Data Atual : " & Date, sb, titulo
MsgBox "Dia de Hoje : " & Day(Date), sb, titulo
MsgBox "Mês Atual : " & Month(Date), sb, titulo
MsgBox "Mês Atual : " & Year(Date), sb, titulo
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com SaberExcel





Publicidade
Compre com Segurança, garantia e ótimos preços e produtos nas lojas SubMarino

Saberexcel - o site de quem precisa Aprender macros Microsoft Excel VBA

Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application) retornam o número da semana em Textboxes, através de userforms,
também usamos fórmulas para detectar a data do inicio de uma semana baseado no número da Semana.


Private Sub UserForm_Initialize()
txtDATA = Format(Now, "dd/mm/yyyy")
txtMES = Format(txtDATA, "mmmm")
D = Int(Format(txtDATA, "0"))

NumSem = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1)
NumSem = (D - NumSem - 3 + (Weekday(NumSem) + 1) Mod 7) \ 7 + 3
txtSEMANA = NumSem
fraDADOS.Caption = " - Data:[ " & txtDATA & " ] - Mês:[ " & txtMES & " ] - Num Semana: [ " & txtSEMANA & " ]"
End Sub

Private Sub cmdFechar_Click()
Unload Me
End Sub

Fórmula retorna a data baseado no múmero da semana
isto é o inicio da semana(24)
Formula usada....: =DATA(ANO(HOJE());1;1)+(B1-1)*7-MOD(DATA(ANO(HOJE());1;1)-1;7)

formula para concatenar esses dados que está na célula (D3)
=" [ "&B1&"ª. Semana...:"&" ] está entre o intervalo de datas [ "&TEXTO(D1;"dd/mmm/aaaa") & " à "& TEXTO(E1;"dd /mmm/aaaa") & " ]"

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

Publicidade
Compre com segurança, garantia e ótimos preços

Saberexcel - Site de quem precisa aprender Macros MS Excel VBA

Essas macros e Função do Aplicativo Microsoft Excel VBA( Visual Basic Application ), retornam o útlimo dia do mês da data atual, aproveitando o exemplo, inserí formatação data para que retorne uma mensagem do mês atual (mes texto (Abril)).

Essas função é muito importante para quem precisa retornar datas, calcular folha de pagamento, calcular pagamentos, vencimentos, taxa de juros, enfim uma infinidade de aplicações úteis onde envolve calculos baseados no último dia do mês. Espero que o exemplo lhe seja útil.
Fique com Deus, Expedito Marcondes

Sub Verifica_ultimo_dia_mes_data_atual()
Dim vDia
Dim vData
Dim sb

vData = Now()
vDia = DatePart("d", DateAdd("m", 1, DateAdd("d", -Day(vData), vData)))
sb = "Ultimo dia do do mes de [ " & Format((Now()), "mmmm") & " ] é...: [ " & vDia & " ]"

MsgBox "Ultimo dia do do mes de [ " & Format((Now()), "mmmm") & " ] é...: [ " & vDia & " ]", vbInformation, "Saberexcel - site das macros"
MsgBox "Ultimo dia do do mes de " & Format((Now()), "mmmm") & " é " & vDia, vbInformation, "Sem os parênteses"

[G10].Value = "Ultimo dia do do mes de [ " & Format((Now()), "mmmm") & " ] é...: [ " & vDia & " ]"
[G11].Value = sb 'retornando valor para célula a partir de uma variável(sb)

End Sub

Sub Utimo_dia_do_Mês()
MsgBox "O último dia do mês de [ " & Format((Now()), "mmmm") & " ] é dia..: [ " & vUltimo_dia_mes(Year(Now()), Month(Now())) & " ]", vbInformation, "Saberexcel - site das macros"
MsgBox "Mes Atual.....: " & Format((Now()), "mmmm"), vbInformation, "Saberexcel - site das macros"
End Sub

'esta função verfica o último dia dos meses
Private Function vUltimo_dia_mes(vAno As Integer, vMes As Integer, Optional vDia As Integer = 1) As Integer
Dim vArray_Ultimo_Dia_Meses As Variant

vArray_Ultimo_Dia_Meses = Array(0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

If vMes = 2 Then
If IsDate("29/2/" & vAno) Then
vUltimo_dia_mes = 29
Else
vUltimo_dia_mes = 28
End If
Else
vUltimo_dia_mes = vArray_Ultimo_Dia_Meses(vMes)
End If

End Function

'esta macro limpa as células nomeadas como 'a' - para auxliar o usuário no teste (repetir o teste com facilidade)
Sub limpar_teste()
[a].ClearContents
End Sub




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

Publicidade
Compre com segurança, garantia e ótimos preços