كود يمنع قبول التيسكت بوكس لبيانات

[إبراهيم ابوليله]

الاخوه الكرام

اريد كود يمنع كتابة اى شئ

فى التيكست بوكس

فيما عدا البيانات الموجوده فى النطاق من A1:A20

[الـعيدروس]

السلام عليكم

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If WorksheetFunction.CountIf([A1:A20], TextBox1) = 0 Then TextBox1 = "": Exit Sub

End Sub

[ياسر خليل أبو البراء]

ممكن ملف مرفق أخي الحبيب عباد

[أبو حنــــين]

بعد اذن أخي عباد

هذا مثال على الكود الذي طرحه أخي عباد

مثال.rar

[الـعيدروس]

السلام عليكم

تفضل اخي ياسر

A_Cun.rar

[إبراهيم ابوليله]

الاخ ابوحنين

الاخ عباد

بارك الله فيكم

وكنى اريد عند الكتابه فى التيكست بوكس لارقام غير موجوده فى النطاق

تظهر الرساله

ثم لا يتم الخروج من التيكست وتظل هى النشطه

[الـعيدروس]

السلام عليكم

تفضل

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If WorksheetFunction.CountIf([A1:A20], TextBox1) = 0 Then

	    MsgBox "القيمة المدخلة غير موجودة في النطاق", vbExclamation, "تنبية !"

	    TextBox1.SelStart = 0

	    TextBox1.SelLength = Len(TextBox1.Text)

	    TextBox1 = ""

	    Cancel = True

    Else

    Exit Sub

End If

End Sub

تم تعديل ديسمبر 19, 2012 بواسطه عباد

[إبراهيم ابوليله]

الاخ عباد

كود رائع

وهذا ما كنت اريده بالفعل

بارك الله فيك

تم تعديل ديسمبر 19, 2012 بواسطه إبراهيم ابوليله