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

[mehey]

با سلام و خسته نباشید خدمت اساتید گرامی می خوام تو شیت های جداگانه که مبلغ هست فقط تو تاریخ امروز رو با هم جمع کنم
فایل پیوست
13.rar

[generalsamad]

با سلام
دوست عزیز مگه جوابتون رو تو لینک زیر نگرفتید؟!

http://forum.exceliran.com/showthread.php/7782-%D8%AC%D9%85%D8%B9-%D8%A7%D8%B9%D8%AF%D8%A7%D8%AF-%DA%86%D9%86%D8%AF-%D8%B3%D9%84%D9%88%D9%84-%D8%AF%D8%B1-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-%D8%AC%D8%A7%D8%B1%DB%8C-%D8%B3%DB%8C%D8%B3%D8%AA%D9%85?p=41330#post41330

[mehey]

با سلام
دوست عزیز مگه جوابتون رو تو لینک زیر نگرفتید؟!
http://forum.exceliran.com/showthrea...1330#post41330

بله این مطلب با اون متفاوته چون نمیتونم تو چنتا شیت جداگانه این کار رو انجام بدم فایل پیوست رو مشاهده کنید با تشکر

[Amir Ghasemiyan]

بله این مطلب با اون متفاوته چون نمیتونم تو چنتا شیت جداگانه این کار رو انجام بدم فایل پیوست رو مشاهده کنید با تشکر

ميتونستين ادامه همون تاپيك سوالتون رو مطرح كنيد دوست عزيز
در هر صورت اشكالي نداره. شما ميتونين براي هر شيت اينطوري بنويسيد و در انتها همه رو با هم جمع كنيد

a = Application.WorksheetFunction.SumIf(Range("sheet1!F2:F9"), DateValue(Now), Range("sheet1!G2:G9"))

من يك پيشنهاد ديگه هم دارم. شما تو سلول ها فرمول رو بنويسيد و موقع استفاده از فرم مقدار اون فرم رو فراخواني كنيد

[mehey]

ميتونستين ادامه همون تاپيك سوالتون رو مطرح كنيد دوست عزيز
در هر صورت اشكالي نداره. شما ميتونين براي هر شيت اينطوري بنويسيد و در انتها همه رو با هم جمع كنيد

a = Application.WorksheetFunction.SumIf(Range("sheet1!F2:F9"), DateValue(Now), Range("sheet1!G2:G9"))

من يك پيشنهاد ديگه هم دارم. شما تو سلول ها فرمول رو بنويسيد و موقع استفاده از فرم مقدار اون فرم رو فراخواني كنيد

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

[Amir Ghasemiyan]

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

خواهش میکنم
داده هاتون زیاده یا شیت ها؟
شما میتونین از name manager هم کمک بگیرین ولی اول جواب سوالی که پرسیدم رو بفرمایید

[mehey]

خواهش میکنم
داده هاتون زیاده یا شیت ها؟
شما میتونین از name manager هم کمک بگیرین ولی اول جواب سوالی که پرسیدم رو بفرمایید

شیت هام کمه ولی داده هام زیاده

[Amir Ghasemiyan]

شیت هام کمه ولی داده هام زیاده

خب پس به همین روش انجام بدین. چه مشکلی داره؟
نهایتش اینه که برای هر بخش یک خط به کدهاتون اضافه میشه دیگه.

[mehey]

خب پس به همین روش انجام بدین. چه مشکلی داره؟
نهایتش اینه که برای هر بخش یک خط به کدهاتون اضافه میشه دیگه.

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

[Amir Ghasemiyan]

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

بفرمایید خدمت شما
a مربوط به شیت اول و b مربوط به شیت دوم. total هم که جمع کل هست که قراره تو فرم نمایش داده بشه

a = Application.WorksheetFunction.SumIf(Range("sheet1!F2:F9"), DateValue(Now), Range("sheet1!G2:G9"))
b = Application.WorksheetFunction.SumIf(Range("sheet2!F2:F9"), DateValue(Now), Range("sheet2!G2:G9"))
total = a + b

[mehey]

بفرمایید خدمت شما
a مربوط به شیت اول و b مربوط به شیت دوم. total هم که جمع کل هست که قراره تو فرم نمایش داده بشه

a = Application.WorksheetFunction.SumIf(Range("sheet1!F2:F9"), DateValue(Now), Range("sheet1!G2:G9"))
b = Application.WorksheetFunction.SumIf(Range("sheet2!F2:F9"), DateValue(Now), Range("sheet2!G2:G9"))
total = a + b

ممنون از لطفتون

[Amir Ghasemiyan]

ممنون از لطفتون

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