|
 Esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando UserForm e ComboBox, mostram determinados dados relacionados em outra caixa de combinação (ComboBox), alterando simultaneamente a Propriedade RowSource de ambas.
Private Sub Cb1_Click()
'A maneira de se fazer é Alterar a propriedade RowSouce pelo código
'Esse If testa qual o Depto foi escolhido
If Cb1.ListIndex = 0 Then 'ListIndex 0 representa o primeiro dpto da lista
Cb2.RowSource = "Adm" 'Adm é o nome da lista criada
Cb2.Text = Cb2.List(0) 'faz com que o Primeiro item da lista já apareça como a primeira opção no combo
ElseIf Cb1.ListIndex = 1 Then 'ListIndex 1 representa o segundo dpto da lista e assim por diante
Cb2.RowSource = "Prod" 'Prod é o nome da lista criada
Cb2.Text = Cb2.List(0) 'faz com que o Primeiro item da lista já apareça como a primeira opção no combo
End If
End Sub
'faz com que o Primeiro item da lista já apareça como a primeira opção no combo
'não esqueça que a numeração da lista inicia em 0
Private Sub UserForm_Activate()
Cb1.RowSource = "Dept"
Cb1.Text = Cb1.List(0) '0 é o primeiro item da lista
End Sub
'Abaixo o evento change de uma combobox somente para voce ver como montar uma mensagem concatenando dados
Private Sub Cb2_Change()
[J3].Value = Cb2.Text
Label3.Caption = "Depto. [" & Cb1.Text & " ] Nome funcionário: [ " & Cb2.Text & " ]"
End Sub
Private Sub Cb1_Change()
[J2].Value = Cb1.Text
Label3.Caption = "Depto. [" & Cb1.Text & " ] Nome funcionário: [ " & Cb2.Text & " ]"
End Sub
Aprenda Aplicativo Microsoft Excel VBA(Visual Basic Application) - com Saberexcel
|