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





  Baixar o exemplo de planiha contendo os procedimentos acima.
Excel planilha vba textboxes interacao com objeto combobox (66.3 KB)