Saberexcel - o site de quem precisa aprender Micrososft Excel VBA

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), formata uma data em célula com auxílio de um objeto CommandButton.

.Value = Left(UCase(MonthName(Month(Date) - 1)), 4) & " " & Year(Date) 'quatro letras 'MARÇ'
.Value = UCase(MonthName(Month(Date) - 1)) & " " & Year(Date)
.Value = UCase(MonthName(Month(Date) - 1, True)) & " " & Year(Date)
.Value = DateSerial(Year(Date), Month(Date), -1)

Private Sub CommandButton1_Click()

If Day(Date) = 11 Then Rows("9").Insert xlShiftDown: Range("G9").Value = Month(Date)

ActiveCell.Value = Application.WorksheetFunction.Proper(ActiveCell.Value)
With Range("G9") '.
With .Font
.Bold = True ' teste negrito
.Name = "Arial"
.Size = 18
End With
'PODERÁ USAR UMA DAS FORMATAÇÕES ABAIXO
'.Value = DateSerial(Year(Date), Month(Date), -1)
'.Value = UCase(MonthName(Month(Date) - 1, True)) & " " & Year(Date)
'.Value = UCase(MonthName(Month(Date) - 1)) & " " & Year(Date)
.Value = Left(UCase(MonthName(Month(Date) - 1)), 4) & " " & Year(Date) 'quatro letras 'MARÇ'
.NumberFormat = "mmm - yyyy"
End With

End Sub


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 - o site das Macros Microsoft VBA

Esse procedimento do aplicativo Microsoft Excel VBA(visual Basic Application), com auxilio de uma combobox com lista de anos, insere em determinadas células na folha de planilha, o ano e soma com valor de outra célula. Espero que o exemplo possa ajudá-los em alguma coisa.
Fiquem com Deus. Expedito Marcondes


Private Sub CB_OK_Click()
'Se a combobox estiver em branco
If frmANO.cbxANOS = "" Then
Unload frmANO
Exit Sub
End If

'inserindo um novo texto

Sheets("Dados").Cells(3, 3).Value = CDbl(frmANO.cbxANOS)
Sheets("Dados").Cells(4, 3).Value = Sheets("Dados").Cells(3, 3).Value + Sheets("Dados").Cells(4, 2).Value
Unload frmANO
End Sub



Private Sub UserForm_Initialize()
'chamar userform
Carregar_combobox
End Sub


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 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 - 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

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