ياسر خليل أبو البراء قام بنشر سبتمبر 24, 2016 قام بنشر سبتمبر 24, 2016 قم بعمل استدعاء لاسم الإجراء الفرعي في حدث ورقة العمل Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call ShowCalendar 'حيث هذا هو اسم الإجراء الفرعي End Sub 1
علاء خفاجة قام بنشر سبتمبر 24, 2016 الكاتب قام بنشر سبتمبر 24, 2016 (معدل) اشكرك استاذنا ياسر خليل ابو البراء بارك الله فيك قمت بعمل الكود ولكن عند الضغط على اى خليه تظهر الcalender اريد ان تظهر فى الخلية التى اختارها وليس كل الخلايا تم تعديل سبتمبر 24, 2016 بواسطه علاء خفاجة
ياسر خليل أبو البراء قام بنشر سبتمبر 24, 2016 قام بنشر سبتمبر 24, 2016 ممكن بسطر من الكود تحدد نطاق محددمن الخلايا ..قم بإلقاء مزيد من الضوء على الخلايا المراد العمل عليها بمساعدتك في الأمر أو يمكنك استخدام جملة الشرط If Target.Address="$A$1" then ودا مجرد مثال لخلية واحدة ..بمعنى لو تم اختيار الخلية A1 سيتم تفعيل الكود ولا تنسى أن تضع جملة النهاية للشرط End If
علاء خفاجة قام بنشر سبتمبر 24, 2016 الكاتب قام بنشر سبتمبر 24, 2016 نفس المشكلة استاذ ياسر خليل أبو البراء ومرفق الملف calender1.rar
ياسر خليل أبو البراء قام بنشر سبتمبر 24, 2016 قام بنشر سبتمبر 24, 2016 ما هي الخلايا أو النطاق المراد العمل عليه .؟؟ لم تجبني على سؤالي عموماً يمكنك التعامل بهذا الشكل 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 نهاية صفوف ورقة العمل أرجو أن تكون قد اتضحت الصورة
علاء خفاجة قام بنشر سبتمبر 24, 2016 الكاتب قام بنشر سبتمبر 24, 2016 الف شكر استاذنا ياسر الخليل أبو البراء تمام انشاء الكود بنجاح تحياتى بارك الله فيك 1
ياسر خليل أبو البراء قام بنشر سبتمبر 24, 2016 قام بنشر سبتمبر 24, 2016 الحمد لله الذي بنعمته تتم الصالحات ، والحمد لله أن تم المطلوب على خير أخي علاء يرجى عند طرج الموضوعات أن يكون هناك ملف مرفق في أول الموضوع ولا يكون الاعتماد على صورة فقط .. أن يتم توضيح المطلوب بشيء من التفصيل تقبل وافر تقديري واحترامي 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.