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

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

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

أخوانى الأعزاء السلام عليكم جميعا اريد بعد تثبيت صفوف معينة ليت طبعها فى كل الصفحات المطلوبة عمل تحديد لعدد الصفوف لمطلوب أختيارها وطبعها بمعنى انا عندى 1520 طالب وبعمل لهم كشوف رصد خارجية فحدد صوف العنوان المطلوب طبعتها فى كل الصفح وعاوز بعد كده أخلى كل صفحة تحتوى على 12 أسم فهل هناك طريقة غير ان أحدد الصفحات دى كلها يدوى وخلى الفاصل بعد كل 12 اسم أفيدونى وجزاكم الله خيرا مع العلم أنا شغال على أكسل 2003

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

بمعرفتي البسيطة اعمل من عرض تعيين فواصل الصفحات ثم عند الطباعة يتم تحديد الصفحات المراد طباعتها فقط

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

أخى العزيز انا أريد أن اعرف ماأعمله لكى أجعل فى كل صفحة 12 اسم فقط بطريقة غير تحديد الفواصل يدوياً شكراً لردك الغالى

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

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

أخي الكريم، يمكن استعمال الكود التالي:

 

Sub PageBreak()

Dim N As Long

Dim J As Integer

With Sheets("Feuil1")

    .Activate

	    N = .Range("A65536").End(xlUp).Row

    .ResetAllPageBreaks

    .PageSetup.PrintArea = "A1:K" & N

	    For J = 1 To N / 11

		    .HPageBreaks.Add Before:=Rows(12 * J + 3)

	    Next J

End With

End Sub

ملاحظة: العبارة 3 + في الكود تمثل "عدد الصفوف المكررة أعلى كل صفحة + 1"... إذا كان مثلا عدد الصفوف المكررة أعلى كل صفحة هو 5 فإن السطر العاشر من الكود يكون كما يلي:
 

    .HPageBreaks.Add Before:=Rows(12 * J + 6)

أخوك بن علية

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

أخى العزيز لقد ضفت الكود فى مديول وعند الضغط علر رن تظهر تلك الرساله فما هو العمل أرجو التوضيح وما هى السطور التى تتغير لو تم تغير عدد الصفوف المثبتة فى اعلى أول الصفوف المراد طبعها ولك منى الف تحيةpost-76728-0-95784800-1336235546_thumb.p

post-76728-0-74541700-1336241842_thumb.p

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

الصورة المرفقة بالمشاركة السابقة ظهرة عند فتح كود للشيت الأول ولصق الكود بة

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

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

أخي الكريم، الخلل في الكود يكمن في السطر

With Sheets("Feuil1")

الأوراق في ملفك تم تسميتها Sheet1 وغيرها عليك تبديل كلمة Feuil1 في الكود باسم الشيت الذي تريد تطبيق الكود عليه...

أخوك بن علية

تم تعديل بواسطه بن علية حاجي
قام بنشر (معدل)
:clapping:مليون كلمة شكر لا تكفى مع اجمل التحيات لحضرتك بارك الله فيك تم تعديل بواسطه abassreda
  • 2 years later...

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