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

كود تذييل الصفحة للاهمية ياعمالقة


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

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

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

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

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

اليكم المرفق

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

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

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

السلام علكيم

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

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

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

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

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

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

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

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

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

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

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

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

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

يتساوى هنا الكود و العمل اليدوى

لأنك لو عملت رأس و تذييل بأية طريقة

فلن يتم إزالتها ما لم تفعل ذلك

و مع ذلك نفذ الكود فى الصفحة الثالثة

تذيل الصفحه kemas-by code.rar

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

السلام عليكم

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

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

والكود جميل

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

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

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

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

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

السلام عليكم

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

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

والكود جميل

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

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

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

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

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

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

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

أهلا و سهلا

هذا طلبكم

الرأس و التذييل يأخذ قيمه من الشيت المسمى sourse

يمكن تغيير الرأس و التذييل من الخلية ثم تنفيذ الكود مرة أخرى

مع الشكر

تذيل الصفحه kemasfrom cells.rar

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

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

غير عبارات الرأس و التذييل من شيت رقم 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