Snasui Excel Forum

Code: Select all

Private Sub cmbsave_Click()
    Dim suminfo(300) As Double
    Dim i As Integer
    Dim num As Long
    Dim info(300) As Variant
 num = txtnum
  For i = 1 To txtnum
  If txtinfo <> "" Then
       info(i) = txtinfo
Else
   MsgBox "please fill information", vbOKOnly + vbInformation, "information"
   txtinfo.BackColor = vbRed
End If
Next i
suminfo = 0
For i = 1 To txtnum
       suminfo = suminfo + info(i)
Next i
label4 = suminfo
End Sub

Code: Select all

Dim info(300) As Variant
Dim l As Long

Private Sub cmbsave_Click()
    Dim suminfo As Double
    Dim i As Integer
    If l >= CLng(txtnum.Value) Then
        MsgBox "Not record"
        Exit Sub
    End If
    If txtinfo <> "" Then
        l = l + 1
        info(l) = CLng(txtinfo)
    Else
        MsgBox "please fill information", vbOKOnly + vbInformation, "information"
        txtinfo.BackColor = vbRed
    End If

    suminfo = 0
    For i = 1 To UBound(info)
        suminfo = suminfo + info(i)
    Next i

label4 = suminfo

End Sub