(طلب) كتابة دالة SUMIFS داخل محرر الاكواد

[صياد الجراح]

بسم الله الرحمن الرحيم

اخوانى  تحية من القلب للقلب

فى البداية بشكر كل القائمين على هذا الصريح الكبير وعلى مساعدة الجميع الاعضاء 

 SUMIFS الملف المرفق عبارة عن دالة

H3 للجمع القيم  بين تاريخين ووظهور الناتج فى الخانة

المطلوب كتابة نفس الدالة فى محرر الاكواد بحيث عند الدوس على زر  يظهر لى نفس الناتج فى التكست بوكس

.

.

جزاكم الله كل خير

لكم ودى وتقديرى

sumif.xlsm

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

جرب هدا 

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, 2024 بواسطه محمد هشام.

[صياد الجراح]

بارك الله فيك اخى محمد .. بسم الله ماشاء الله عليك

الكود يعمل  بشكل طبيعى بس استذانك محتاج انى احدد رقم الشيت اللى حيطبق فيه الكود

لانى حستخدمه فى اكتر من شيت فى نفس الملف

 

[محمد هشام.]

يمكنك اظافة اسم ورقة العمل داخل الكود بهدا الشكل 

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

[صياد الجراح]

بارك الله فيك اخى محمد

مشكور على مجهودك

لك ودى وتقديرى لشخصك الكريم