[تمت الإجابة] تحديث خليه بواسطة VBA

[فيصل الحربي]

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

 

المطلوب بارك الله فيكم 

 

الخلية رقم A1 فارغة 

بعد ادخال الرقم الدال على تاريخ اليوم و ليكن 18 في الخلية رقم A1  تتم مقارنة محتوى الخلية فإذا كان الرقم المدخل يساوي أو أكبر من تاريخ اليوم  فيتم وضع الرقم كما هو ( 18 )  اما إذا كان الرقم المدخل اقل من تاريخ اليوم  فيتم وضع زيرو في الخلية رقم A1 

 

طبعا العملية محتاجه VBA وفي حدث بعد التغيير للشيت  

 

=IF(DAY(TODAY())<=E1,E1,0)

 

[عبدالله فاروق ابو ريان]

فين المرفق اخي الكريم

وليه VBA ماهو ممكن بالمعادلات

 

[فيصل الحربي]

تم رفع المرفق 

 

لماذا VBA

 

لأن المطلوب ادخال رقم في الخلية A1   والتي تعتمد الحسابات عليها 

فإذا كانت هناك معادله في الخلية A1 فستحذف المعادله مع الادخال الجديد في اليوم التالي 

 

vba.rar

[أبو حنــــين]

Private Sub Worksheet_Change(ByVal Target As Range)

Dim x
x = Format(Date, "d")
    If Target.Address = Range("A1").Address Then
                If Range("A1").Value < Val(x) Then
            Range("A1").Value = 0
        Else
    End If
End If

End Sub

السلام عليكم

جرب هذا الكود

 

 

 

[فيصل الحربي]

أخوي في الله 

بارك الله فيك و أجزل لك المثوبة 

تمام 100 %