আমার সম্প্রতি এটি প্রয়োজন এবং এটি কিছুটা সংশোধন করেছি। সম্ভবত কেউ এটি দরকারী খুঁজে পাবেন।
তারিখের জন্য ক্যালেন্ডার সপ্তাহের দ্বারা ডেটা সংক্ষিপ্ত করে আমার কাছে কয়েকটি পিভট চার্ট রয়েছে। আমি একটি ম্যাক্রো রেকর্ড করেছি [অফিস ২০১ 2016: ভিউ-ম্যাক্রোস-রেকর্ড ম্যাক্রো] এবং সমস্ত পৃথক পিভট টেবিলের জন্য সারি লেবেলে অন্তর্ভুক্ত হওয়ার জন্য সর্বশেষ সিডব্লিউটি পরীক্ষা করেছিলাম এবং এইভাবে চার্টগুলি। আমি তখন ম্যাক্রো বন্ধ করে দিয়ে সম্পাদনা মোডে প্রবেশ করলাম ( Alt+ F11) এবং মডিউল 1-এ কোডটি সনাক্ত করেছি।
আমি তারপরে কার্যপত্রিকায় সেল সি 2 সেট করে সর্বদা গত সপ্তাহের সপ্তাহের সংখ্যা হতে হবে [ =WEEKNUM(Today())-1
], সেই সেল মানটির সমান একটি ভেরিয়েবল সেট করে নীচের কোডটি ব্যবহার করে ভেরিয়েবল নামের রেকর্ডকৃত ম্যাক্রোতে নির্বাচনটি প্রতিস্থাপন করেছি:
Dim i As Integer
Sub CW_Update()
' Keyboard Shortcut: Ctrl+Shift+J
i = Cells(1, 3).Value
With ActiveSheet.PivotTables("PivotTable1").PivotFields("CW")
.PivotItems(i).Visible = True
End With
With ActiveSheet.PivotTables("PivotTable2").PivotFields("CW")
.PivotItems(i).Visible = True
End With
With ActiveSheet.PivotTables("PivotTable3").PivotFields("CW")
.PivotItems(i).Visible = True
End With
With ActiveSheet.PivotTables("PivotTable4").PivotFields("CW")
.PivotItems(i).Visible = True
End With
With ActiveSheet.PivotTables("PivotTable5").PivotFields("CW")
.PivotItems(i).Visible = True
End With
With ActiveSheet.PivotTables("PivotTable6").PivotFields("CW")
.PivotItems(i).Visible = True
End With
With ActiveSheet.PivotTables("PivotTable7").PivotFields("CW")
.PivotItems(i).Visible = True
End With
End Sub
এখন, প্রতি সোমবার আমি পরিসংখ্যান পর্যালোচনা যখন আমি শুধু চাপুন Ctrl+ + Shift+ + J
এবং সবকিছু স্বয়ংক্রিয়ভাবে আপডেট।