دیوید PivotTable های زیادی دارد که بر اساس سال فیلتر می شوند. در داده های او یک فیلد جداگانه برای سال وجود دارد (مقادیر 2016، 2017، 2018، و غیره، که از طریق تابع Year مشتق شده اند). او در بیشتر موارد سال های بالاتر را حذف می کند و در مورد سال های اخیر گزارش می دهد. هنگامی که سال جدید فرا می رسد، ویرایش هر PivotTable و انتخاب جدیدترین سال برای دیوید یک فرآیند خسته کننده است. او فکر می کند که آیا راهی برای تعیین مقادیر انتخابی فیلتر PivotTable وجود دارد تا نیازی به ویرایش خسته کننده نداشته باشد.
شاید ساده ترین راه برای انجام این کار اضافه کردن یک ستون به داده های منبع برای PivotTable باشد. ستون می تواند حاوی یک فرمول ساده باشد که تعیین می کند آیا ردیف در محدوده مورد نظر برای گنجاندن در PivotTable قرار دارد یا خیر. به عنوان مثال، اگر ستون A حاوی تاریخ تراکنش برای ردیف باشد، می توانید موارد زیر را در ستون اضافه شده قرار دهید:
=YEAR(A2)>YEAR(NOW())-3
نتیجه فرمول یا درست یا نادرست است، بسته به اینکه معامله در سه سال گذشته باشد یا خیر. بنابراین، اگر این فرمول در سال 2018 ارزیابی شود، هر تراکنش در سال های 2016، 2017 و 2018 به True برمی گردد. همه چیزهای دیگر نادرست خواهند بود. سپس، در تعریف PivotTable خود، می توانید بر اساس محتویات این ستون خاص فیلتر کنید، در نتیجه اطمینان حاصل کنید که فقط آن ردیف های True در PivotTable گنجانده شده اند.
اگر یک راه حل مبتنی بر کلان را ترجیح می دهید، می توانید به راحتی راه حلی ایجاد کنید که هر یک از PivotTables را بررسی کرده و PivotField را با نام "Year" تغییر دهید تا برابر با سال مورد نظر باشد. موارد زیر نشان می دهد که ایجاد چنین تغییری چقدر آسان است:
Sub ChangePivotYear()
Dim sht As Worksheet
Dim pvt As PivotTable
Dim iYear as Integer
iYear = 2018 Change to desired year
For Each sht In Worksheets
For Each pvt In sht.PivotTables
pvt.PivotFields("Year").ClearAllFilters
pvt.PivotFields("Year").CurrentPage = iYear
Next pvt
Next sht
End Sub
ماکرو زمینه را روی 2018 تنظیم می کند. اگر می خواهید از یک سال متفاوت استفاده کنید، فقط آنچه را که به متغیر Year اختصاص داده شده است، تغییر دهید. همچنین توجه داشته باشید که ماکرو روی تمام PivotTables در کل ورک بوک تأثیر می گذارد.
