طلب مساعدة تفعيل كود بدون تدخل يدوي

[ربيع الأول]

إخوتي الكرام

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

لدي طلب مساعدة وكلي أمل أن أجد الحل لدى هذا المنتدى الأكثر من رائع..

الملف المرفق به كود يقوم بتجميع القيم المدخلة في الخلية (A10) مهما تعددت وتغيرت، في خلية واحدة هي (A11)..

المشكلة أن الخلية (A10) عبارة عن صيغة، ولا يستجيب الكود للقيمة المدخلة فيها إلا بالضغط عليها ثم (ENTER).

هل هناك طريقة ليعمل الكود تلقائيا بمجرد تغير القيمة في (A10)، بدون تدخل يدوي؟

ولكم شكري الجزيل 

تفعيل الكود بدون تدخل يدوي.rar

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

الكود الصحيح لهذه العملية

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "$A$10" And IsNumeric(Value) Then
    Application.EnableEvents = False
    Range("A11").Value = Range("A11") + Target.Value
    Application.EnableEvents = True
End If

End Sub

 

تم تعديل يوليو 10, 2016 بواسطه سليم حاصبيا

[ربيع الأول]

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

لكني أريد أن تحدث الخلية (A11) تلقائيا كلما تغيرت القيمة في (A10) من دون الحاجة لـ (ENTER).

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

ربما هذا الكود (أوقف الأول عن العمل و ذلك بوضع فاصلة عليا في بدايته)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$10" And IsNumeric(Value) And Target.Count = 1 Then
  Old_Val = Target.Value
  Cells(11, 1).Value = Cells(11, 1).Value + Old_Val
  End If
End Sub

 

[ربيع الأول]

أصبحت الخلية (A11) تحدث إذا مررت عليها بمؤشر الأسهم في لوحة المفاتيح.

أريدها أن تحدث بمجرد تغير القيمة في (A10). وأشكر لك أخي سليم جهدك وصبرك

 

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

2 دقائق مضت, ربيع الأول said:

أصبحت الخلية (A11) تحدث إذا مررت عليها بمؤشر الأسهم في لوحة المفاتيح.

أريدها أن تحدث بمجرد تغير القيمة في (A10). وأشكر لك أخي سليم جهدك وصبرك

 

مجرد المرور عليها بالمؤشر فانت تحدد الخلية (كأنك ضغطت عليها بالماوس)

[ربيع الأول]

صحيح.. لكني لا أريد ربط التحديث في الخلية (A11) بمرور المؤشر تفاديا لوقوع خطأ غير مقصود.

أريد ربط التحديث بتغير القيمة في (A10).

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

أخي الكريم ربيع الأول

أعتقد أن الكود الأول الذي قدمه أخي سليم يفي بالغرض وهذا ما أفهمه من كلامك

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "$A$10" And IsNumeric(Value) Then
    Application.EnableEvents = False
    Range("A11").Value = Range("A11") + Target.Value
    Application.EnableEvents = True
End If

End Sub

إذ أنه يحدث تغيير في الخلية A11 بمجرد إدخال قيمة في الخلية A10 ..

قم بإدراج الكود وأدخل قيمة في الخلية A10 ثم اضغط إنتر لتفعيل الحدث ..

ولا يمكن تنفيذ الحدث أثناء كتابة القيمة ، بل لابد من إنتر بعد الإدخال

 

[ربيع الأول]

هذا ما أفتش عن حل له، وهو : هل يمكن تنفيذ الحدث تلقائيا بدون إنتر؟

لاحظ أن الخلية A10 عبارة عن صيغة.

وشكرا لكم أساتذتي الكرام

 

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

إذاً لابد أن يكون الحدث مرتبط بالتغير في الخلايا المرتبطة بهذه الصيغة لكي يتم التنفيذ والتفعيل للكود

[ربيع الأول]

جزاك الله خيرا أخي أبا البراء

ولكن للأسف في الملف الذي أعمل عليه (وهو عبارة عن تقرير يومي) لا أعتقد أنه يمكنني تطبيق هذا الحل.

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

أرجو أن يكون مقصدي واضحا، وشكر الله جهودكم وصبركم 

[ربيع الأول]

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

شكر الله لكم أخوي الكريمين ياسر وسليم، وجزاكم الله خيرا وجميع أعضاء المنتدى الكرام على خدماتكم الجليلة..

لدي سؤال إن أذنتم لأخيكم:

هناك إحدى ورقات العمل تتطلب أكثر من 400 كود مكررة على خلايا متعددة، ولاحظت أن البرنامج يعطيني رسالة مفادها أن الكود طويل، هل لها من حل؟

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

أفضل أن تقوم بطرح موضوع جديد لمشكلة الملف الذي يحوي 400 كود مع إرفاق ملف ، وتوضيح رسالة الخطأ التي تظهر لك

تقبل تحياتي

[ربيع الأول]

جمعك الله ووالديك في الجنة وجميع الإخوة الكرام 

شكرا لاهتمامكم