تعديل لدالة لجلب قيمة الخلية إلى أعلى صف واحد

[ضياء 2]

السلام عليكم الاساتذة الافاضل بالمنتدى فضلا من كرمكم " الدالة توجد في عمود E عمل الدالة اذا كان رصيد في عمود  C اكبر من صفر تقوم بعملية ضرب الرصيد * عمود D سعر قيمة الخلية إلى أعلى صف واحد واذا كانت غير ذلك القيمة تكون القيمة صفر   المطلوب جلب سعر قيمة الخلية إلى أعلى بشرط عمود A التاريخ السابق ، وعمود B الاسم   "

ورقه.xlsx

[Saleh Ahmed Rabie]

في 5‏/6‏/2024 at 14:37, ضياء 2 said:

السلام عليكم الاساتذة الافاضل بالمنتدى فضلا من كرمكم " الدالة توجد في عمود E عمل الدالة اذا كان رصيد في عمود  C اكبر من صفر تقوم بعملية ضرب الرصيد * عمود D سعر قيمة الخلية إلى أعلى صف واحد واذا كانت غير ذلك القيمة تكون القيمة صفر   المطلوب جلب سعر قيمة الخلية إلى أعلى بشرط عمود A التاريخ السابق ، وعمود B الاسم   "

ورقه.xlsx 11.34 kB · 4 downloads

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

يمكنك استخدام الصيغة التالية في الخلية E2:

=IFERROR(IF(AND(C2>0, A2=0, B2="اسم المطلوب"), IF(ROW(C2)=2, C2*D2, OFFSET(D2, -1, 0)*C2), 0), 0)

هذه الصيغة ستتحقق من أن قيمة في عمود C أكبر من صفر، وأن قيمة في عمود A تساوي صفر (التاريخ السابق)، وأن قيمة في عمود B تساوي "اسم المطلوب". إذا تم تحقيق هذه الشروط، سيتم ضرب قيمة في عمود C بقيمة في عمود D، وإلا ستكون القيمة صفر.

ويمكنك استخدام الكود التالي في VBA لتنفيذ النفس العملية:

Sub CalculateValue()
    Dim lastRow As Integer
    Dim i As Integer
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To lastRow
        If Cells(i, 3).Value > 0 And Cells(i, 1).Value = 0 And Cells(i, 2).Value = "اسم المطلوب" Then
            If i = 2 Then
                Cells(i, 5).Value = Cells(i, 3).Value * Cells(i, 4).Value
            Else
                Cells(i, 5).Value = Cells(i - 1, 5).Value * Cells(i, 3).Value
            End If
        Else
            Cells(i, 5).Value = 0
        End If
    Next i
End Sub

 

يقوم هذا الكود بتنفيذ العملية المطلوبة في العمود E بناءً على شروط معينة في الأعمدة A، B و C. يمكنك تشغيل هذا الكود في VBA Editor في Excel عن طريق الضغط على Alt + F11 ولصق الكود في نافذة الكود الخاصة بالورقة التي ترغب في تطبيق العملية عليها، ثم تشغيل الكود.

 

 

 

تم تعديل يونيو 10 بواسطه Saleh Ahmed Rabie
اضافة