هدر فوتر اکسل مشابه ورد نیست و تفاوتهایی دارد و اگر بخواهید به صورت اختصاصی از آن بهره ببرید و از سربرگ در اکسل استفاده کنید می توانید ادامه این آموزش را مشاهده نمائید.
البته در این آموزش به سربرگ و پاورقی پرداخته شده است و بهترین روش برای استفاده از یربرگ اختصاصی آموزش داده شده است.
فهرست محتوا
ویدیو استفاده از هدر و فوتر اختصاصی در اکسل
ویدیو کامل استفاده از این آموزش برای ایجاد سربرگ در اکسل در ابتدای مطلب قرار داده شده است و اگر نیاز بود تا توضیحات دیگری داده شود ، لطفا در قسمت نظرات عنوان نمائید.
حذف پاورقی و سربرگ در اکسل با یک کلیک
فرض میکنیم که با کدهایی که در ادامه گفته شده پاورقی اکسل اضافه کرده اید و حالا می خواهید از هر 6 مکانی امکان وجود هدر و فوتر هست آنها را حذف کنید .
- کدهای زیر را کپی کرده و در فیال اکسل خود قرار دهید.
- در فایل خود یک Shape ایجاد کنید و کدها را اجرا نمائید.
Sub removeHeaderFooter() With ActiveSheet.PageSetup .RightHeader = Null .RightFooter = Null .CenterHeader = Null .CenterFooter = Null .LeftHeader = Null .LeftFooter = Null End With End Sub
افزودن تصویر به عنوان سربرگ در اکسل
البته با این کد و کمی تغییرات که در ویدیو توضیح داده شده برای هر 6 قسمت ممکن پاورقی و تیتر صفحه می توانید تصویر اختصاصی قرار دهید ، برای هدر راست و هدر وسط و هدر چپ و فوتر راست و فوتر وسط و فوتر چپ.
- کدهای زیر را کپی کنید و در قسمت کدنویسی قرار دهید
- کدها را به یک Shape و یا دکمه اختصاص دهید.
- با اجرای کد ظاهرا اتفاقی نمی افتد ولی اگر اکسل خود را در نمای چاپی مشاهده کنید تغییرات را خواهید دید.
Public Sub AddFooterHeaderImage() Dim sht As Worksheet Dim ImagePath As String Dim Validation As String ImagePath = "C:\Users\nader\Desktop\Footer3.png" ImagePath1 = "C:\Users\nader\Desktop\OfficebazLogo1.png" On Error Resume Next Validation = Dir(ImagePath) On Error GoTo 0 If Validation = "" Then MsgBox "فايل پيدا نشد: " & ImagePath Exit Sub End If For Each sht In ActiveWorkbook.Windows(1).SelectedSheets sht.PageSetup.CenterFooter = "&G" sht.PageSetup.CenterFooterPicture.Filename = ImagePath sht.PageSetup.RightHeader = "&G" sht.PageSetup.RightHeaderPicture.Filename = ImagePath1 sht.DisplayPageBreaks = False Next sht End Sub
توضیحات در مورد کد بالا :
- باید مقدار imagePath1 و ImagePath را با آدرس تصاویر خود جایگزین کنید.
اضافه کردن پاورقی اکسل فقط به صفحه آخر
در این قسمت هم با استفاده از کدها و البته ویدیو آموزشی می توانید کاری کنید که هدر و فوتر فقط در صفحه آخر چاپ شود ، در واقع با اجرای این کد عملیات چاپ دوبار انجام می شود ، دقعه اول همه صفحات به غیر از صفحه آخر و البته بدون هدر و دفعه دوم ، فقط صفحه آخر به همراه هدر و فوتر.
- کدهای زیر را کپی کرده و در فایل اکسل خود قرار دهید.
- در محل و رویداد دلخواه کدها را فراخوانی کنید.
- اگر بخواهید خروجی PDF بگیرید این تزفند مناسب نخواهد بود.
- چون دو فیال مجزا تولید خواهد کرد.
Sub onlyLastPage() Dim TotPages As Long Dim sht As Worksheet Dim ImagePath As String Dim Validation As String TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") With ActiveSheet.PageSetup .RightHeader = Null .RightFooter = Null .CenterHeader = Null .CenterFooter = Null .LeftHeader = Null .LeftFooter = Null ActiveSheet.PrintOut From:=1, To:=TotPages - 1 ImagePath = "C:\Users\nader\Desktop\OfficebazLogo1.png" ImagePath1 = "C:\Users\nader\Desktop\Footer3.png" On Error Resume Next Validation = Dir(ImagePath) On Error GoTo 0 If Validation = "" Then MsgBox "فايل پيدا نشد: " & ImagePath Exit Sub End If For Each sht In ActiveWorkbook.Windows(1).SelectedSheets sht.PageSetup.CenterFooter = "&G" sht.PageSetup.CenterFooterPicture.Filename = ImagePath1 sht.PageSetup.RightHeader = "&G" sht.PageSetup.RightHeaderPicture.Filename = ImagePath sht.DisplayPageBreaks = False Next sht ActiveSheet.PrintOut From:=TotPages, To:=TotPages End With End Sub
اگر پیشنهاد یا انتقادی در مورد این آموزش دارید می توانید در قسمت نظرات مطرح نمائید