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 ))--

Objeto label do Aplicativo microsoft Excel VBA,
Saberexcel - o site das macros

Objeto Controle Label
Os controles de labels são principalmente usados para descrever outros controles em um UserForm. Um controle de labels não pode ser editado pelo usuário enquanto o UserForm está sendo executado. Use a propriedade de Legenda para estabelecer ou devolver o texto em um controle de labels. Outras propriedades freqüentemente usadas para formatar um controle de Label incluem a propriedade de Fonte e a propriedade ForeColor.
Como usar propriedades com a afirmação para formatar um controle de labels

Para usar O com a afirmação para modificar as propriedades de um controle de Etiqueta, siga esses passos: Inicie o excel e faça os passos seguintes
Na barra de ferramentas , aponte para a Macro, clique no Editor Básico Visual.
no botão de inserção de objetos do visual basic clique UserForm para inserir um UserForm no seu livro de exercícios.
Acrescente ao userform um label (rótulo)
Acrescente um controle de CommandButton ao UserForm.
Clique duas vezes o controle de CommandButton para abrir a janela de Código do UserForm.
Na janela de Código, digite(Copie e cole) o código seguinte do evento de Clique de CommandButton1:

Private Sub CommandButton1_Click()

With Label1
' atribuindo o texto ao objeto label
.Caption = "Este é o exemplo do Label 1"
' determinando o tamanho automatico do label (do tamanho do texto) .
.AutoSize = True
.WordWrap = False
' atribuindo o tamanho a fonte, o tamanho e estilo da fonte como também a cor.
.Font.Name = "Times New Roman"
.Font.Size = 14
.Font.Bold = True
' Atribuindo a cor da fonte (Azul)
.ForeColor = RGB(0, 0, 255)
End With

End Sub



Depois de inserido o procedimento execute o userform.
Click no botão CommandButton.
O texto "Isto é o Exemplo de Etiqueta 1"




Aprenda tudo sobre Aplicativo Microsoft Excel VBA - com SaberExcel

Saberexcel - o site das macros

Este exemplo de Planilha do Aplicativo Microsoft Excel VBA, contém macro no Evento_Auto_Open que ao abrir o Workbook o Aplicativo fica invisível, mostrando um Userform, para visualizar o código voce poderá teclar [Alt + F11] para visualizar os códigos VBA e também o Userform usado.

Sub Aplicativo_invisivel()
Application.Visible = False
UserForm1.Show
End Sub


Aplicativo Microsoft Excel VBA, SaberExcel VBA
Aprenda sozinho, em casa, com baixo custo, excelente material didatico.

Saberexcel - o site de quem precisa Aprender sobre Macros Microsoft Excel VBA

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), mostra os objetos TextBox desejados a partir de uma seleção no Objeto Combobox. Aproveitei para lhes mostrar como interagir com alguns outros objetos, formatando-os. É bem simples. Espero que o exemplo possa ajudá-los. Fiquem com Deus. Expedito Marcondes

Option Explicit

Private Sub ComboBox1_Click()
Dim i As Byte
'------------'
For i = 1 To 4
Controls("textbox" & i).Visible = False 'torna visivel a textbox(caixa de texto) desejada
Next i
Controls("textbox" & ComboBox1.ListIndex + 1).Visible = True
'------------'

'apenas formatação dos objetos (treinamento excel vba)
'observe que somente copiei a parte do código acima em laranja e inserí como Caption e ou Backcolor dos objetos desejados
Frame1.Caption = Controls("textbox" & ComboBox1.ListIndex + 1)
ComboBox1.BackColor = Controls("textbox" & ComboBox1.ListIndex + 1).BackColor
Label1.BackColor = Controls("textbox" & ComboBox1.ListIndex + 1).BackColor
Label2.ForeColor = Controls("textbox" & ComboBox1.ListIndex + 1).BackColor
frmSaberexcel_Treinamento.BackColor = Controls("textbox" & ComboBox1.ListIndex + 1).BackColor
End Sub

(esse exemplo faz parte dos nossos módulos COMO FAZER - Programação MS Excel VBA)


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel

Procedimentos do Aplicativo Microsoft Excel VBA, usando objetos userforms e Textboxes, retornam o primeiro e o ultimo registro percebidos na coluna(A)

Private Sub UserForm_Activate()
Me.TextBox1 = Plan1.Cells(2, 1)
Me.TextBox2 = Plan1.Cells(65536, 1).End(xlUp) 'Range("B65536").End(xlUp)
Frame1.Caption = "1ºReg. [" & TextBox1.Value & " ] 2ºReg. [ " & TextBox2.Value
End Sub

Aprenda Microsoft Excel VBA - (Saberexcel)