Escola SaberExcel VBA Estudos - Treinamento com Macros, Fórmulas e Funções

Esse procedimento do Microsoft Excel VBA(Visual Basic Application) retorna um objeto Label(Rótulo) uma saduação dependendo do Horario atual:
Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.

Private Sub UserForm_Initialize()
On Error Resume Next
lbAGORA.Caption = "Escola Saberexcel VBA Estudos - [Agora:... " & Format(Now(), "dddd - dd-mmm-yyyy hh:mm:ss") & " ]"

Select Case Time
Case Is < TimeValue("12:00:00"): Me.lbSAUDACAOHORA.Caption = "Bom Dia Amigo, " & Application.UserName & "!" _
& vbCrLf & "Desejo-lhe todo bem!"
Case Is >= TimeValue("19:00:00"): Me.lbSAUDACAOHORA.Caption = "Boa Noite, Amigo " & Application.UserName & "!" _
& vbCrLf & "Desejo-lhe todo bem!"
Case Else: Me.lbSAUDACAOHORA.Caption = "Boa Tarde, Amigo " & Application.UserName & "!" & "" _
& vbCrLf & "Seja Bem vindo, Bons Estudos!!!!"
End Select

End Sub

Private Sub lbSAUDACAOHORA_Click()
Unload Me
End Sub

Private Sub UserForm_Click()
Unload Me
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.

Saberexcel - o site das Macros
Esse procedimento do Aplicativo Microsoft Excel VBA, retorna uma mensagem de saudação dependendo do horário do computador, BOA MADRUGADA, BOM DIA, BOA TARDE E BOA NOITE. Neste exemplo usei para fins didáticos a saida da mensagem em uma Label(rótulo), no caption do Frame1(Quadro, Modura) e também na célula(C27), esses dados serão inseridos na ocorrencia do Evento Initialize do Objeto Userform.

Private Sub UserForm_Activate()

Dim vSaudacaoHora As Integer
vSaudacaoHora = Hour(Now)

Select Case vSaudacaoHora
Case 1 To 5
Label1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA MADRUGADA!" ' retorno no Label
Frame1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA MADRUGADA!" ' retorno no Frame1
[C27].Value = "Agora são:[ " & Time & " ] horas, tenha um BOA MADRUGADA!" ' retorno na célula(B27)
Case 6 To 11
Label1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOM DIA!"
Frame1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOM DIA!"
[C27].Value = "Agora são:[ " & Time & " ] horas, tenha um BOM DIA!"
Case 12 To 17
Label1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA TARDE!"
Frame1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA TARDE!"
[C27].Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA TARDE!"
Case 18 To 24
Label1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA NOITE!"
Frame1.Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA NOITE!"
[C27].Caption = "Agora são:[ " & Time & " ] horas, tenha um BOA NOITE!"
End Select

End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA



Baixe o exemplo de planilha com o procedimento acima


Publicidade:

Compre com garantia, segurança e preços baixos na maior loja do país.

Saberexcel - o site das macros
Insira os seguintes objetos no módulo VBA (Visual Basic Application)
'1 - Userform
'1 - Label1


'Estas macros mostram horas através de um userform, horas continuas
Relógio digital 2010-07-20 21:26:19

Os procedimentos são inseridos nos modulos comuns e nas
folhas de códigos do Objeto Userform

EM UM MÓDULO COMUM INSIRA OS SEGUINTES CÓDIGOS:

Global onOff As Boolean

'termina o ciclo de atualização por
'encerramento do formulário

Sub ver_formulario()
UserForm1.Show
End Sub

Sub MostrarHoras()
On Error Resume Next
'colocação da data e horas devidamente formatadas
UserForm1.Caption = "Agora :" & Format(Now, "dddd dd-mm-yyyy hh:mm:ss")
UserForm1.Label1.Caption = "Agora :" & Format(Now, "dddd dd-mm-yyyy hh:mm:ss")
UserForm1.Frame1.Caption = "Agora :" & Format(Now, "dddd dd-mm-yyyy hh:mm:ss")
UserForm1.Frame1.ForeColor = &HFF0000
UserForm1.Label1.ForeColor = &HFFFFFF
UserForm1.Label1.BackColor = &HFF&

'só é executado se o formulário estiver activo
If onOff = True Then
Application.OnTime Now + TimeValue("00:00:01"), "MostrarHoras"
Else
Application.OnTime 0, ""
End If
End Sub

Sub Auto_Open()
On Error Resume Next
UserForm1.Show
End Sub
'
Sub Fecha_userform()
On Error Resume Next
UserForm1.Hide
End Sub

NO MÓDULO DA FOLHA DE CÓDIGO DO OBJETO USERFORM INSIRA OS SEGUINTES CÓDIGOS:

'...........................................................'
Private Sub UserForm_Terminate()
onOff = False
End Sub
'...........................................................'
Private Sub UserForm_Activate()onOff = True ' variável declarada como global as boolean
'inicia o ciclo de a cada segundo actualizar as horas no formulário
Application.OnTime Now + TimeValue("00:00:01"), "MostrarHoras"
End Sub
'...........................................................'

Aprenda microsoft Excel VBA

Calculando Pagamento horas trabalhas no Excel VBA

Qua, 20 de Agosto de 2008 07:11 Administrador

Peço Ajuda:
Preciso de uma macro que calcule horas trabalhadas e me retorne o total do pagamento,
que poderá ser feito também atraves de Uma Entrada de Dados ( InputBox),
Gostaria de saber se podem me ajudar.
Manoel Messias:

Manoel é possível sim, observe essa macro abaixo que retorna o calculo do montante a ser
pagado por horas trabalhadas, isto é, multiplicad o total de horas trabalhadas pelo valor de /
de uma hora


Sub Calcula_Pagamento_Horas_Trabalhadas()
On Error GoTo SbError
Dim vHora
Dim pgHora
Dim iPgto_por_Semana
vHora = InputBox("Entre com o numero de horas trabalhadas", "Horas Trabalhadas")
pgHora = InputBox("Valor do pagamento por hora", "Pagamento valor hora")
iPgto_por_Semana = CCur(vHora * pgHora)
MsgBox "O Pagamento é de : " & Format(iPgto_por_Semana, "R$ ##,##0.00"), , "Total Pagamento"
SbError:
End Sub


Baixe o exemplo de planilha contendo a macro acima

Saberexcel - o site das macros
Esta macro do Aplicativo Microsoft Excel VBA, pergunta se voce deseja ou não inserir uma planilha
personalizada com o nome formatado com data e hora atual

Sub Adicionar_planilha_com_dia_hora()

Dim Resposta As VbMsgBoxResult
Dim sht As Worksheet
Resposta = MsgBox("Deseja inserir nova planilha com o nome da data e hora atual?" _
, vbQuestion + vbYesNoCancel)
If Resposta = vbYes Then
Set sht = Worksheets.Add
sht.Name = Format(Now, "ddd-dd-mmm-yyyy_hhmmss")
ElseIf Resposta = vbNo Then
Worksheets.Add
Else
Exit Sub
End If
MsgBox "Planilha inserida com sucessso!! [ " & ActiveSheet.Name & "]", vbInformation, "http://www.saberexcel.com"
End Sub

Aplicativo Microsoft Excel VBA --(SaberExcel)--