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)
