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