الاكسيل VBAكيفية استخدام الدالة الجمع الشرطى Sumif داخل محرر الاكواد VB

[@mohamedel-hanfy9140]

بارك الله فيك أستاذي الكريم كم استفدنا من علمك وابتكاراتك

[@Emad_ghazi]

جزاك الله خيراً وبارك الله فيك اخي الكريم

[@abutaleb2002]

بارك الله في هذا الجهد العظيم لك منا كل التقدير والإحترم استاذنا الغالي

[@Emad_ghazi]

جزاك الله خيراً وبارك الله فيك اخي الكريم

[@midosaied2331]

جزاك الله خيرا وجعله في ميزان حسناتك

[@Emad_ghazi]

جزاك الله خيراً وبارك الله فيك اخي الكريم

[@فضلفوزى-ي8غ]

بارك الله فيك انت معلم فاضل ... كنت اريد معرفة تحديد عدد صفوف معين عند الطباعة لكل صفحة عن طريق اليوزر فورم وشكرا لحضرتك

[@midosaied2331]

اللهم صل علي سيدنا محمد وعلى آل سيدنا محمد كما صليت على سيدنا إبراهيم وعلي آل سيدنا إبراهيم وبارك على سيدنا محمد وعلى آل سيدنا محمد محمد كما باركت على سيدنا إبراهيم وعلي آل سيدنا إبراهيم في العالمين إنك حميد مجيد اللهم صل وسلم وبارك على سيدنا محمد وعلى آله وصحبه أجمعين 📷📷اللَّهُمَّ صَلِّ عَلَى سيدنا مُحَمَّدٍ، وَعَلَى آلِ سيدنا مُحَمَّدٍ، كَمَا صَلَّيْتَ عَلَى سيدنا إِبْرَاهِيمَ، وَعَلَى آلِ سيدنا إِبْرَاهِيمَ، وَبَارِكْ عَلَى سيدنا مُحَمَّدٍ، وَعَلَى آلِ سيدنا مُحَمَّدٍ، كَمَا بَارَكْتَ عَلَى سيدنا إِبْرَاهِيمَ، وَعَلَى آلِ سيدنا إِبْرَاهِيمَ، فِي الْعَالَمِينَ إِنَّكَ حَمِيدٌ مَجِيدٌ📷.•* اللَّهُــــــــمّے صَــــــل على مُحمَّــــــــدْ ¸.•* و علَےَ آل محمد كما صَــــــلٌيت علَےَابراهيم ¸.•* و علَےَ آل إِبْرَاهِيمَ ¸.•* و بارك علَےَ مُحمَّــــــــدْ و علَےَ آل مُحمَّــــــــدْ ¸.•* كما باركت علَےَ إِبْرَاهِيمَ و علَےَ آل ابراهيم ¸.•* فى الْعَالَمِينَ انَّك حَمِيدٌ مَجِيدٌ ¸.•* ﷺ اللهم صّلِ وسَلّمْ عَلۓِ نَبِيْنَامُحَمد ﷺ اللهم صّلِ وسَلّمْ عَلۓِ نَبِيْنَامُحَمد ﷺ اللهم صل وسلم وبارك على سيدنا محمد وعلى آله وصحبه أجمعين اللهم صل وسلم وبارك على سيدنا محمد وعلى آله وصحبه أجمعين اللهم صل وسلم وبارك على سيدنا محمد وعلى آله وصحبه أجمعين

[@Emad_ghazi]

اللهم صلي وسلم وبارك على سيدنا محمد وعلى آله الطيبين الطاهرين اجمعين وسلم تسليما كثيرا

[@hayan81]

ممكن مثال عن الداله Sumbroudact

[@rahmanilaghzal1536]

استاذ عماد هل ممكن ادراج خريطة في يوسفورم بحيت تكون تفاعلية مع ادخال احداثيات من تكست بوك اكس وتكست بوكي واي ..شكرا

[@SamehRSameh]

طب لما باخد دالة sumproduct واحطها ك formula مش بتشتغل

[@ابوفيصل-ت2ي]

السلام عليكم ورحمه الله وبركاته اسعد الله اوقاتك استاذ عماد وجمعتكم مباركه عزيزي الكريم تعقيبا على الدرس هذا اريد ان استخدم الداله MOD في محرر الاكواد ,يوجد ديباج رسال 438 ورسالة Object Doesn't Support This Property Or Method ,ولك مني الشكر والتقدير والدعاء استاذنا الكريم

[@mohamedtaghean2367]

Sub mysumif() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Sheet12.Range("D6:G1000").ClearContents '===============================معادله sumifs==================================== For x = 6 To 1000 Sheet12.Cells(x, "D") = Application.WorksheetFunction.SumIfs(Sheet3.Range("H:H"), Sheet3.Range("G:G"), Sheet12.Range("B" & x), Sheet3.Range("C:C"), Sheet12.Range("A2")) Sheet12.Cells(x, "E") = Application.WorksheetFunction.SumIfs(Sheet3.Range("H:H"), Sheet3.Range("G:G"), Sheet12.Range("B" & x), Sheet3.Range("C:C"), Sheet12.Range("A4")) Sheet12.Cells(x, "F") = Application.WorksheetFunction.SumIfs(Sheet3.Range("H:H"), Sheet3.Range("G:G"), Sheet12.Range("B" & x), Sheet3.Range("O:O"), Sheet12.Range("B3")) Sheet12.Cells(x, "G") = Application.WorksheetFunction.SumIfs(Sheet3.Range("H:H"), Sheet3.Range("G:G"), Sheet12.Range("B" & x), Sheet3.Range("C:C"), Sheet12.Range("B4")) Sheet12.Cells(x, "N") = Application.WorksheetFunction.SumIfs(Sheet3.Range("H:H"), Sheet3.Range("G:G"), Sheet12.Range("B" & x), Sheet3.Range("O:O"), Sheet12.Range("B3")) Sheet12.Cells(x, "J") = Application.WorksheetFunction.SumIfs(Sheet3.Range("J:J"), Sheet3.Range("G:G"), Sheet12.Range("B" & x), Sheet3.Range("C:C"), Sheet12.Range("A2")) Sheet12.Cells(x, "O") = Application.WorksheetFunction.SumIfs(Sheet3.Range("H:H"), Sheet3.Range("G:G"), Sheet12.Range("B" & x), Sheet3.Range("C:C"), Sheet12.Range("B4")) Sheet12.Cells(x, "P") = Application.WorksheetFunction.SumIfs(Sheet3.Range("H:H"), Sheet3.Range("G:G"), Sheet12.Range("B" & x), Sheet3.Range("C:C"), Sheet12.Range("A1")) Sheet12.Cells(x, "Q") = Application.WorksheetFunction.SumIfs(Sheet3.Range("H:H"), Sheet3.Range("G:G"), Sheet12.Range("B" & x), Sheet3.Range("C:C"), Sheet12.Range("A3")) Sheet12.Cells(x, "T") = Application.WorksheetFunction.SumIfs(Sheet3.Range("J:J"), Sheet3.Range("G:G"), Sheet12.Range("B" & x), Sheet3.Range("C:C"), Sheet12.Range("A2")) Next x Sheet12.Range("a6:a1000").Value = Sheet5.Range("a6:a1000").Value Sheet12.Range("b6:b1000").Value = Sheet5.Range("b6:b1000").Value Sheet12.Range("H6:H1000").Value = Sheet5.Range("E6:E1000").Value Sheet12.Range("R6:R1000").Value = Sheet5.Range("F6:F1000").Value Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub ممكن التاكد من صحة صيغة الكود أو لو فيه طريقه اخري لصياغته ؟ زادك الله علما - ونفع الامه بك -- خيركم خيركم لأهله - خيركم أنفعكم للناس - صدق رسول الله صل الله عليه وسلم