اعطاء رسالة تنبيهية بمجرد وصول قيمة خلية للصفر او مبلغ بالسالب

[ahmedamer2005]

اريد بمجرد وصول خانة صافى المرتب الى صفر او مبلغ سالب ان يعطى رسالة تنبيهية بواسطة الفيجوال بيسيك وليس من خلال التأكد من الصحة المروجود بالاكسيل

المثال مرفق طيه

test2.rar

[فلسطيني]

test2.rarألسلام عليكم ورحمة الله وبركاته

إليك الملف المرفق

[علي السحيب]

أعتقد أن الكود التالي أكثر كفاءة:

Private Sub Worksheet_Change(ByVal Target As Range)

TR = Target.Row
TC = Target.Column

If TR > 2 And (TC = 3 Or TC = 4) And Cells(TR, 5) < 1 Then

MsgBox "!مبلغ صافي الراتب أقل من أو يساوي صفر", vbExclamation, "تنبيه"

End If
End Sub

شاهد المرفق،

_________________________________________.rar

[ahmedamer2005]

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

الهم بلغنا ليلة القدر