Saberexcel - O site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), adiciona uma nova planilha e nesta nova planilha insere os dias da semana como também os números correspondentes aos dias da semana ex: 1, segunda...2, terça...
Sub Insere_nova_plan_dias_semana()
Dim vNumero As Integer
Dim vTerminando As String
'On Error Resume Next

'//linhas comentadas para você fazer o teste, sempre inserirá uma nova planilha com o mesmo nome.

'Application.DisplayAlerts = False
'Sheets(1).Select: Sheets("DIAS DA SEMANA").Delete
Sheets.Add
' ActiveSheet.Name = "DIAS DA SEMANA"
ActiveCell.FormulaR1C1 = "Segunda-Feira"
Selection.AutoFill Destination:=Range("A1:A7"), Type:=xlFillDefault

For vNumero = 1 To 7
ActiveSheet.Cells(vNumero, 2) = vNumero
Next vNumero

'observe que nesta linha de código neste local, após a seleção da última célula,
'a propriedade offset, desloca duas linhas abaixo na mesma coluna e insere a msg finalizando.

ActiveCell.Offset(vNumero + 2, 1).Value = "FIM -- DIAS DA SEMANA INSERIDOS"

vTerminando = "Processo inserir dias da semana concluido......!"
MsgBox vTerminando

End Sub


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

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