| Descricao: |
 Saberexcel - o site de quem precisa aprender macros Microsoft Excel VBA
Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando objeto userform e um CheckBox oculta todos os controles
Labels, TextBoxes e CommandButtons do objeto Userform.
Private Sub CheckBox1_Click()
Dim c As Control
For Each c In Me.Controls
If CheckBox1 = True Then
Select Case TypeName(c)
Case "TextBox"
c.Visible = False
Case "Label"
c.Visible = False
Case "CommandButton"
c.Visible = False
End Select
CheckBox1.Caption = "Objetos Ocultos"
CheckBox1.BackColor = &HFFFF00
CheckBox1.ForeColor = &HFF&
Else
Select Case TypeName(c)
Case "TextBox"
c.Visible = True
Case "Label"
c.Visible = True
Case "CommandButton"
c.Visible = True
End Select
TextBox1.SetFocus
CheckBox1.Caption = "Ocultar Objetos"
CheckBox1.BackColor = &H80C0FF
CheckBox1.ForeColor = &H8000&
End If
Next c
lblSBX.Visible = True 'mostrando label desejado.
End Sub
Private Sub fechar_Click()
End
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
|