Private Sub CommandButton1_Click()
Dim c As Range
Dim jam As Long
Dim i As Integer
jam = 0
i = 1
ListBox1.Clear
For Each c In Sheet1.Range("B3:B1000")
If c >= Sheet2.Range("B2") And c <= Sheet2.Range("B3") Then
ListBox1.AddItem (Str(c) + Str(c.Offset(0, 2).Value))
Cells(i, 3).Value = c.Offset(0, 2).Value
jam = jam + c.Offset(0, 2).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = c.Offset(0, 1).Value
ListBox1.List(ListBox1.ListCount - 1, 2) = c.Offset(0, 2).Value
i = i + 1
'''''''''''
'a = Application.WorksheetFunction.Sum(c.Offset(0, 2).Value)
'ListBox1.List(ListBox1.ListCount - 1, 3) = a
End If
Next
ListBox1.AddItem "-----------"
ListBox1.AddItem jam
End Sub
کامنت