Sum Listbox items

[Soniya]

hI ALL,

Is it possible to sum the items in a listbox and get it
to be the caption of a label. even if the numbers are
stored as text and added to the listbox?

TIA

Soniya

 

[Brad]

This procedure will handle pure text items with an error
message and will sum numbers in a double data type. You
didn't specify what kind of numbers they were. Change as
necessary.


Sub SumListBoxItems()
On Error Resume Next
Dim dblSum As Double, dblVar As Double
For i = 0 To ListBox1.ListCount - 1
dblVar = CDbl(ListBox1.List(i))
If Err.Number <> 0 Then
If Err.Number <> 13 Then
MsgBox Err.Number & " - " & Err.Description
' Post if this happens, I'm curious.
Exit Sub
Else
' Put something else / additional here if
you want to
' do something with the text items in the
listbox.
MsgBox ListBox1.List(i) & " is not a valid
number."
Err.Clear
End If
Else
dblSum = dblSum + dblVar
End If
Next
Label1.Caption dblSum
End Sub