صياد الجراح قام بنشر يونيو 20 مشاركة قام بنشر يونيو 20 بسم الله الرحمن الرحيم اخوانى تحية من القلب للقلب فى البداية بشكر كل القائمين على هذا الصريح الكبير وعلى مساعدة الجميع الاعضاء SUMIFS الملف المرفق عبارة عن دالة H3 للجمع القيم بين تاريخين ووظهور الناتج فى الخانة المطلوب كتابة نفس الدالة فى محرر الاكواد بحيث عند الدوس على زر يظهر لى نفس الناتج فى التكست بوكس . . جزاكم الله كل خير لكم ودى وتقديرى sumif.xlsm رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يونيو 21 مشاركة قام بنشر يونيو 21 (معدل) وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا Private Sub CommandButton1_Click() Sum = Evaluate("=SUMIFS(F3:F100000,B3:B100000,"">=""&I2,B3:B100000,""<=""&j2)") Me.TextBox1.Value = Format(Sum, "#,##0.0") End Sub sumif.xlsm تم تعديل يونيو 21 بواسطه محمد هشام. 4 رابط هذا التعليق شارك More sharing options...
صياد الجراح قام بنشر يونيو 21 الكاتب مشاركة قام بنشر يونيو 21 بارك الله فيك اخى محمد .. بسم الله ماشاء الله عليك الكود يعمل بشكل طبيعى بس استذانك محتاج انى احدد رقم الشيت اللى حيطبق فيه الكود لانى حستخدمه فى اكتر من شيت فى نفس الملف رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر يونيو 21 مشاركة قام بنشر يونيو 21 يمكنك اظافة اسم ورقة العمل داخل الكود بهدا الشكل Private Sub CommandButton1_Click() Dim sh As Worksheet Set sh = Sheets("Sheet1") Sum = Evaluate("=SUMIFS(" & sh.Name & "!F3:F100000," & _ sh.Name & "!B3:B100000,"">=""&" & sh.Name & "!I2,B3:B100000,""<=""&" & sh.Name & "!j2)") Me.TextBox1.Value = Format(Sum, "#,##0.0") End Sub او الاعتماد على مربع Combobox لاختيار ورقة العمل المرغوب تنفيد الكود عليها Private Sub UserForm_Initialize() For Each s In ActiveWorkbook.Sheets Me.ComboBox1.AddItem s.Name Next s End Sub '******************** Private Sub CommandButton1_Click() If Me.ComboBox1 <> "" Then X = Me.ComboBox1.Value Set n = ThisWorkbook.Sheets(X) Sum = Evaluate("=SUMIFS(" & n.Name & "!F3:F100000," & n.Name & "!B3:B100000,"">=""&" & n.Name & _ "!I2,B3:B100000,""<=""&" & n.Name & "!j2)") Me.TextBox1.Value = Format(Sum, "#,##0.0") End If End Sub sumif v2.xlsm 3 رابط هذا التعليق شارك More sharing options...
صياد الجراح قام بنشر يونيو 21 الكاتب مشاركة قام بنشر يونيو 21 بارك الله فيك اخى محمد مشكور على مجهودك لك ودى وتقديرى لشخصك الكريم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.