Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

Esses procedimentos do Aplicativo Microsoft Excel VBA, soma ítem selecionado em uma Listbox (caixa de listagem) em uma caixa de TextBox(caixa de texto), adiciona valores selecionados a cada execução da macro.

Private Sub CommandButton3_Click()
Dim lItem As Double
Dim Tal As Double
For lItem = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lItem) = True Then
Tal = ListBox1.List(lItem, 1) * 1
TextBox4 = Tal * 1 + Val(TextBox4.Value)
ListBox1.Selected(lItem) = False
End If
Next
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 5
Sheets("Plan1").Select
ListBox1.RowSource = "B2:F100"
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




    Baixe o exemplo de planilha dos procedimentos acima
vba soma valores de um listbox em um textbox (68.56 kB 2010-11-28 08:09:32)