Adicionado em: | 21/11/2010 |
Modificado em: | 21/11/2010 |
Tamanho: | Vazio |
Downloads: | 2225 |
Saberexcel - o Site das Macros
Estas macros do Aplicativo Microsoft Excel VBA, mostram horas através de um userform, horas continuas
Relógio digital, que funcionará como um Spash
Esses procedimentos junto com a declaração Global (Boolean), insere um relogio digital no rótulo(label)
de determinado Userform(Formulário)
1 objeto Userform1 ............: - Caption "Userform1"
1 objeto Label....................: - Caption "Label1"
1 objeto CommandButton....: - Caption "CommandButton"
'NO MÓDULO COMUM STANDARD INSIRA AS MACROS E VARIAVEL GLOBAL ABAIXO
Global onOff As Boolean
Sub MostrarFormulário()
UserForm1.Show
End Sub
Sub MostrarHoras()
On Error Resume Next
'colocação da data e horas devidamente formatadas
'veja que aqui inserimos as horas no Caption do Userform, Label e Frame1
UserForm1.Caption = "Hoje é dia: [ " & Format(Now, "dddd dd-mm-yyyy") & " ] Agora são: [ " & Format(Now, "hh:mm:ss") & " ] horas"
UserForm1.Label1.Caption = Format(Now, "dddd dd-mm-yyyy hh:mm:ss")
UserForm1.Frame1.Caption = "Hoje é dia: [ " & Format(Now, "dddd dd-mm-yyyy") & " ] Agora são: [ " & Format(Now, "hh:mm:ss") & " ] horas"
'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
'Essa macro usando evento Open que abrirá o formulário na Abertura do Livro
Sub Auto_Open()
On Error Resume Next
UserForm1.Show
End Sub
'NA FOLHA DE CÓDIGO DO USERFORM
Private Sub CommandButton1_Click()
Unload Me
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
'Aqui o Evento Terminate encerra o ciclo de atualização por encerramento do formulário
Private Sub UserForm_Terminate()
onOff = False
End Sub
'Por exemplo se voce quiser abrir um userform chamado Spash
'faça uma macro que abre ativará um form splash e o fecha em 5 segundos.
'Private Sub UserForm_Activate()
'Application.OnTime Now + TimeValue("00:00:05"), "FechaSplash"
'End Sub
Aprenda Microsoft Excel VBA --((SaberExcel ))--
Adicionado em: | 24/09/2011 |
Modificado em: | 24/09/2011 |
Tamanho: | Vazio |
Downloads: | 1471 |
Saberexcel - o site de quem precisa Aprender Lidar Macros Microsoft Excel VBA
Option Explicit
Public Iniciar_Tempo As Variant 'programção do horário
Public Const vIntervaloSegundos = 5 '5 segundos
Public Const vMensagem = "Pequena_Mensagem" 'nome da macro a ser executada
Sub Repetir_Mensagem()
'Programação do horário mantém + 5 segundos
Iniciar_Tempo = TimeValue(Now + TimeSerial(0, 0, vIntervaloSegundos))
Application.OnTime Iniciar_Tempo, vMensagem
End Sub
Sub Parar_mensagem()
On Error Resume Next
Application.OnTime Iniciar_Tempo, vMensagem, , False
End Sub
Sub Pequena_Mensagem()
Dim sbx
'mensagem será gravada na coluna(b) e (D) - intenção didática
[B65000].End(xlUp).Offset(1, 0).Value = Iniciar_Tempo
[B65000].End(xlUp).Offset(0, 2).Value = "Hora de Aprender VBA(Saberexcel)"
sbx = MsgBox("Se escolher 'NÃO', a mensagem continua !" & vbLf _
& "Quer parar a mensagem ?", _
vbQuestion + vbYesNo + vbDefaultButton2, _
"Escola Saberexcel VBA Treinamentos - Horários")
If sbx = 7 Then
'continuar a repetir a mensagem
Repetir_Mensagem
Else
'parar a programação de repetição da mensagem
Parar_mensagem
End If
End Sub
Sub limpar_teste()
Saber1.[b2:d40].ClearContents
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: | 1261 |
Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA , retorna uma mensagem de saudação ao usuário, se menor que 12horas, retorna Bom dia, se form menor ou igual a 18:00, Boa Tarde, senão Boa Noite, você poderá acrescentar mais uma opção para Boa Madrugada, usando a Função Elseif.
Sub Saudacao_hora()
Application.ScreenUpdating = True
HoraAtual = Hour(Now())
msgBoasVindas = Range("variavelboasvindas")
If HoraAtual < 12 Then
sbd = "um BOM DIA!"
ElseIf HoraAtual <= 18 Then
sbd = "uma BOA TARDE"
Else
sbd = "uma BOA NOITE"
End If
Beep
MsgBox "Desejamos todo bem, tenha " & sbd & "." & Chr$(10) & Chr$(10) & msgBoasVindas, _
vbOKOnly + vbInformation, "Bem vindo ao programa - Saberexcel "
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com 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
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
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