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

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 das macros

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), carrega uma combobox com os ítens contidos na coluna, e expande a lista na comobox,a medida em que os os dados forem sendo digitados na coluna (A).
Prezado Sr. Marcondes
Preciso de um procedimento que carregue uma combobox com os ítens que for sendo digitado na coluna(A), mas tem que ser incrementado toda a vez que for digitado. é possível a sua ajuda.
Obrigado , Jânio - Contabilista - SPaulo
'-----------------------------------------------------'
Prezado Jânio,
fiz esse exemplo rapidnho para você ver como funciona um a auto-incrementação,
observe que usei o Evento Initialize do Userform(quando for executado), poderia ser feito atraves de um range dinâmico também,
para carregar os ítens na propriedade Rowsource, fica bom também .
Aacho que é isso que voce precisa. Espero tê-lo ajudo ,
Obrigado pela Aquisição da Coleção de 15.000 Macros.
Fique com Deus, E_Marcondes


Private Sub UserForm_Initialize()
Usuario = Application.UserName
For i = 1 To Range("A65536").End(xlUp).Row
ComboBox1.AddItem (Range("A" & i))
' If Range("B" & i).Value = Usuario Then u = i
Next i
' ComboBox1.ListIndex = u - 1
End Sub

Private Sub ComboBox1_Change()
Range("D12").Value = ComboBox1.Value
End Sub


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

Saberexcel - site das macros

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), carrega uma combobox, com base na range nomeada, ao clicar em um ítem na caixa de combinação(Combobox) os valores retornarão para um Label(Rótulo) e também para determinadas células na folha de planiha, a inserção de dados acontecerá a medida que for selecionando os ítens da ComboBox. Espero que o exemplo seja útil.
Fiquem com Deus, E_Marcondes.

'Esse procedimento esta em uma planilha que faz parte do Modulos Como Fazer - Programação Microsoft Excel VBA
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then Worksheets("Plan1").Range("A" & ActiveSheet.Rows.Count).End(xlUp).Offset(1, 0).Value = ComboBox1.Value
ActiveCell.Offset(0, 0).Value = "u" ' faz a formatação Wingdings (seta direita)
ActiveCell.Offset(0, 1).Value = ComboBox1.Value 'vai inserir código do lado da célula ativa também
ActiveCell.Offset(1, 0).Select ' e selecionar a próxima linha
Label1.Caption = "Item..: [ " & ComboBox1.Value & " ] inserido com sucesso"
End Sub

Aprenda tudo sobre o Apliicativo Microsoft Excel VBA - Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, praticando com os produtos didáticos SaberExcel

Saberexcel - o site das macros

Esses procedimentos do Objeto CheckBox do Aplicativo Microsoft Excel VBA(Visual Basic Application) oculta a aba de planihas e protege a folha de planiha, muda a cor do checkbox e fonte quando a condição do checkbox for muda, retornando uma mensagem no caption do CheckBox, observe que fiz uma linha de código também para retornar
um valor para célula B1.

Veja bem, você poderia retornar qualquer valor de qualquer lugar, de qualquer objeto, uma soma, ou um texto, qualquer coisa,
para desenvolver o racicinio lógico e aprender a programar temos que buscar opções com um exemplo, isto é um exemplo simples, mas com
um pouquinho de criatividade dá pra se fazer um exemplo bacana. não é mesmo?. Suponhamos que fala, Ah! que pena, eu queria que essa planilha fosse protegida com senhas. Eu lhe digo é muito fácil, voce mesmo vai fazer.

Abra uma planiha comum, acione o gravador de macros, insira uma senha de proteção em uma planilha, desligue o gravador de macros,
vá até o ambiente do VBA(ALT+F11), pegue o código que foi gravado e substitua a linha de código que protege pela sua.
simples. Expero que o exemplo seja útil. Fiquem com Deus, Expedito Marcondes

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ActiveSheet.Unprotect
ActiveWindow.DisplayWorkbookTabs = True
CheckBox1.Caption = "Planilha Desprotegida e abas visíveis"
CheckBox1.BackColor = &H8000&
CheckBox1.ForeColor = &HFFFFFF
CheckBox1.Alignment = fmAlignmentLeft
Saber1.Shapes("sb").Visible = False
Saber1.[B1].Value = "Cuidado planilha desprotegida!!"
Else
ActiveSheet.Unprotect
ActiveWindow.DisplayWorkbookTabs = False
Range("C2").Select
Saber1.[B1].Value = "Planilha PROTEGIDA!!"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
CheckBox1.Caption = "Planilha protegida, e Abas invisíveis!"
CheckBox1.BackColor = &HFF&
CheckBox1.ForeColor = &HFFFFFF
CheckBox1.Alignment = fmAlignmentRight
Saber1.Shapes("sb").Visible = True
End If

End Sub


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