سؤال

نرجو التوضيح في الاكسس أو في الاكسل

==================

================

الاخت فاتن

الطريقة التالية عملت معي

قومي اولا بتسجيل ماكرو ومن ثم تحديد الخلية التي تريدين وضع الصلاحية فيها ومن ثم توقفين التسجيل

افتحي محرر فيجوال بيسك وأكتبي الكودالتالي

Dim x As Long

Dim y As Long

y = Range("الخلية التي اخترتيها")

x = Left(y, 1)

If x = 9 Then

Range("الخلية التي اخترتيها") = Range("الخلية التي اخترتيها")

Else

MsgBox "خطاء في الادخال"

End If

من ثم ضعي زر واربيطيه مع الماكرو

في النهاية عند ادخال قيمة ولنقل 78888 وعند الظغط على الزر

تظهر الرسالة التي تبين خطاء الادخال وعند ادخال اي رقم يبداء بي9 لا تظهر الرسالة

ارجوان اكون قد وفقت