سلام
براي اين موضوع از راه تقلب (ماكرونويسي از طريق خود اكسل) استفاده كردم به شرح ذيل:
[align=left]
کد PHP:
Sub Macro4()
'
' Macro4 Macro
'
'
With ActiveSheet.PivotTables("PivotTable1").PivotFields("شركت")
.Orientation = xlPageField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").PivotFields("شركت").CurrentPage = _
"(All)"
With ActiveSheet.PivotTables("PivotTable1").PivotFields("شركت")
.PivotItems("شركت الف").Visible = False
.PivotItems("شركت ب").Visible = False
.PivotItems("شركت ج").Visible = False
.PivotItems("شركت ع").Visible = False
.PivotItems("شركت لام").Visible = False
.PivotItems("شركت پ").Visible = False
.PivotItems("شركت نون").Visible = False
.PivotItems("شركت صاد").Visible = False
.PivotItems("شركت ذ").Visible = False
.PivotItems("شركت د").Visible = False
.PivotItems("شركت ق").Visible = False
.PivotItems("شركت س").Visible = False
.PivotItems("شركت ش").Visible = False
.PivotItems("شركت ك").Visible = False
.PivotItems("شركت گ").Visible = False
.PivotItems("شركت ي").Visible = False
.PivotItems("شركت ث").Visible = False
.PivotItems("شركت ه").Visible = False
End With
ActiveSheet.PivotTables("PivotTable1").PivotFields("شركت"). _
EnableMultiplePageItems = True
End Sub
[/align]
با اين روش درصورتيكه به شركتها اضافه نشه مشكل حل ميشه و با اجراي ماكرو پيوت تيبل با استفاده از ماكرو فيلتر ميشه.
اما اطلاعات شركتها به ديتاي اصلي اضافه ميشه و وقتي پوت تيبل رفرش ميشه به شركتها در پيوت اضافه شده و شركتهاي اضافه شده در پيوت فيلتر شده آورده ميشن .
به دنبال راه حلي بودم تا بتوان با استفاده از اون اين فيلتر را به يك سل ارجاع بدم وبا نوشتن نام شركت در سل ، واجراي ماكرو پيوت تيبل با نام شركت نوشته شده فيلتر بشه .
اميدورام تونسته باشم مطلب رو برسونم . ممنونم .
علاقه مندی ها (Bookmarks)