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