ما هي أفضل طريقة لوضع قيمة افتراضية في الخلية

[Dream_Works]

السلام عليكم

لدي عمود رقمي و أرغب بأن تكون جميع قيمه أرقام .... المطلوب عدم السماح للمستخدم بترك الخانة فارغة ووضع صفر مكانها مباشرة ... ما هي أفضل طريقة لعمل ذلك ؟

[أبوعبد الله]

أخي Dream_Works

المرفق به الفكرة المطلوبة بالعمود المظلل على النطاق ( E2:E1000) أرجو أن يكون به طلبك جرب أن تترك خلايا فارغة ثم تدخل بعدها أي أرقام وجرب أن تدخل بيانات غير رقمية ولاحظ ما يحدث .

تحياتي

أبو عبدالله

__________________________________________________________.rar

[رفيق محمد]

بوركت ابا عبدالله

سلمت يداك

[Dream_Works]

أشكرك كثيراً أخي الكريم .... لقد قمت أنا بالمطلوب و لكن فكرتك أفضل ...

Private Sub Worksheet_Change(ByVal Target As Range)
Static Changed As Boolean
If Changed Then Exit Sub
If Target(1, 1).Column = 7 And IsEmpty(Target(1, 1)) Then
Changed = True
Target(1, 1) = 0
End If
Changed = False
End Sub

تم تعديل أغسطس 3, 2008 بواسطه Dream_Works

[omar elhosseini]

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

لعل وعسى هذا الكود يكون مفيد

مثال بالمرفقات

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 7 And Target = "" Then Target = 0
End Sub

Test_01.rar