By جو سميث يوم الاثنين 06 فبراير 2023
نشر في Excel
الردود 0
الإعجابات 0
المشاهدات 1.9K
الأصوات 0
يوم سعيد.

لقد صادفت رمز VBA الذي يعمل جيدًا لتشغيل ماكرو في Excel عند النقر فوق خلية معينة. انظر أدناه:


الخيار صريح

تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
إذا كان Selection.Count = 1 ثم
إذا لم يتقاطع (الهدف ، النطاق ("D4")) لا شيء إذن
اتصل بـ MyMacro
إنهاء حالة
إنهاء حالة
نهاية الفرعية


أحاول إضافة 3 سيناريوهات أخرى إلى نفس الكود ، لكن ليس لدي أي خبرة في الترميز ، لذلك لم يصلني استكشاف الأخطاء وإصلاحها إلى أي مكان. يُرجى الاطلاع أدناه على المثال الذي أحاول القيام به ، وتصحيح الكود إن أمكن:


الخيار صريح

تغيير ورقة العمل الفرعية الخاصة (الهدف حسب القيمة كنطاق)
إذا كان Selection.Count = 1 ثم
إذا لم يتقاطع (الهدف ، النطاق ("D4")) لا شيء إذن
اتصل بـ MyMacro1
إنهاء حالة
إنهاء حالة
إذا كان Selection.Count = 1 ثم
إذا لم يتقاطع (الهدف ، النطاق ("E10")) لا شيء إذن
اتصل بـ MyMacro2
إنهاء حالة
إنهاء حالة
إذا كان Selection.Count = 1 ثم
إذا لم يتقاطع (الهدف ، النطاق ("G23")) فلا شيء إذن
اتصل بـ MyMacro3
إنهاء حالة
إنهاء حالة
إذا كان Selection.Count = 1 ثم
إذا لم يتقاطع (الهدف ، النطاق ("J33")) فلا شيء إذن
اتصل بـ MyMacro4
إنهاء حالة
إنهاء حالة
نهاية الفرعية



كنت أتوقع تشغيل وحدات الماكرو المختلفة التي قمت بإنشائها (والتي تعمل بشكل جيد) تلقائيًا عند النقر فوق الخلايا المذكورة في الكود


سيكون موضع تقدير كبير أي مساعدة!
عرض مشاركة كاملة