السلام عليكم ورحمة الله وبركاته
لو اردنا تثبيت عناوين اعلى او اسفل كل صفحه عند الطباعه نستخدم
Header & Footer
ولكن قد لا تسع البيانات الكبيره
بالنسبه للHeader يوجد اداة لتثبيت بعض الصفوف كل اعلى كل صفحه
اما بالنسبه للFooter فلا يوجد اداة لتثبيت صف كل صفحه كتذييل للصفحه
اليوم اقدم لكم كود يتم اضافته كموديول ومن ثم عند تفعيل الكود بالضغط على F5 مثلا
يظهر لنا مربع حوال لتحديد الصف الذى نريد تثبيته اسفل كل صفحه ثم نضغط على OK
وهكذا نلاحظ ان الصف المحدد تم تثبيته اسفل كل صفحه
لا اعلم من صاحب الكود لكنى حصلت عليه من احدى الصفحات الاجنبيه وشكرا لصاحب الكود
وهذا هو الكود المستخدم
Sub MyFooter()
Dim xTxt As String
Dim xAddress As String
Dim xRg As Range
Dim xCell As Range
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
xTxt = xTxt & xCell.Value & " "
Next
ActiveSheet.PageSetup.LeftFooter = xTxt
End Sub
[3]
كود لاضافة صف ثابت فى تذييل كل الصفحه
تحميل محتوى الموضوع
عرض نسخة صالحة للطباعة
أرسل هذا الموضوع إلى صديق
