|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
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
کامنت