أيسم إبراهيم قام بنشر أبريل 2, 2009 مشاركة قام بنشر أبريل 2, 2009 السلام عليكم جميعا السادة الأعزاء ............... دمتم بكل خير لي استفسار وهو : هل يمكن ربط تذييل مخصص عند طباعة ورقة عمل بخلية في ورقة العمل مثال بلا من كتابة "" بيانات الموظف : أحمد محمد محمود "" نكتب بيانات الموظف : =Sheet 1!A1 هل هذا ممكن؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ جزاكم الله كل خير رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر أبريل 2, 2009 مشاركة قام بنشر أبريل 2, 2009 (معدل) السلام عليكم اخي aysam عذرا لم افهم السؤال جيدا و لكني ساجاوب بما تخيلته انك تريد ان يكون تذيل الصفحة خليه معينه ان كان ذلك فالكود هو With ActiveSheet.PageSetup .CenterFooter = ActiveSheet.Range("K2") End With ActiveSheet.PrintOut علي اساس ان الخلية K2 هي الخلية التي بها البيانات التي تريد تزيلها بالصفحة و ان كان ما تقصده شيئا اخر ارجو ارفاق ملف للمحاولة عليه ارجو ان اكون قد اصبت تحياتي تم تعديل أبريل 2, 2009 بواسطه aah_aah2008 رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر أبريل 3, 2009 مشاركة قام بنشر أبريل 3, 2009 (معدل) أخي الكريم كود مفيدة جداً جعل خلية مرجع كتزييل للصفحة ولكن ما أفعل لكي يكون الكود بدل تزييل للصفحة يكون رأس مخصص للصفحة وفي الوسط وكذلك أين يوضع الكود ؟؟ ارجو الافادة مع خالص الشكر والتقدير تم تعديل أبريل 3, 2009 بواسطه خالد القدس رابط هذا التعليق شارك More sharing options...
أيسم إبراهيم قام بنشر أبريل 3, 2009 الكاتب مشاركة قام بنشر أبريل 3, 2009 (معدل) السلام عليكم شكرا أستاذ عادل على الكود هو بالفعل ما أريد جزاك الله كل خير أما بالنسبة للأستاذ خالد أعتقد أن كود الرأس المخصص سيكون With ActiveSheet.PageSetup ("CenterHeader = ActiveSheet.Range("K2 End With ActiveSheet.PrintOut مش كده ولا إيه يا أستاذ عادل؟؟؟؟ دمتم بكل خير تم تعديل أبريل 3, 2009 بواسطه aysam رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر أبريل 3, 2009 مشاركة قام بنشر أبريل 3, 2009 السلام عليكم اخي Aysam أما بالنسبة للأستاذ خالدأعتقد أن كود الرأس المخصص سيكون إقتباس With ActiveSheet.PageSetup .CenterHeader = ActiveSheet.Range("K2") End With ActiveSheet.PrintOut تمام و تسلم ايدك خالص تحياتي رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر أبريل 4, 2009 مشاركة قام بنشر أبريل 4, 2009 أخوتي الأفاضل ألف شكر ولكن تبقى فقط أن نعرف أين نضع هذا الكود داخل صفحة محرر الفيجوال هام جدا بارك الله فيكم وجزاكم خيرا رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أبريل 4, 2009 مشاركة قام بنشر أبريل 4, 2009 السلام عليكم أخي خالد يوضع الكود كسائر الأكواد من داخل صفحة محرر الفيجوال كليك بالماوس علي الملف المراد ثم كليك يمين ثم Insert ثم Module وتبدا بكتابة Sub ثم أي إسم تختاره للماكرو بفرض sss ثم تفتح قوس وتغلقله سيتم تلقائيا كتابة End Sub في السطر التالي وتكون من الأول عملت copy من الماكرو أعلاه وبين السطرين تعمل past سيكون المنظر كالتالي Sub sss() With ActiveSheet.PageSetup .CenterFooter = ActiveSheet.Range("AL723") End With 'ActiveSheet.PrintOut End Sub ActiveSheet.PrintOut ملاحظة أنا رأيت أن من الأفضل إلغاء أو تعطيل سطر الطباعة سيظهر في صفحة محرر الفيجوال باللون الأخضر وتكون الطباعة بعد المعاينة والرضا عن الناتج رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أبريل 4, 2009 مشاركة قام بنشر أبريل 4, 2009 السلام عليكم طبعا بعد إذن أخي عادل ، جزاه الله خيرا أخي خالد ، لم أنتبه لسؤالك الأول ولكن ما أفعل لكي يكون الكود بدل تزييل للصفحة يكون رأس مخصص للصفحة وفي الوسط وكذلك أين يوضع الكود ؟؟ ارجو الافادة مع خالص الشكر والتقدير للإجابة عليه لاحظ السطر التالي في الكود .CenterFooter = ActiveSheet.Range("AL723") يمكنك تبديل المعرف CenterFooter بــ CenetrHeader ليكون في رأس الصفحة في الوسط يمكنك تبديل المعرف CenterFooter بــ LeftHeader ليكون في رأس الصفحة في اليسار يمكنك تبديل المعرف CenterFooter بــ RightHeader ليكون في رأس الصفحة في اليمين يمكنك تبديل المعرف CenterFooter بــ RightFooter ليكون في ذيل الصفحة في اليمين وهكذا رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أبريل 4, 2009 مشاركة قام بنشر أبريل 4, 2009 معذرة لقد غيرت بالخطأ عنوان الخلية K2 ( التي المفروض بها البيانات التي تريد تذيلها بالصفحة) إلي AL723 رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر أبريل 4, 2009 مشاركة قام بنشر أبريل 4, 2009 أخي الفاضل بعد السلام عليكم طبقت كل الخطوات السابقة في مسالة وضع الكود ولكن عند عمل معاينة قبل الطباعة لم يظهر ارجو المزيد من الشرح لمسالة مكان وضع الكود ولو أمكن ملف مرفق وجزاكم الله خيرا وبارك في علمكم وعملكم رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر أبريل 4, 2009 مشاركة قام بنشر أبريل 4, 2009 أخي الفاضل بعد السلام عليكم طبقت كل الخطوات السابقة في مسالة وضع الكود ولكن عند عمل معاينة قبل الطباعة لم يظهر ارجو المزيد من الشرح لمسالة مكان وضع الكود ولو أمكن ملف مرفق وجزاكم الله خيرا وبارك في علمكم وعملكم جهد مشكور لجميع الاخوة وبعد اذنهم لمعاينة الطباعة يتم اضافة الكود ادناه ActiveWindow.SelectedSheets.PrintPreview مع الشكر ابو خالد رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر أبريل 4, 2009 مشاركة قام بنشر أبريل 4, 2009 أخي الفاضل ابو خالد اضفت السطر للكود وايضا لم يظهر ياريت ارفاق ملف به الكود كامل المعذرة لقد اتعبتكم معي ،، ولكن هذا الكود سوف يفيدني كثيرا رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر أبريل 4, 2009 مشاركة قام بنشر أبريل 4, 2009 السلام عليكم تفضل المرفق مع الشكر ابو خالد __________.rar رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر أبريل 4, 2009 مشاركة قام بنشر أبريل 4, 2009 حقاً إنه عمل جميل سوف يريحني من كثرة الدخول لرأس الصفحة والتعديل فيه أخي أبو خالد والأخوة الأفاضل بارك الله فيكم وجزاكم الفردوس الأعلى من جنانه على هذه الدروس الاحترافية الرائعة أسال الله أن يجعلها في موازين حسناتكم جميعاً يوم لقائه ودمتم في رعاية المولى وحفظه رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر أبريل 6, 2009 مشاركة قام بنشر أبريل 6, 2009 السلام عليكم اخي الحبيب طارق السلام عليكمطبعا بعد إذن أخي عادل ، جزاه الله خيرا دون اذن اخي فالمجال مفتوح وزيادة الخير خيرين و بارك الله ايضا في الحبيب ابو خالد خالص تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.