الى خبراء الاكسل بمنتدى اوفيسنا ارجو عمل ما فى الملف المرفق

[علاء خفاجة]

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

قم بعمل استدعاء لاسم الإجراء الفرعي في حدث ورقة العمل

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Call ShowCalendar 'حيث هذا هو اسم الإجراء الفرعي
End Sub

 

[علاء خفاجة]

اشكرك استاذنا ياسر خليل ابو البراء بارك الله فيك

قمت بعمل الكود ولكن عند الضغط على اى خليه تظهر الcalender اريد ان تظهر فى الخلية التى اختارها وليس كل الخلايا

تم تعديل سبتمبر 24, 2016 بواسطه علاء خفاجة

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

ممكن بسطر من الكود تحدد نطاق محددمن الخلايا ..قم بإلقاء مزيد من الضوء على الخلايا المراد العمل عليها بمساعدتك في الأمر

أو يمكنك استخدام جملة الشرط

If Target.Address="$A$1" then

ودا مجرد مثال لخلية واحدة ..بمعنى لو تم اختيار الخلية A1 سيتم تفعيل الكود

ولا تنسى أن تضع جملة النهاية للشرط End If

[علاء خفاجة]

نفس المشكلة استاذ ياسر خليل أبو البراء ومرفق الملف 

calender1.rar

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

ما هي الخلايا أو النطاق المراد العمل عليه .؟؟ لم تجبني على سؤالي

عموماً يمكنك التعامل بهذا الشكل

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 And Target.Row > 5 Then
        Call ShowCaledar
    End If
End Sub

الشرط هنا العمود الأول .. أي العمود A وليس العمود بالكامل إنما بداية من الصف رقم 6 أي من A6:A نهاية صفوف ورقة العمل

أرجو أن تكون قد اتضحت الصورة

 

[علاء خفاجة]

الف شكر استاذنا ياسر الخليل أبو البراء تمام انشاء الكود بنجاح

تحياتى بارك الله فيك

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

الحمد لله الذي بنعمته تتم الصالحات ، والحمد لله أن تم المطلوب على خير أخي علاء

يرجى عند طرج الموضوعات أن يكون هناك ملف مرفق في أول الموضوع ولا يكون الاعتماد على صورة فقط .. أن يتم توضيح المطلوب بشيء من التفصيل

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