طلب وضع شرط لعدم التسجيل فى خلية

[kader6000]

محتاج عمل معادلة او شرط يكون عند وضع مثلا فى A1 رقم 1 لا يمكننى كتابة اى شى فى B1 و لو كان الرقم 2 او 3 او اى رقم اخر يتم التسجيل بصورة طبيعية

شكرا على المساعدة مقدما

[سليم حاصبيا]

جرب هذا الماكرو

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OldVal
Application.EnableEvents = False
OldVal = [b1]
If (Target.Address = "$B$1" Or Target.Address = "$A$1") And [a1] = 1 Then
 [b1] = ""
 Else
 [b1] = OldVal
End If
  Application.EnableEvents = True
End Sub

 

[kader6000]

لو ممكن طريقة عمله او لو ممكن تعملى شيت اكسيل و يكون جاهز فيه لو تم وضع رقم 1 لا يمكن التسجيل فى الخانه المقابلة كما سبق ووضحت و لك جزيل الشكر

[سليم حاصبيا]

اليك هذا النموذج

 

No_writing in A1.rar

[أ / محمد صالح]

جزاك الله خيرا أستاذ سليم

ولكن أعتقد أن السؤال عكس الكود

فإذا كانتa1=1 لا يقبل التعديل علىb1 وتعود لقيمتها السابقة

وإذا كانت a1 أي قيمة أخرى لا يتم تنفيذ شيء أو يقبل التعديل علىb1

لذا أقترح تعديل الكود إلى

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 And [a1] = 1 Then Application.Undo
Application.EnableEvents = True
End Sub

الباقي على صاحب السؤال

 

تم تعديل مايو 8, 2017 بواسطه أ / محمد صالح
اقتراح صاحب السؤال تعديل الكود للعمود الثاني كله

[kader6000]

جميل جدا بس عاوز الكود يشتغل على كل عامود B مش خانة واحدة و هل ممكن تحويل رقم 1 الى كلمة او حرف ولا لازم ارقام

[سليم حاصبيا]

يمكن ذلك تفضل نموذج

الكود

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim My_word
My_word = [f2]
 Application.EnableEvents = False
If Not IsNumeric([f2]) Then
My_word = UCase([f2])
'=======================================
    If ((Not Intersect(Target, Range("b:b")) Is Nothing) Or Target.Address = "$A$1") And UCase([a1]) = My_word Then
        Range("b:b") = vbNullString
    End If
'===================================
 Else
 '=======================================

    If ((Not Intersect(Target, Range("b:b")) Is Nothing) Or Target.Address = "$A$1") And [a1] = My_word Then
      Range("b:b") = vbNullString
   End If

'===================================
End If
  Application.EnableEvents = True
End Sub

 

No_writing In BB.rar

[أ / محمد صالح]

2 ساعات مضت, kader6000 said:

جميل جدا بس عاوز الكود يشتغل على كل عامود B مش خانة واحدة و هل ممكن تحويل رقم 1 الى كلمة او حرف ولا لازم ارقام

جرب هذا المرفق على العمود b كله

وبأبسط كود ممكن

ملحوظة: الكود مذكور في المشاركة السابقة

 

No_writing in column b.rar

[kader6000]

19 ساعات مضت, سليم حاصبيا said:

اليك هذا النموذج

 

No_writing in A1.rar

اخى الكريم لو ممكن هذا النموذج مع تفعيل الكود على العامود B بالكامل لانى لم افلح فى تغير الكود واسف جدا على ازعاجك

[سليم حاصبيا]

انظر الى مشاركتي الاخيرة حول هذا الموضوع(قبل مشاركة الاخ محمد صالح)

هناك مرفق (بعنوان No_writing In BB.rar  يمكنك تنزيله)

[أ / محمد صالح]

يبدو أن الأخ صاحب السؤال لا يريد أن يصل لإجابة سؤاله بأبسط الأكواد

فهو لم يرد على منشورات مساعدتي له سواء بالقبول او الرفض

وهذا ليس من آداب الحوار

هدانا الله جميعا للصواب

تقبلوا وافر احترامي

[kader6000]

17 ساعات مضت, أ / محمد صالح said:

يبدو أن الأخ صاحب السؤال لا يريد أن يصل لإجابة سؤاله بأبسط الأكواد

فهو لم يرد على منشورات مساعدتي له سواء بالقبول او الرفض

وهذا ليس من آداب الحوار

هدانا الله جميعا للصواب

تقبلوا وافر احترامي

اخى لم اقصد الاساءة بالتاكيد الموضوع انى اعمل فى شركة طلب منى هذا الكود فاردت الاستعانه بالمنتدى الجميل لحله و لكن لم اصل الى النتيجة المطلوبة شكرا على محاولة المساعدة و اسف جدا اذا تم فهم عدم الرد بصورة خاطئة وبرجاء غلق الموضوع لانى لم اعد بحاجة له وشكرا مرة اخرى

[أ / محمد صالح]

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

وإذا لم يكن هذا هو المطلوب
يرجى شرح المطلوب بالتفصيل

وشعارنا هنا

المستحيل يوجد في عقول الكسالى