اذهب الي المحتوي
أوفيسنا

كود تذييل صفحة اكسيل ..


asdhamdey

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

الاخوه الاحباب

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

كل عام وحضراتكم بخير

**********

مرفق اكسبل به صفحات مطلوب طباعتها

المطلوب :

كود تذييل للصفحات يظهر به 3 اسطر

لكتابه اسم المدير والزائره الصحيه واسماء اللجنه

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

ولكم جزيل الشكر

التأمين الصحي.rar

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

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

وبارك فيك

***

اخي

اريد التذييل بعد البيانات وليس في ىخر الصفحة ... لماذا ؟

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

ففي حاله التذييل اخر الصفحه نترك مساحه كبيره فارغه

وهذا غير مستحب

ولهذا نريد التذييل بعد عدد الصفوف الممتلئه

ولك شكري

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

السلام عليكم

===========

بعد إذن أخى / أبو أحمد

***************

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

كود اعداد رأس وتذييل الصفحة.rar

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

السلام عليكم

ممكن اعرف كيفية عمل الزر هل تحتة معادلة

كيف ينفذ الامر بالضغط عليه

مثال فى المرفق السابق الزر المكتوب علية فعل الكود

كذلك فى مثال اخر الزر المكتوب علية اطبع الشهادات مثلا

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

أخى الفاضل

ارجو أن أعرف نسخة أوفيس التى تعمل عليها 2003 أم 2007

إن لم تكن على معرفة بعمل الزر يمكنكم نسخه ولصفه

الزر مربوط بالكود وليس تحته معادلات

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

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

وبارك فيك

***

اخي

اريد التذييل بعد البيانات وليس في ىخر الصفحة ... لماذا ؟

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

ففي حاله التذييل اخر الصفحه نترك مساحه كبيره فارغه

وهذا غير مستحب

ولهذا نريد التذييل بعد عدد الصفوف الممتلئه

ولك شكري

التذييل بعد البيانات وليس في آخر الصفحة

لو سمحتم لانه مطلبي ايضا

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

السلام عليكم

رائع أستاذ عبدالله

رائع أستاذ دغيدى

تبقي المعضلة التي يريدها الاستاذ صاحب الموضوع واريدها أنا ايضا

وهي كيف يكون التزييل فقط في الورقة الأخيرة دون باقي الصفحات

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

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

السلام عليكم

رائع أستاذ عبدالله

رائع أستاذ دغيدى

تبقي المعضلة التي يريدها الاستاذ صاحب الموضوع واريدها أنا ايضا

وهي كيف يكون التزييل فقط بعد بيانات كل صفحه مباشره

بمعنى ان البيانات مثلا في الصفحة الاولى قد تكون 4 صفوف اذن نريد التذييل من الصف السادس

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

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

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

وبارك فيك

***

اخي

اريد التذييل بعد البيانات وليس في ىخر الصفحة ... لماذا ؟

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

ففي حاله التذييل اخر الصفحه نترك مساحه كبيره فارغه

وهذا غير مستحب

ولهذا نريد التذييل بعد عدد الصفوف الممتلئه

ولك شكري

السلام عليكم

اذا فهمنا طريقة الطباعة التي تستخدمها ممكن نجد حل

هل تقوم بتحديد نطاق معين ثم تختار طباعة التحديد

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

او غير ذلك

ممكن توضح

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

السلام عليكم

اخي الفاضل استعن بهذا الكود

لحذف الصفوف الفارغه وتحديد البيانات وبالنسبة للتذيل ماتشرفو به الاساتذه مع هذا

سيتم ماطلبت

تفضل


Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Long

With Application

.Calculation = xlCalculationManual

.ScreenUpdating = False

For i = Selection.Rows.Count To 1 Step -1

If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then

Selection.Rows(i).EntireRow.Delete

End If

Next i

.Calculation = xlCalculationAutomatic

.ScreenUpdating = True

End With

Application.ScreenUpdating = False

Application.EnableEvents = False

Dim thded As HPageBreak

Dim rngCol As Range

Dim arow As Range

On Error Resume Next

For Each thded In ActiveWindow.SelectedSheets.HPageBreaks

thded.Delete

Next thded

Set rngCol = ActiveSheet.Range("a5:b" & Cells(Rows.Count, "b").End(xlUp))

Do

Set arow = rngCol(1)

Set rngCol = rngCol.ColumnDifferences(Comparison:=arow)

rngCol.Select

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("a5").End(xlDown).Offset(2, 0)

Loop Until arow = rngCol(1)

Application.ScreenUpdating = True

Application.EnableEvents = True

End Sub

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

السلام عليكم

رائع أستاذ عبدالله

رائع أستاذ دغيدى

تبقي المعضلة التي يريدها الاستاذ صاحب الموضوع واريدها أنا ايضا

وهي كيف يكون التزييل فقط في الورقة الأخيرة دون باقي الصفحات

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

اخي الحبيب خالد القدس

طلبك من عيوني

يعني بكل بساطة

في ورقة اخرى ضع الشكل العام للصفوف التي تريد طباعتها في آخر الصفحة

اعمل في الورقة الي تبي طباعتها زر للطباعة

بحيث

ينسخ الصفوف من الورقة الأخرى

ويضعها في آخر الصفوف للورقة الحالية ويطبع ثم يحذف هذه الصفوف

اذا اردت ان اساعدك في عملها لامانع

اعطيني ملف به مثال

تراك عزيز وغالي

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

أخى الفاضل /

زى ما قال أخى أبو نصار

اكتب ما تريد من تذييل فى الورقة الأخيرة مباشرة واطبع بالكود الجميل (( الذى لايطبع الصفوف الفارغة ))

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

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information