فيصل الحربي قام بنشر أبريل 18, 2016 مشاركة قام بنشر أبريل 18, 2016 السلام عليكم ورحمة الله وبركاته المطلوب بارك الله فيكم الخلية رقم A1 فارغة بعد ادخال الرقم الدال على تاريخ اليوم و ليكن 18 في الخلية رقم A1 تتم مقارنة محتوى الخلية فإذا كان الرقم المدخل يساوي أو أكبر من تاريخ اليوم فيتم وضع الرقم كما هو ( 18 ) اما إذا كان الرقم المدخل اقل من تاريخ اليوم فيتم وضع زيرو في الخلية رقم A1 طبعا العملية محتاجه VBA وفي حدث بعد التغيير للشيت =IF(DAY(TODAY())<=E1,E1,0) رابط هذا التعليق شارك More sharing options...
عبدالله فاروق ابو ريان قام بنشر أبريل 18, 2016 مشاركة قام بنشر أبريل 18, 2016 فين المرفق اخي الكريم وليه VBA ماهو ممكن بالمعادلات رابط هذا التعليق شارك More sharing options...
فيصل الحربي قام بنشر أبريل 18, 2016 الكاتب مشاركة قام بنشر أبريل 18, 2016 تم رفع المرفق لماذا VBA لأن المطلوب ادخال رقم في الخلية A1 والتي تعتمد الحسابات عليها فإذا كانت هناك معادله في الخلية A1 فستحذف المعادله مع الادخال الجديد في اليوم التالي vba.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أبريل 18, 2016 مشاركة قام بنشر أبريل 18, 2016 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 السلام عليكم جرب هذا الكود 2 رابط هذا التعليق شارك More sharing options...
فيصل الحربي قام بنشر أبريل 19, 2016 الكاتب مشاركة قام بنشر أبريل 19, 2016 أخوي في الله بارك الله فيك و أجزل لك المثوبة تمام 100 % رابط هذا التعليق شارك More sharing options...
الردود الموصى بها