المساعدة في جعل الخلية تقبل بمحتوى واحد لا غير ولا تستقبل غيره؟

[زوبير عقاب]

مثلا عند كتابة الرقم 2 في الخلية A1 يظهر الرقم 2 و عند كتابة أي رقم آخر لا يظهر.

بارك الله في الجميع.

 

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

جرب الكود التالي في حدث ورقة العمل

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If Target.Value <> 2 Then
            Application.EnableEvents = False
                Target.ClearContents
            Application.EnableEvents = True
        End If
    End If
End Sub

 

[الطـاهر]

منذ ساعه, ياسر خليل أبو البراء said:

جرب الكود التالي في حدث ورقة العمل

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If Target.Value <> 2 Then
            Application.EnableEvents = False
                Target.ClearContents
            Application.EnableEvents = True
        End If
    End If
End Sub

 

رائع 

[زوبير عقاب]

بارك الله فيكم أخي ياسر.

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

الحمد لله أن تم المطلوب على خير

وجزيتم خيراً على دعائكم الطيب

[زوبير عقاب]

أرجو أن يرسل في ملف لأن العملية لم تنجح معي

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

ارفق الملف الذي تعمل عليه ..لربما يوجد خلايا مدمجة أو خلافه