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

(تمت الإجابة) رأس وتذييل الصفحة لجميع صفحات المصنف


hassan_2012

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

شوف يا عم حسن

انت تفتح ملفك لو عندك عشرين شيت مثلا تعمل الاتي

* تضغط بالماوس على اول ورقه وبعدين تضغط على الشيفت ثم على اخر ورقة انت عاوزها يعني لو عاوز 12 اضغط على رقم 1 ثم شيفت والورقة رقم 12 هيتم تحديد الاوراق الـ 12 وتبقى عباره عن جروب وتتكتب كلمة جروب في اعلى الشاشه في شريط العنوان .

* اولا اي حاجه هتكتبها في اي ورقه هتتكتب في الـ 12 ورقه ، من قائمة ملف اتجه لإعداد الصفحة واعمل اللي انت عاوزه من رأس وتزييل .

* بع كده فك الجروب بالضغط على الشفت وأول ورقه ، هتختفي كلمة الجروب من شريط العنوان ويلغى التحديد لكافة الاوراق .

* جرب مشاهدة كل ورقه على حده .

... وادعيلي

أخوك حسن علي( ايوه حسن برضه )

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

  • 2 months later...
  • 2 weeks later...
  • 1 year later...

ويمكنك عملها بالكود كما يلي


Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim WS As Worksheet

For Each WS in Worksheets

    WS.PageSetup.LeftHeader = "أي حاجة"

Next WS

End Sub

طبعا يمكنك تحديد المكان الذي تريد الكتابة به كما تريد

leftheader

centerheader

rightheader

وكذلك

leftfooter

centerfooter

rightfooter

أتمنى أن يكون الكود مفيداً لإخوتي

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

بارك الله فيكم

إضافة بسيطة وهي بدلاً من الضغط على Shift يمكن الضغط على Ctrl وتحديد الأوراق المطلوب التعديل عليها بغض النظر عن موقعها

( بمعنى آخر أنه ليس بالضرورة أن تكون متتالية )

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

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