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

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

قام بنشر

أحتاج طريقة لعمل رأس وتذييل الصفحة في كل الملف مرة واحدة وليس لورقة واحدة فقط داخل ملف الاكسيل

قام بنشر

شوف يا عم حسن

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

* تضغط بالماوس على اول ورقه وبعدين تضغط على الشيفت ثم على اخر ورقة انت عاوزها يعني لو عاوز 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