Esses procedimentos do aplicativo microsoft Excel VBA(Visual Basic Application), contém options que preenche os dados da propriedade rowsource do objeto ComboBox, com critério de seleção options.


Private Sub ComboBox1_Click()
'Range("A65536").Offset(1, 0).End(xlUp).Value = ComboBox1.Value
Range("A407").End(xlUp).Offset(1, 0).Value = ComboBox1.Value
Frame2.Caption = "Item inserido..: " & ComboBox1.Value
frm_viagem.Caption = Left(ComboBox1.Value, 5)
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub OptionButton1_Click()
Alimenta_Combo 1
End Sub

Private Sub OptionButton2_Click()
Alimenta_Combo 2
End Sub

Private Sub OptionButton3_Click()
Alimenta_Combo 3
End Sub

Private Sub OptionButton4_Click()
Alimenta_Combo 4
End Sub

Sub Alimenta_Combo(vColuna As Integer)
Dim I As Long

Me.ComboBox1.Clear
With Sheets("Banco_Dados")
For I = 2 To .Cells(65536, vColuna).End(xlUp).Row
Me.ComboBox1 = .Cells(I, vColuna)
If Me.ComboBox1.ListIndex = -1 Then
Me.ComboBox1.AddItem .Cells(I, vColuna)
End If
Next I
End With
Me.ComboBox1.ListIndex = -1
End Sub



Aprenda tudo sobre o 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), aumenta e diminui as medidas do Objeto CommandButton(Botão)
observe que a instrução IF, faz com que os eventos de clicar retorna a ação, fucionando como se fosse um botao de ativacao(Toggle)

Private Sub CommandButton1_Click()
With CommandButton1
.Height = 20
.Width = 80
If .Caption = "Sô tiancinha!!!" Then
.Width = 300
.Font.Bold = True
.Caption = "Veja!!!, O que me ACONTECEU!!!! - ESTOU ADULTO!!!"
.ForeColor = &HFFFFFF
.BackColor = &H80FF&
Else
.Width = 80
.Font.Bold = False
.Caption = "Sô tiancinha!!!"
.ForeColor = &H4000&
.BackColor = &HC0FFFF
End If
End With
End Sub

Private Sub CommandButton1_Click()
With CommandButton1
.Height = 20
.Width = 80
If .Caption = "Sô tiancinha!!!" Then
.Width = 300
.Font.Bold = True
.Caption = "Veja!!!, O que me ACONTECEU!!!! - ESTOU ADULTO!!!"
.ForeColor = &HFFFFFF
.BackColor = &H80FF&
Else
.Width = 80
.Font.Bold = False
.Caption = "Sô tiancinha!!!"
.ForeColor = &H4000&
.BackColor = &HC0FFFF
End If
End With
End Sub

'procedimento no módulo de edição do objeto Workbook, evento Auto_Open
Private Sub Workbook_Open()
With Saber1.CommandButton1
.Height = 20
.Width = 90
.Left = 150
.Top = 80
.Caption = "Sô tiancinha!!!"
End With
End Sub





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

Saberexcel - site das macros

Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application) contém um exemplo de objeto Combobox(Caixa de Combinação), que que retorna dados para folha de planilha e também para o captions dos objetos dependendo do ítem selecionado no objeto combobox.
Retona valores selecionados para o captions Frame, UserForm, Labels, CommandButton, ComboBox e células.
♦ Observe que se o ítem na Combobox for igual a 'SABEREXCEL', muda os captions dos objetos senão, insere dados diferentes(objetos)

Private Sub ComboBox1_Change()
If ComboBox1.Value = "SABEREXCEL" Then
[B1].Value = ""
[B18].Value = "Quando você selecionar Saberexcel - veja os captions dos objetos"
TextBox1.Value = ComboBox1.Value
Label1.Caption = "Selecionou [ " & ComboBox1.Value & " ]"
CommandButton1.Caption = "Fechar"
UserForm1.Caption = "Saberexcel - site das macros"
Frame1.Caption = ComboBox1.Value
Else
[B1].Value = ComboBox1.Value
[B18].Value = "MUDANDO OS CAPTIONS E RETORNANDO NA CÉLULA B1"
TextBox1.Value = "Lançado na célula B1"
Label1.Caption = "Lançado [" & ComboBox1.Value & " ] Celula B1"
CommandButton1.Caption = "Lançado [" & ComboBox1.Value & " ] Celula B1"
UserForm1.Caption = "Lançado [" & ComboBox1.Value & " ] Celula B1"
Frame1.Caption = "Item selecionado..: [ " & ComboBox1.Value & " ]"
End If
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "SABEREXCEL"
ComboBox1.AddItem "Aprenda VBA"
ComboBox1.AddItem "Determinação"
End Sub


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

Saberexcel - site das macros

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Aplication) contém vários options que ajudam na localização de dados,
isto é, ocultam linhas desejadas e mostram as linhas que contém determinados dados.
Observem que quando selecionar o option1 as instrução Case, mostrará as linhas referente ao range nomeado "Saber1", e asim acontece com os 5 options. Espero que o exemplos seja útil, Fiquem com Deus, E_Marcondes


Sub OptionButton_Click()
Rows("15:65").EntireRow.Hidden = True

Select Case Application.Caller
Case "opt1"
Range("Saber1").EntireRow.Hidden = False
Case "opt2"
Range("Saber2").EntireRow.Hidden = False
Case "opt3"
Range("Saber3").EntireRow.Hidden = False
Case "opt4"
Range("Saber4").EntireRow.Hidden = False
Case "opt5"
Range("Saber5").EntireRow.Hidden = False
End Select
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, 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