التأكد من قيمة المدخلات فى الاكسيل

اخينا الكريم 000 سؤالك غير واضح

اقتباس

يوجد أكثر من طريقة لكتابه القانون أتمني كتابة طريقتين أو ثلاث ؟؟؟؟

أخي العزيز / أولا أتمني الالتزام بقواعد طرح الاسئلة المثبتة أعلا المنتدي ، من حيث وضوح العنوان ، ( تم تعديله )

ثانيا

من أين تأكدت بوجود طرق متعددة ، هل يمكنك توضيح هذه الطرق كوصف ، فلم يخطر ببالي الا الطريقتين الآتيتين:

ما أعرفه هو اما اختبار القيمة بواسطة دالة IF

و اعطاء النتيجة فى خلية أخري

=IF(ISBLANK(F1);"";IF(+LEFT(F1;3)="FGK";"OK";"Rejected"))

و الثاني هو التاكد بالكود من قيمة الخلية و لتكن d1 مثلا بعد الادخال و رفضه اذا لم يحقق الشرط

Private Sub Worksheet_Change(ByVal Target As Range)
 If UCase(Left(Range("d1").Value, 3)) <> "FGK" Then
  MsgBox "Not Accepted Entry, should start with FGK"
  Range("d1").Value = "FGK"
  Exit Sub
 End If
End Sub

اما أكثر من ذلك فلا أعرف

validation.zip