الزرقطوني قام بنشر نوفمبر 17, 2009 قام بنشر نوفمبر 17, 2009 السلام عليكم ارجو المساعدة في الملف المرفق ولكم جزيل الشكر. في الملف المرفق ورقتين واحدة مسمات " بيانات" وهي لوضع معطيات الفصول بشكل افقي والورقة الاخرى مسمات " وغياب" وهي التي ارغب في التعديل عليهاحيث: 1 اريد ان يضاف اليها زرين احدهما لطباعة ورقة واحدة والاخر لطباعة الكل 2 اضافة قائمة منسدلة تمكنني من هذا. ملاحظة: في هذه الورقة استعملت المعادلة RECHERCHV في الخانة BH1 اضع رقما من الارقام التسلسلية بورقة "بيانات " فتمتلئ هذه الورقة بالمعطيات اللازمة. جزاكم الله خيرا. ورقة الغياب.rar
احمدزمان قام بنشر نوفمبر 19, 2009 قام بنشر نوفمبر 19, 2009 السلام عليكم و رحمةالله وبركاته جرب المرفق ورقة_الغياب.rar
الزرقطوني قام بنشر نوفمبر 19, 2009 الكاتب قام بنشر نوفمبر 19, 2009 (معدل) السلام عليكم شكرا جزيلا اخي احمد يعقوب على الاستجابة عندما اضغط على زر " طبع الورقة الحالية" تمر الامور كما اريد لكن عندما اضغط على زر" طبع كل اوراق الفصول" تمر الامور كما لا ارغب حيث تطبع 16 ورقة سواء كان عدد الفصول اقل او اكثر من 16 فامر الزر هذا مبرمج على العدد 16 ارجو التعديل من فضلك. جزاك الله خيرا تم تعديل نوفمبر 19, 2009 بواسطه ezzarqtouni
الزرقطوني قام بنشر نوفمبر 20, 2009 الكاتب قام بنشر نوفمبر 20, 2009 السلام عليكم شكرا جزيلا اخي احمد يعقوب على الاستجابة عندما اضغط على زر " طبع الورقة الحالية" تمر الامور كما اريد لكن عندما اضغط على زر" طبع كل اوراق الفصول" تمر الامور كما لا ارغب حيث تطبع 16 ورقة سواء كان عدد الفصول اقل او اكثر من 16 فامر الزر هذا مبرمج على العدد 16 ارجو التعديل من فضلك. جزاك الله خيرا اخي يعقوب ما زلت في الانتظار
احمدزمان قام بنشر نوفمبر 20, 2009 قام بنشر نوفمبر 20, 2009 السلام عليكم و رحمةالله وبركاته جرب المرفق
الزرقطوني قام بنشر نوفمبر 21, 2009 الكاتب قام بنشر نوفمبر 21, 2009 السلام عليكم اخي يعقوب لا زال الامر دون حل بالنسبة لطباعة الكل حينما اضغط على الزر اطلع لي رسالة تفيد ان الماكرو به خطأ والخطأ كما تفيد الرسالة : next p يقع على next جزاك الله خيرا
الزرقطوني قام بنشر نوفمبر 21, 2009 الكاتب قام بنشر نوفمبر 21, 2009 السلام عليكم اخي يعقوب لا زال الامر دون حل بالنسبة لطباعة الكل حينما اضغط على الزر اطلع لي رسالة تفيد ان الماكرو به خطأ والخطأ كما تفيد الرسالة : next p يقع على next جزاك الله خيرا
الزرقطوني قام بنشر نوفمبر 21, 2009 الكاتب قام بنشر نوفمبر 21, 2009 السلام عليكم اخي يعقوب لا زال الامر دون حل بالنسبة لطباعة الكل حينما اضغط على الزر اطلع لي رسالة تفيد ان الماكرو به خطأ والخطأ كما تفيد الرسالة : next p يقع على next جزاك الله خيرا اخي يعقوب انا انتظر الحل
احمدزمان قام بنشر نوفمبر 21, 2009 قام بنشر نوفمبر 21, 2009 (معدل) السلام عليكم و رحمة الله وبركاته تعديل الكود Sub MACRO2() For P = 1 To 16 Cells(1, 60) = P If Cells(5, 3).Value <> 0 Then ActiveWindow.SelectedSheets.PrintOut Next End Sub تم تعديل نوفمبر 21, 2009 بواسطه احمد يعقوب عنوان_الكود
الزرقطوني قام بنشر نوفمبر 21, 2009 الكاتب قام بنشر نوفمبر 21, 2009 السلام عليكم و رحمة الله وبركاته تعديل الكود Sub ãÇßÑæ2() For P = 1 To 16 Cells(1, 60) = P If Cells(5, 3).Value <> 0 Then ActiveWindow.SelectedSheets.PrintOut Next End Sub السلام عليكم اخي يعقوب الامر لم ينجح لما وضعت الكود تلون السطر الاول بالاحمر وحينمااضغط على الزر لا يقع اي شيء
الزرقطوني قام بنشر نوفمبر 22, 2009 الكاتب قام بنشر نوفمبر 22, 2009 طبعا اكيد راجع المود السابق مرة اخرى عذرا اخي لو سمحت انا مبتدئ والامر ذا صعب علي ما فهمت شيئا جزاك الله خيرا وكل عام وانتم بالف خير
الزرقطوني قام بنشر نوفمبر 22, 2009 الكاتب قام بنشر نوفمبر 22, 2009 طبعا اكيد راجع المود السابق مرة اخرى عذرا اخي لو سمحت انا مبتدئ والامر ذا صعب علي ما فهمت شيئا جزاك الله خيرا وكل عام وانتم بالف خير من فضلك اخي لو ممكن تتفضل تشرح لي الكود جزاك الله خيرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.