در هدرهای در اکسل

Question

پیدا و جایگزین کنید

یکی از ابزارهای بسیار مفید ارائه شده در اکسل Find and Replace است که به شما امکان مکان یابی و تغییر اطلاعات ذخیره شده در سلول ها را می دهد. با این حال، یکی از مکان‌هایی که Find and Replace کار نمی‌کند، اطلاعات ذخیره‌شده در سرصفحه یا پاورقی برای کاربرگ‌های شماست.

تنها راه برای یافتن و جایگزینی اطلاعات در هدر یا پاورقی استفاده از ماکرو است. دسترسی به آنچه در قسمت‌های مختلف سرصفحه و پاورقی ذخیره می‌شود، آن‌ها را برای یافتن آنچه می‌خواهید پیدا کنید، بررسی کنید و سپس آن را با متن جدیدی جایگزین کنید، یک کار نسبتاً بی‌اهمیت است. ماکرو زیر یک مثال را ارائه می دهد.

Sub FnR_HF()
    Dim sWhat As String, sReplacment As String
    Const csTITLE As String = "Find and Replace"

    sWhat = InputBox("Replace what", csTITLE)
    If Len(sWhat) = 0 Then Exit Sub
    sReplacment = InputBox("With what", csTITLE)

    With ActiveSheet.PageSetup
         Substitute Header/Footer values
        .LeftHeader = Application.WorksheetFunction.Substitute( _
                      .LeftHeader, sWhat, sReplacment)
        .CenterHeader = Application.WorksheetFunction.Substitute( _
                        .CenterHeader, sWhat, sReplacment)
        .RightHeader = Application.WorksheetFunction.Substitute( _
                       .RightHeader, sWhat, sReplacment)
        .LeftFooter = Application.WorksheetFunction.Substitute( _
                      .LeftFooter, sWhat, sReplacment)
        .CenterFooter = Application.WorksheetFunction.Substitute( _
                        .CenterFooter, sWhat, sReplacment)
        .RightFooter = Application.WorksheetFunction.Substitute( _
                       .RightFooter, sWhat, sReplacment)
    End With
End Sub

توجه داشته باشید که چگونه ماکرو جایگزین‌ها را در هر سه قسمت هدر و هر سه قسمت فوتر انجام می‌دهد.

اگر ترجیح می‌دهید از ماکرو خود استفاده نکنید، یا اگر می‌خواهید یافتن و جایگزینی کامل‌تر برای اکسل داشته باشید، می‌توانید افزونه رایگان FlexFind از اکسل MVP Jan Karel Pieterse را در نظر بگیرید:

http://www.jkp-ads.com/officemarketplaceff-en.asp

این به جستجوها به طور منظم اضافه می کند، اما همچنین در بسیاری از مناطق دیگر از جمله سرصفحه و پاورقی جستجو می کند.