[حل شده] جمع اعداد چند سلول در تاریخ جاری سیستم

[mehey]

جمع اعداد چند سلول در تاریخ جاری سیستم

می خوام چند سلولی که تو تاریخ امروز هستن رو با هم جمع کنم فایل پیوست رو مشاهده کنید
با تشکر

[iranweld]

با سلام

فایل پیوست را ملاحظه بفرمایید

Sub DateValueFunc()

Dim MyDate As Date

Dim total As Long

x = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

total = 0

MyDate = Format(DateValue(Now), "mmmm dd, yyyy hh:mm:ss")

For i = 2 To x

If Range("A" & i).Value = MyDate Then

total = total + Range("b" & i).Value

End If

Next i

MsgBox total
End Sub 

[mehey]

ممنون از پاسخ شما اگه بخوام همون تاریخ رو بشمارم باید چیکار کنم

[Amir Ghasemiyan]

جمع اعداد چند سلول در تاریخ جاری سیستم

می خوام چند سلولی که تو تاریخ امروز هستن رو با هم جمع کنم فایل پیوست رو مشاهده کنید
با تشکر

سلام دوست عزيز
اگر اصرار دارين با vba نوشته بشه من اين كد رو بهتون پيشنهاد ميكنم:

Sub sumif_solver()
     a = Application.WorksheetFunction.sumif(Range("A2:A19"), DateValue(Now), Range("B2:B19"))
End Sub

وگرنه ميتونين از فرمول sumif كمك بگيرين:

=SUMIF(A2:A19;TODAY();B2:B19)

[mehey]

سلام دوست عزيز
اگر اصرار دارين با vba نوشته بشه من اين كد رو بهتون پيشنهاد ميكنم:

Sub sumif_solver()
     a = Application.WorksheetFunction.sumif(Range("A2:A19"), DateValue(Now), Range("B2:B19"))
End Sub

وگرنه ميتونين از فرمول sumif كمك بگيرين:

=SUMIF(A2:A19;TODAY();B2:B19)

ممنون از لطفتون دارم یه پروژه درست میکنم که باید همه این گزینه ها تو فرم باشه شرمنده باز از پاسخ های شما تشکر میکنم که با کمال صبوری جواب میدین

[Amir Ghasemiyan]

ممنون از لطفتون دارم یه پروژه درست میکنم که باید همه این گزینه ها تو فرم باشه شرمنده باز از پاسخ های شما تشکر میکنم که با کمال صبوری جواب میدین

دوست عزيز كد vba كه براتون نوشتم فقط محاسبات رو انجام ميده. حالا با اين جواب هر كار دوست دارين ميتونين انجام بدين. ميتونين تو يك فرم نمايش بدين. ميتونين تو msgbox نمايش بدين. ميتونين تو سلول هاي اكسل قرار بدين و يا هر كار ديگه اي كه دوست دارين انجام بدين

موفق باشيد

[mehey]

دوست عزيز كد vba كه براتون نوشتم فقط محاسبات رو انجام ميده. حالا با اين جواب هر كار دوست دارين ميتونين انجام بدين. ميتونين تو يك فرم نمايش بدين. ميتونين تو msgbox نمايش بدين. ميتونين تو سلول هاي اكسل قرار بدين و يا هر كار ديگه اي كه دوست دارين انجام بدين

موفق باشيد

بله ممنون ولی من می خوام تعداد سلول ها رو بشماره

[Amir Ghasemiyan]

بله ممنون ولی من می خوام تعداد سلول ها رو بشماره

براي اين كار ميتونين از countif استفاده كنيد.
در vba به اين صورت:

Sub countif_solver()
    b = Application.WorksheetFunction.CountIf(Range("A2:A19"), DateValue(Now))
End Sub

در اكسل به اين صورت:

=COUNTIF(A2:A19;TODAY())

[mehey]

براي اين كار ميتونين از countif استفاده كنيد.
در vba به اين صورت:

Sub countif_solver()
    b = Application.WorksheetFunction.CountIf(Range("A2:A19"), DateValue(Now))
End Sub

در اكسل به اين صورت:

=COUNTIF(A2:A19;TODAY())

باز تشکر میکنم ممنون حل شد مشکلم