التنقل داخل الخلايا المسموح الكتابة بها فقط من اليمين إلي اليسار عن طريق مفتاح Enter وهكذا

[Yasser Fathi Albanna]

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

السادة الأفاضل اساتذتى الاعزاء

إستفسار هل يوجد طريقة :

التنقل داخل الخلايا المسموح الكتابة بها فقط من اليمين إلي اليسار عن طريق مفتاح Enter وهكذا

اي انه يوجد داخل نموذج فاتورة ثلاثة خلايا فقط مسموح الكتابة فيها

الكود      الكمية     نسبة الخصم

من اليمين الي الشمال

هل يمكن التحرك داخلهم للكتابة فيهم من خلال مفتاح Enter من اليمن الي الشمال ليبدأ بخانة كتابة الكود وينتهي بخانة نسبة الخصم وعند إنتهاء السطر  يبدأ من جديد في السطر التالي بخانة الكود وهكذا

مع خالص الشكر والتقدير

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

حسب فهمي للمطلوب

طبعا بعد جعل جميع خلايا الشيت مؤمنة ومخفية locked & hidden

ما عدا الخلايا المسموح بالكتابة فيها (بحذف علامة الصح بجوار locked & hidden )

من التبويب الأخير لنافذة تنسيق الخلايا (protection حماية )

ثم اثناء حماية الشيت من تبويب مراجعة review

قم بإلغاء تحديد الخلايا المؤمنة (الملونة باللون الأصفر في الصورة التالية)

بالتوفيق

[Yasser Fathi Albanna]

أستاذى الفاضل الاستاذ / محمد صالح

المقصود كالتالي

كيف يمكن إجبار مفتاح Enter للتنقل بين الخلايا من اليمين إلي اليسار في خلايا محددة مثلا ثلاثة خلايا فقط من اليمين إلي اليسار

مثلا A2 ثم ينتقل E2 ثم إلي G2

وثم ينتقل تلقائي إلي A3 ثم E3 ثم G3

وهكذا

حيث أن الخلايا المذكورة هي المطلوب الكتابة بها فقط

مع خالص الشكر والتقدير

[Yasser Fathi Albanna]

للتوضيح أكثر 

أريد عند كتابة كود الصنف فى الخلية ( C14  ) وعند الضغط على Enter يقوم بالإنتقال مباشرة إلى الخلية (   F14   ) وعند الضغط على Enter يقوم بالإنتقال مباشرة إلى الخلية (  L14  ) وعند الضغط على Enter يقوم بالإنتقال مباشرة إلى الخلية (  C15  ) وهكذا حتى نهاية الفاتورة 

مع الشكر

Example.xlsm

[احمد عبدالحليم]

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

الملف المرفق محرر الاكواد مغلق بكلمة سر

جرب  الكود التالى 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim NextCell As Range
    Dim ActiveCell As Range
If Not Intersect(Target, Me.Range("C14:L35")) Is Nothing Then
        Set ActiveCell = Target
            
         Select Case ActiveCell.Column
          Case 3
             Set NextCell = ActiveCell.Offset(0, 3)
          Case 6
             Set NextCell = ActiveCell.Offset(0, 6)
          Case 12
             If ActiveCell.Row < 35 Then
               Set NextCell = Me.Cells(ActiveCell.Row + 1, 3)
             End If
          End Select

    If Not NextCell Is Nothing Then
        NextCell.Activate
    End If
End If
End Sub

فى حدث الورقة Change

[Yasser Fathi Albanna]

أخي الفاضل الاستاذ / أحمد عبد الحليم

في البداية انا سعيد جدا جدا لمرورك العطر الدائم علي موضوعاتي

وفقك الله لما يحبه ويرضاه

خالص شكري وتقديري لشخصكم الكريم 

جاري التجربة وإبلاغ حضرتك بالنتيجة

رمز الحماية هو ٢٥١٠١٩٨١

 

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

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

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

ملف -- خيارات -- متقدم

ثم تختار يمين كما بالصورة

Example.xlsm

[Yasser Fathi Albanna]

اخى العزيز احمد عبدالحليم

مرفق الملف مرة أخرى بدون حماية VBA

حاولت أجرب ولكن لم أنجح يرجى تطبيق الكود على الملف

مع الشكر

 

Example.xlsm

 

 

أستاذى ومعلمى الفاضل أ / محمد صالح

نفزت بالفعل الخطوات ولكنها تجبرنى التحرك إلى اليمين فقط دون تطبيق

أريد عند كتابة كود الصنف فى الخلية ( C14  ) وعند الضغط على Enter يقوم بالإنتقال مباشرة إلى الخلية (   F14   ) وعند الضغط على Enter يقوم بالإنتقال مباشرة إلى الخلية (  L14  ) وعند الضغط على Enter يقوم بالإنتقال مباشرة إلى الخلية (  C15  ) وهكذا حتى نهاية الفاتورة

لك منى كل التقدير والإحترام

أرجوا أن أكون أوضحت المطلوب

 

 

[احمد عبدالحليم]

تفضل اخى الفاضل ياسر

جرب الملف 

Example (1).xlsm

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

لا أدري ما المشكلة لديك في تنفيذ الخطوات

1. بعد تغيير خصائص جميع الخلايا إلى محمية
2. ثم تنسيق الخلايا المراد الكتابة فيها بغير محمية
3. ثم حماية الشيت بكلمة مرور
4. ثم ضبط خيارات الاكسل - متقدم 

الذي يحدث معي:

الكتابة في الخلية الأولى المسموح الكتابة فيها ثم بعد الضغط على انتر يتم الانتقال إلى ثاني خلية مسموحة حتى لو بينها وبين الأولى أي عدد من الأعمدة إلى نهاية الصف المسموح

وعند نهاية الصف ينزل إلى أول خلية مسموحة في الصف التالي

وهكذا

وأعتقد هذا هو المطلوب

إن كان فهمي صحيحا

[Yasser Fathi Albanna]

اخى الحبيب احمد عبدالحليم

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

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

 

أستاذى  ومعلمى القدير 

أ / محمد صالح

تم تنفيذ الخطوات بالفعل وتم تنفيذ المطلوب بالخطوات 

بدون أكواد 

ألف شكر لحضرتك وللأستاذ / أحمد عبد الحليم 

جعله الله فى ميزان حسناتكم