Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 950 |
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
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 952 |
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.
Adicionado em: | 12/02/2012 |
Modificado em: | 12/02/2012 |
Tamanho: | Vazio |
Downloads: | 1003 |
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.
Adicionado em: | 04/10/2011 |
Modificado em: | 04/10/2011 |
Tamanho: | Vazio |
Downloads: | 1069 |
Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA.
'Site...: http://www.microsoftexcel.com.br
'E_mail.: [email protected] Excel planilha vba wkf contse total ocorrencia intervalo horas
'......................................'
Option Explicit
Public Sub contar_ocorrencia_horas_intervalos()
Dim wks As Worksheet
Dim vContador As Long
Set wks = ActiveSheet
limpar
'mensagem estática para o tempo de 9 às 10 horas:
MsgBox "De : [ 9 ] até [10] : " & (WorksheetFunction.CountIf(wks.Columns(2), ">=09:00:00") - _
WorksheetFunction.CountIf(wks.Columns(2), ">=10:00:00")) & " Ocorrencias"
'Com um loop de 24 horas.
'cada hora a contagem de ocorrências na coluna B e para fazer o teste
'mude o horario mas preservando o formato
For vContador = 0 To 23
wks.Cells(vContador + 2, 4) = "De : [ " & vContador & " ] até [" & vContador + 1 & " ]"
wks.Cells(vContador + 2, 5) = _
(WorksheetFunction.CountIf(wks.Columns(2), ">=" & vContador & ":00:00") - _
WorksheetFunction.CountIf(wks.Columns(2), ">=" & vContador + 1 & ":00:00"))
wks.Cells(vContador + 2, 6).Value = "Ocorrencias"
Next vContador
Set wks = Nothing
End Sub
Sub limpar()
[D2:F25].ClearContents
End Sub
Sub ver_shapes()
Saber1.Shapes("sb").Visible = True
End Sub
Sub oc()
Saber1.Shapes("sb").Visible = False
End Sub
Sub visualizar_modulo_vbe()
Dim resposta As String
resposta = MsgBox("Deseja visualizar as macros no módulo VBE", vbYesNo, "Saberexcel - o site das macros")
If resposta = 6 Then
Application.Goto reference:="contar_ocorrencia_horas_intervalos"
End If
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
Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 1080 |
Saberexcel - o Site das Macros
Esta macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere a hora atual na barra de status e acrescenta um texto, macro verifica o país, nesse caso usamos o idioma norueguês(47) e o português-Br, se não for a Noruega, mensagem em português,
e retorna a mensagem na StatusBar
Option Explicit
Const vDataHoraCelula As String = "B9"
Const vTexto As String = "Site...: [ http://www.saberexcel.com - O site das Macros ] "
Dim OK As Boolean
Sub Iniciar_hora_atual()
Range(vDataHoraCelula).NumberFormat = "dd.mm.yyyy hh:mm:ss"
OK = True
Hora_atual
End Sub
Sub Hora_atual()
Dim vStatusBarMensagemTexto As String
If Application.International(xlCountrySetting) = 47 Then 'se estiver na Noruega,
vStatusBarMensagemTexto = "Gjeldende dato og tid: "
Else
vStatusBarMensagemTexto = "Data atual e horário : " 'Português_Br
End If
If OK Then
Range(vDataHoraCelula).Formula = Now
Application.StatusBar = vStatusBarMensagemTexto & Format(Now, "d.m.yyyy hh:mm:ss ") & vTexto
Application.OnTime Now + TimeValue("00:00:01"), "Hora_atual", , True
Else
Range(vDataHoraCelula).Formula = ""
Application.StatusBar = False
End If
End Sub
Sub parar_relogio()
Range(vDataHoraCelula).NumberFormat = "dd.mm.yyyy hh:mm:ss"
OK = False
Hora_atual
End Sub
Aplicativo Microsoft Excel VBA(Visual Basic Application) --- (-(-( SaberExcel )-)-)---
Baixe o exemplo de planilha contendo as macros acima
Adquira já o Acesso Imediato
à Area de Membros
Aprenda Excel VBA com Simplicidade de
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.
'-------------------------------------'
Entrega Imediata:
+ 500 Video Aulas MS Excel VBA
+ 35.000 Planilhas Excel e VBA
+ Coleção 25.000 Macros MS Excel VBA
+ 141 Planilhas Instruções Loops
+ 341 Planilhas WorksheetFunctions(VBA)
+ 04 Módulos Como Fazer Excel VBA
+ Curso Completo MS Excel VBA
+ Planilhas Inteligentes
<script type="text/javascript"><!--
google_ad_client = "ca-pub-2317234650173689";
/* retangulo 336 x 280 */
google_ad_slot = "0315083363";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,
Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA