كود عدم الكتابة بالخلية الا بشرط

[نهاية فوضوي]

 

السلام عليكم 

 

عندي ملف آكسل فيه عدة الخلايا ، أحتاج كود او معادلة تمنع الكتابة مثلاً في الخلية A11 الا بعد الكاتبة في الخلية A1  . يكون شرط اساسي عند الضغط على الخليه تظهر رسالة أرجو تعبة الاسم اولاً ( مثلاُ ) 

 

وشكراً مقدما للجميع . 

 

تم تعديل مايو 22, 2017 بواسطه نهاية فوضوي
..

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

ممكن تستعمل حدث عند تغيير تحديد الحلايا

للرجوع للخلية المطلوبة

جرب هذا الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [f8] = "" Then [f8].Select
End Sub

 

[نهاية فوضوي]

استاذ محمد 

 

ممكن تساعدني بوضع الكود في الملف المرفق ؟

 

جزاك الله عني خير الجزاء 

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

حدد الكود وانسخه CTRL+C

كلك يمين على الشيت cash ثم تختار view code

ثم تلصق الكود

......................

مع ملاحظة أن امتداد الملف الحالي لا يصلح لاحتواء أكواد

وبعدها يجب حفظ الملف بنوعية macro enabled workbook

[نهاية فوضوي]

الف شكر سيدي الفاضل تم ذلك 

[خالد الرشيدى]

السلام عليكم 

بعد اذن استاذنا القدير أ / محمد صالح

حل اخر بطريقة التنسيق الشرطي ( منع الادخال الا بتحقق شرط معين )

Book1.rar

[أستيكا]

خالص الشكر و الاعزاز للاستاذ الكبير / خالد الرشيدى على الحل بطريقة التنسيق الشرطى

 

تقبل تحياتى

[خالد الرشيدى]

أ / أستيكا 

شكراً جزيلاً اخي الكريم على هذا المرور الطيب  

كل عام وانتم بخير 

 

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

في 5/22/2017 at 19:43, خالد الرشيدى said:

السلام عليكم 

بعد اذن استاذنا القدير أ / محمد صالح

حل اخر بطريقة التنسيق الشرطي ( منع الادخال الا بتحقق شرط معين )

Book1.rar

بارك الله لك أستاذ خالد

تصحيح بسيط لمعلومة مذكورة في المنشور

بعد تحميل الملف تبين أنه تم عمل اللازم

من خلال Data validation أو باللغة العربية التحقق من صحة البيانات

وليس التنسيق الشرطي

حيث أن التنسيق الشرطي هو عبارة عن تغيير في تنسيقات الخلايا (لون الخط وحجم الخط ولون الخلفية وهكذا) بناء على شروط معينة

كتلوين الخلايا الأقل من 100 أو حسب أي شرط من الشروط

والله تعالى أعلى وأعلم

[خالد الرشيدى]

نعم أ / محمد - انت على حق  

أخطات في كتابة  المسمي - فقد تم الحل بال DATA VALIDATION    

جزاك الله خيراً 

كل عام وانتم بخير