Comprar a Coleção de 15.000 Macros, Funções e Fórmulas do Excel           Dicas

Construindo uma ListBox e Recuperando o dado escolhido

Questão 31:

Preciso construir uma ListBox com 4 Times (Santos, Botafogo de RP, Ibis, Miguelópolis FC). Isto posto, ao selecionar manualmente quaisquer dos 4 times quero exibir uma mensagem com o Time escolhido. Como proceder ?

Solução 31:

Sub ExibindoOTimeEscolhido( )
Dim LB As ListBox
Dim ListBoxDialog As DialogSheet
Set ListBoxDialog = ThisWorkbook.DialogSheets("ListBoxDialog")
Set LB = ListBoxDialog.ListBoxes("LB")
LB.RemoveAllItems
Worksheets(1).Select
With LB
.AddItem Index:=1, Text:="Santos"
.AddItem Index:=2, Text:="Botafogo de Ribeirão Preto"
.AddItem Index:=3, Text:="Ibis"
.AddItem Index:=4, Text:="Migulepolis FC"
End With
ListBoxOK = DialogSheets("ListBoxDialog").Show
If Not ListBoxOK Then Exit Sub
x = LB.ListIndex
MsgBox "Você Selecionou o Item: " & LB.ListIndex
MsgBox "Você Selecionou o Time: " & LB.List(x)
End Sub