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

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

قام بنشر

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

خبراء واساتذة الاكسل اريد خدمه بسيطه

وهو عمل كود لتذيل الصفحة من عنده الخبره

لايبخل علينا الله يعطيكم الف الف عافيه

اليكم المرفق

اخوكم المحب أبو نصار

http://www.4shared.com/file/mrOUh3mP/__online.html

قام بنشر

السلام علكيم

الاستاذ الفاضل كيماس حفظه الله

مشكور على التنويه اطلعت على الرابط ومزبوط فيه مشكله

اليك الرابط الجديد

http://www.2shared.com/file/nT2xD4ch/__online.html

شاكر لك سرعة الرد

قام بنشر

الاستاذ الفاضل كيماس

مشكور على تجاوبك معي

بالنسبه للملف ياريت

لو تكون بالاكواد يكون جمل الله حالك

والله يقدرنا على جمايلكم

والسلام عليكم

قام بنشر

السلام عليكم

الاستاذ القدير كيماس

مشكور على مجهودك العالي

والكود جميل

بس ياريت يقراء التذيل من خلايا معينه

بدلا من كتبابة التذيل في الكود

شاكر لك تعاونك اخي

والسلام عليكم

قام بنشر

السلام عليكم

الاستاذ القدير كيماس

مشكور على مجهودك العالي

والكود جميل

بس ياريت يقراء التذيل من خلايا معينه

بدلا من كتبابة التذيل في الكود

شاكر لك تعاونك اخي

والسلام عليكم

نضم صوتنا الى صوتك

زنطالب الغالى كيماس بتلبية طلبنا لانه مهم جدا لنا ونحتاجه بكثرة

قام بنشر (معدل)

و هذا طلبكم أيضا بطريقة أخرى

غير عبارات الرأس و التذييل من شيت رقم 2

كود

Sub PageStp()

With ActiveSheet.pagesetup

    .RightHeader = Sheets(2).Range("A1").Value

    .CenterHeader = Sheets(2).Range("A2").Value

    .LeftHeader = Sheets(2).Range("A3").Value

    .RightFooter = Sheets(2).Range("A4").Value & Date

    .LeftFooter = Sheets(2).Range("A5").Value

End With


End Sub

الرأس و التذييل يتغير من الخلية.rar

تم تعديل بواسطه kemas
قام بنشر (معدل)

هذا ما طلبتم بطريقة ثالثة مختلفة

باستخدام حدث " قبل الطباعة"

لاحظ أن الرأس و التذييل هنا لن تراه إلا عندما تطبع

و يوضع فى الوورك بوك فى حدث قبل الطباعة

Private Sub Workbook_BeforePrint(Cancel As Boolean)

With ActiveSheet.PageSetup

    .RightHeader = Sheets(2).Range("A1").Value

    .CenterHeader = Sheets(2).Range("A2").Value

    .LeftHeader = Sheets(2).Range("A3").Value

    .RightFooter = Sheets(2).Range("A4").Value & Date

    .LeftFooter = Sheets(2).Range("A5").Value

End With

End Sub

تنبيه : هذا الكود فى حدث " قبل الطباعة "

يهدف إلى حماية رأس و تذييل الصفحة من التغيير

فمهما تم تغيير رأس و تذييل الصفحة من قبل المستخدمين

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

وشكرا

رأس و تذييل من خلية - يظهر عند الطباعة فقط.rar

تم تعديل بواسطه kemas
قام بنشر

استاذى الحبيب

كيماس

بارك الله فيك

هذا ما كنا نبحث عنه من مده كبيره

بارك الله فيك

الرجاء كل الرجاء

وضع الموضوع فى مشاركة مستقله وذلك لاهميته الكبرى

عند الجميع وليسهل الوصول اليه والاستفادة منه

تقبل الله منا ومنك صالح الاعمالى

قام بنشر (معدل)

أهلا أستاذى أبا علاء

الحمد لله أن نلت ما كنت تبحث عنه

إن شاء الله أضع المشاركات بموضوع مستق

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

* تم إفراد المشاركات فى موضوع مستقل هنا

تم تعديل بواسطه kemas

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