الطباعة

[جمال احمد محمود قطب]

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

تم تعديل مايو 23, 2018 بواسطه جمال احمد محمود قطب

[محمد طاهر عرفه]

 

هذا ممكن عن طريق الكود التالي

مثلا اذا كانت الخلية المطلوبة A1

Sub HeaderFrom()
Dim HeaderCell As Range
On Error Resume Next
Set HeaderCell = Application.Selection.Range("A1")
Application.ActiveSheet.PageSetup.LeftHeader = HeaderCell.Range("A1").Value
End Sub

 

 الماكرو السابق يحتاج للتشغيل  اي لا يعمل اليا و يوضع فى موديول

و يمكن جعل التعديل اليا بوضع الحدث عند حدوث اي تغيير فى الصفحة مثلا

مثلا هذا الكود ينقل محتوى الخلية B1 فى الجزء الايمن لرأس الصفحة و الايسر لتذييها ايضا  عند حدوث اي تغيير فى ورقة العمل

و هو يوضع فى ورقة العمل نفسها

ويمكن حذف احد السطرين بحسب رغبتك

 

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    ActiveSheet.PageSetup.LeftFooter = Range("B1").Text
     ActiveSheet.PageSetup.RightHeader = Range("B1").Text
End Sub

 مرفق ملف به الكودان

 

Add Cell to Header.xlsm