اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

اريد زر امر بجانب اسم الاستاذ


الردود الموصى بها

تحياتي للجميع والله اشتقنا الى الاساتذة العباقرة لدي معضلة اتمنى حلها فانا اقوم بتصميم شيت لادارة المدرسة وفي شيت الاساتذة عرضت بعض من الاساتذة واريد زر امر بجانب كل استاذ يظهر لي ساعاته كما في الشيت التي سميتها الشكل النهائي فعند الضعط على اسم الاستاذ احمد ادريس على سبيل المثال تظهر ساعاته بحسب ايام الاسبوع اتمنى منكم مساعدتي وانتم اهلاً لذلك تحياتي

school.rar

رابط هذا التعليق
شارك

هل وضعت هذا الكود فقط :

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

If Intersect(Target, [A2:A9]) Is Nothing Then Exit Sub

Sheet7.[F5] = Target.Value

End Sub

السطر الاول فهمته وهو يعني بحال كان الخلايا من A2:A9 فارغة فلا تفعل شيء لكن السطر الثاني محتاج الى شرح لو تكرمت وكنت بحاجة الى زر امر ليتثنى لي تسليم كل استاذ برنامجه الاسبوعي اما الان فيظهر لي جميع الاساتذة الموجودين وساعات الاستاذ المحدد بالاشارة الصفراء فما العمل

رابط هذا التعليق
شارك

السلام عليكم

أخي العزيز

أولا تفضل المرفق مضاف به زر لطباعة الجدول

ثانيا الشرح يعتمد علي عدة خطوات

أولا : الكود يحدد إن كان الماوس يشير إلي خلية غير

أي من الخلايا الصفراء التي بها أسماء الأساتذة وفي هذه الحالة فلا يفعل شيئا

أما إن كان يشير إلي أي منها فسيجعل الخلية F5 في الشيت السابع (الذي اسمه : الشكل الذي اريده عند الضغط)

الخلية التي تحمل إسم الأستاذ ، سيجعلها تساوي قيمة نفس الخلية التي تقف عليها بالماوس أي تساوي إسم الأستاذ المراد جدوله

ثانيا: الشيت السابع نفسه (الذي اسمه : الشكل الذي اريده عند الضغط)

تم عمل مجموعة من المعادلات به تجعل جدول الأستاذ يأتي أوتماتيكيا لهذا الشيت ، يمكنك مراجعتها والسؤال فيما تشاء

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

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

وهكذا باختصار

كلما أشرت بالماوس علي إحدي الخلايا تحمل إسم الأستاذة تتغير تلقائيا قيمة الخلية F5 في الشيت السابع لتحمل إسم الأستاذ المراد

فيتغير تلقائيا محتويات الجدول بالشيت السابع ومن ثم يتغير شكل الصورة التي تنقل الجدول منه

أرجو أن أكون وفقت بالشرح

تفضل المرفق

school3.rar

رابط هذا التعليق
شارك

السلام عليكم

بارك الله فيك اخي الحبيب طارق

فكرة ولا اروع

جزاك الله خيرا

تقبل تحياتي وشكري

أخي الحبيب وأستاذي الجليل / عبدالله باقشير

مرورك وتعليقك شرف عظيم فمابالك بأن يعجبك عملي

والله إنها لمكافأة كبيرة

جزاكم الله خيرا وبارك الله فيك وفي وقتك وأعمالك

رابط هذا التعليق
شارك

مشكور اخي الكريم طارق على اسهابك الجميل في الشرح لدي تعقيبين فقط:انا لا اريد زر للطباعة لانه في هذه الحالة يظهر لي اسماء جميع الاساتذة بمن فيهم الاسم المحدد بواسطة الماوس اريد فقط الاسم المحدد فحبذاً لو يظهر بورقة اخرى منفصلة فهذا برنامج الاستاذ الاسبوعي فليس مرغوب عند طباعته ان يشمل باقي اسماء الاساتذة.

2- اريد الاستفسار عن هذا الكود الذي تفضلت به:

=IF(ISERROR(L9),"",OFFSET(INDIRECT($A9&"!"&L$6),L9-2,0))

رابط هذا التعليق
شارك

عمل اكثر من رائع استاذ طارق

و لتعميم الفائده عندي سؤال بعد اذن الأستاذ علي رعد:

و هو كيفية اظهار اسماء باقي الأساتذه و الأيام مثلا يوم (الجمه)

و هل يؤثر في عمل الكود ترتيب اسماء الأيام (اسماء الشيتات)؟

رابط هذا التعليق
شارك

مشكور اخي الكريم طارق على اسهابك الجميل في الشرح لدي تعقيبين فقط:انا لا اريد زر للطباعة لانه في هذه الحالة يظهر لي اسماء جميع الاساتذة بمن فيهم الاسم المحدد بواسطة الماوس اريد فقط الاسم المحدد فحبذاً لو يظهر بورقة اخرى منفصلة فهذا برنامج الاستاذ الاسبوعي فليس مرغوب عند طباعته ان يشمل باقي اسماء الاساتذة.

2- اريد الاستفسار عن هذا الكود الذي تفضلت به:

=IF(ISERROR(L9),"",OFFSET(INDIRECT($A9&"!"&L$6),L9-2,0))

أخي الكريم

أولا الطباعة محددة المساحة فقط بمساحة الصورة ، فلن تطبع إلا الأستاذ المقصود - جرب

ثانيا المعادلة

[b]=[/b][b]IF(ISERROR(L9),"",OFFSET(INDIRECT($A9&"!"&L$6),L9-2,0))[/b]
أحب أن أشرحها بإسهاب أيضا

إذا أعدنا صياغة المعادلة كالتالي

=IF(X,"",Y)

حيث

X = ISERROR(L9)

و

Y=OFFSET(Z,L9-2,0)

حيث

Z=INDIRECT($A9&"!"&L$6)

فيكون معني المعادلة أساسا إذا تحقق الشرط (X) فضع "" أي فارغ وإلا ضع Y

حيث الشرط (X) أن يكون هناك خطأ بالخلية L9 أي (لايكون الأستاذ موجودا في هذه الحصة بذلك اليوم)

ولنشرح المعامل Z قبل الـ Y

المعامل Z يساوي مافي العنوان المحدد بمحتوي الخلية A9 مضافا إليه (!) مع مافي الخلية L6

أي أنه =الاثنين!F1 يعني يكافيء كتابة عنوان الخلية F1 بالورقة الاثنين

المعامل Y يساوي مافي العنوان المحدد بإزاحة عن الخلية Z مقدارها (L9-2) صف ، 0 أعمدة

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

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

رابط هذا التعليق
شارك

كلمة مبدع اخينا الكريم الاستاذ طارق قد لا تعطيك حقك بالفعل استفدت منك الكثير وقل ربي زدني علماً شكراً على رحابة صدرك واستجابتك لطلبي ولاستفساراتي فانا لا زلت ابحث على تطوير نفسي من وراء خبراتكم التي تفوقني بسنوات ضوئية وبالنهاية لك مني اجمل التحيات دمتم في امان الله والسلام عليكم

رابط هذا التعليق
شارك

السلام عليكم

أخي الكريم

الحمد لله أن تم الأمر كما تريد

وانك قد فهمت الحيلة في الملف

ولك جزيل الشكر علي كلماتك الطيبة

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

رابط هذا التعليق
شارك

عمل اكثر من رائع استاذ طارق

و لتعميم الفائده عندي سؤال بعد اذن الأستاذ علي رعد:

و هو كيفية اظهار اسماء باقي الأساتذه و الأيام مثلا يوم (الجمه)

و هل يؤثر في عمل الكود ترتيب اسماء الأيام (اسماء الشيتات)؟

رابط هذا التعليق
شارك

ولتعميم الفائده عندي سؤال بعد اذن الأستاذ علي رعد:

وهو كيفية اظهار اسماء باقي الأساتذه و الأيام مثلا يوم (الجمعه)

وهل يؤثر في عمل الكود ترتيب اسماء الأيام (اسماء الشيتات)؟

السلام عليكم

أخي أحمد ، حفظك الله

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

السؤال جيد وبه شقين،

الشق الأول

وضعت له شيت بآخر الملف يحتوي علي كافة أسماء الأساتذة (77 إسم)

وكذلك أضفت بالخلية A11 محدد بيانات لينتقي المستخدم إسم الأستاذ من هذا الشيت الأخير

وأضفت كود ليتحسس التغير بهذه الخلية (A11) ليكون له نفس تأثي الكود الآخر

وبالنسبة للأيام مثل الجمعة أو الأحد: إذا لم يكن الملف به شيت يحمل نفس الإسم فسيتكون خطأ بمعادلات الخلايا المساعدة بالشيت السابع التي تبدأ بـ L9

ولن يؤثر علي الناتج - راجع شرح هذه الجزئية بالمشاركة #7

الشق الثاني

هل يؤثر في عمل الكود ترتيب اسماء الأيام

لا لايؤثر ذلك لأنها مرتبطة بالمعادلات التي تعتمد علي محتوي لخلية بالعمود A بالشيت السابع

تفضل المرفق

school4.rar

رابط هذا التعليق
شارك

ماشاء الله تبارك الله ماهذا الابداع يا استاذ طارق محمود ، ندعوا الله ان يزيدك من علمه وفضله ، ارجوا ان تسدي لنا بعض النصائح لنصل لجزء بسيط من ما وصلت اليه من العلم والمعرفه .

وشكراً ،،،،

رابط هذا التعليق
شارك

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

الاستاذ طارق حفظك الله ورعاك اعمالك رائعة ومتقنه نسال الله سبحانه وتعالى ان يديم نعمه عليك ويبارك في رزقك

ودمتم برعاية الله وحفظه

رابط هذا التعليق
شارك

أخي / محمود رواس

أخي / عباس السماوي

شكرا لكما للمرور العطر والكلمات الطيبة

والدعاء ولكما مثله وأكثر بإذن الله

أخي / محمود

النصيحة الأهم الصبر والمثابة وإن شاء الله تصل لأكثر مما تتمني

ونصيحة أخري : قراءة المواضيع التي

يسأل صاحبها عن مسألة أو مشكلة مرت عليك أو قريبة من مجال عملك

أي تكون ملم بتفاصيل الموضوع ، وتدرس جيدا كل الحلول التي طرحها المشاركين

وأن تسأل ماتشاء في أي وقت

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information