ثلاث طرق للتحكم فى البيانات المدخلة

[محمد طاهر عرفه]

فى المثال المرفق

ثلاث طرق للتحكم فى البيانات المدخلة

الأولي بالكود

و هنا يتم التحقق من أن البيانات المدخلة فى الخلية d2

لابد أن تبدأ ب FGK

Private Sub Worksheet_Change(ByVal Target As Range)

 If UCase(Left(Range("d2").Value, 3)) <> "FGK" Then

  MsgBox "Not Accepted Entry, should start with FGK"

  Range("d2").Value = "FGK"

  Exit Sub

 End If

End Sub

و الثانية عن طريق معادلة if الشرطية و اظهار النتيجة فى الخلية المجاورة

و الثالثة عن طريق أمر Validation من قائمة data

و عليه يوجد 3 امثلة

الاول للتحكم بان الرقم بين 10 و 100

و الثاني لأن النص لا يزيد عن 5 حروف

و الاخير لان الرقم أقل من 1000

و فى الاخير تم استخدام خاصية الرسالة التي تظهر عند الوقوف فى الخلية و تغيير رسالة الخطأ و ذلك ايضا

من امر validation من قائمة data

Validation.zip