التجكم في ادخال بيانات في خلية

[الجموعي]

السلام عليكم ورحمة الله تعالى وبركاته

في الخلية A1

اريد عند الكتابة بالأرقام أو الحروف في الخلية تكتب علامة x

الكود يهذا يعمل مع الأرقام فقط

وعند الكتابة بالحروف أقوم بإدراج هذا الكود

If Not IsNumeric(Target) Then

وأنا أريدهم معا

Private Sub Worksheet_Change(ByVal Target As Range)
  
   If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub

  If Target.Address = "$A$1" Then
      
   If IsNumeric(Target) Then
   
   On Error Resume Next
   
   Application.EnableEvents = False

   Target = "x"
   
   Application.EnableEvents = True
   
   On Error GoTo 0

   End If

  End If

  End Sub

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

[الصـقر]

اخى الجموعى جرب المرفق هل به طلبك

هو من كنوز المنتدى اللى بعتز بها

تقبل تحياتى

باركود مع التشفير واعادة فك التشفير.zip

[الجموعي]

اخى الجموعى جرب المرفق هل به طلبك

هو من كنوز المنتدى اللى بعتز بها

تقبل تحياتى

يا اخي جربت وضع اي رقم فلم تظهر علامة x

[الجموعي]

لتسهيل العملية 

المرفق

التحكم في ادخال بيانات في خلية.rar

[ibn_egypt]

أخى الجموعي

 

هل تريد مهما تكتب في الخلية تتحول قيمتها الى X ... ام تريد كما تفضل أخى حسام بتشفير ما يتم كتابته على شكل علامة X .. جرب المرفق هل هو طلبك ام لا

 

تحياتي  

التحكم في ادخال بيانات في خلية.rar

[الجموعي]

أخى الجموعي

 

هل تريد مهما تكتب في الخلية تتحول قيمتها الى X ... ام تريد كما تفضل أخى حسام بتشفير ما يتم كتابته على شكل علامة X .. جرب المرفق هل هو طلبك ام لا

 

تحياتي  

فعلا هو المطلوب

لو تكرمت استاذي تعديل بسيط

قمت بتحديد خلايا وأسميتها data

وقمت بتعديل على الكود بهذا الشكل

فتظهر رسالة الخطأ

If Target.Address = Range("DATA") Then

[ibn_egypt]

 

فعلا هو المطلوب

لو تكرمت استاذي تعديل بسيط

قمت بتحديد خلايا وأسميتها data

وقمت بتعديل على الكود بهذا الشكل

فتظهر رسالة الخطأ

If Target.Address = Range("DATA") Then

 

اخى الفاضل

 

تفضل الملف المرفق لعل به طلبك

 

تحياتي  

التحكم في ادخال بيانات في خلية.rar

[الجموعي]

 

 

فعلا هو المطلوب

لو تكرمت استاذي تعديل بسيط

قمت بتحديد خلايا وأسميتها data

وقمت بتعديل على الكود بهذا الشكل

فتظهر رسالة الخطأ

If Target.Address = Range("DATA") Then

 

اخى الفاضل

 

تفضل الملف المرفق لعل به طلبك

 

تحياتي  

 

بارك الله فيك وجعل ما تقدمه من مساعدات في ميزان حسناتك

ودي وتقديري