calculating numerical values in a list box

[RumpleBear]

How do you do it

 

[JustinEzequiel]

not sure what you mean but this should get you started

Option Explicit

Private Sub Command1_Click()
  Dim i As Long
  Dim nSum As Long
  
  For i = 0 To List1.ListCount - 1
    nSum = nSum + Val(List1.List(i))
  Next i
  
  Text1.Text = nSum
End Sub

Private Sub Form_Load()
  Dim i As Long
  
  For i = 1 To 15
    List1.AddItem i
  Next i
End Sub

 

[Jon4747]

Hi,

Items in a listbox are strings. To convert a string to a numeric value you can use one of the following

Val()
CInt()
CDec()

e.g.
MyVar = Val(List1.List(0))
Be advised, you should validate the string first to make sure the string doesn't contain non-numeric characters.

Jon

 

[RumpleBear]

i ment adding those values together