ارجاع فيلتر به سلها

[intro]

در پيوت تيبل ميشه فيلتر نمود و آيتمها مختلفي حسب مورد ميشه كارگذاشت براي اعداد مانند مساوي ، بزرگتر از ، كوچكتر از و ... و براي متن مانند شامل ، پايان يافته با و ....
اين فيلترها را مي توان پيوت تيبل رو ساخت و سپس فيلتر نمود
سوال من اينه كه آيا ميشه اين فيلترها رو به يك يا چند سل ارتباط داد و هنگام تغيير اين سل يا سلها فيلتر تغيير پيدا بكنه و براساس محتويات سل اين پيوت تيبل فيلتر بشه ؟

[~M*E*H*D*I~]

RE: ارجاع فيلتر به سلها

سلام
دوست عزیز لطفا بیشتر توضیح بده یا یه فایل نمونه بذار

[farzin24622]

RE: ارجاع فيلتر به سلها

دوست خوبم شما اگر از فرمولهای آرایه ای استفاده کنی به خواستتون میرسین ولی دیگه اسمش Pivot table نمیشه !!!

[intro]

RE: ارجاع فيلتر به سلها

سلام
ببينيد ما اول بايستي پيوت تيبل را بسازيم و از منوي فيلتر اونو فيلتر كنيم و فيلتر را در خود پيوت تعريف كنيم . منظور من اينه كه آيا ميشه اين فيلتر را به سلي ارتباط بديم و با تغيير مقدار يا ارزش اين سل ، پيوت تيبل هم فيلتر بشه . يا بعبارتي منوهاي پيوت در مورد فيلتر را به سل لينك كنيم ويا ارتباط بديم .
درمورد آرايه ها هم من اطلاعات خوبي ندارم اگه منظور تون وي بي هستيش باز هم آيا ميشه برنامه نوشت تا اين لينك برقرار باشه كه البته بنده بعيد مي دونم كه اينكار بشه انجام داد چون پيوت ساخته وپرداخته خود اكسل هست و به كدهاي اون دسترسي وجود ندارد . (البته باتوجه به سواد اندك بنده اينطور اظهارنظر نمودم)

[intro]

RE: ارجاع فيلتر به سلها

سلام
براي اين موضوع از راه تقلب (ماكرونويسي از طريق خود اكسل) استفاده كردم به شرح ذيل:
[align=left]

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]
با اين روش درصورتيكه به شركتها اضافه نشه مشكل حل ميشه و با اجراي ماكرو پيوت تيبل با استفاده از ماكرو فيلتر ميشه.
اما اطلاعات شركتها به ديتاي اصلي اضافه ميشه و وقتي پوت تيبل رفرش ميشه به شركتها در پيوت اضافه شده و شركتهاي اضافه شده در پيوت فيلتر شده آورده ميشن .
به دنبال راه حلي بودم تا بتوان با استفاده از اون اين فيلتر را به يك سل ارجاع بدم وبا نوشتن نام شركت در سل ، واجراي ماكرو پيوت تيبل با نام شركت نوشته شده فيلتر بشه .
اميدورام تونسته باشم مطلب رو برسونم . ممنونم .

[Ali7010]

RE: ارجاع فيلتر به سلها

من هم بدنبال راهی برای فیلتر کردن گزارش بر اساس اطلاعات یک ستون هستم.بعنوان مثال اطلاعات هزینه ای پروژه های مختلف در شیت وارد شده.گزارش هزینه ای بر اساس انواع هزینه و مقادیرشون و برای پروژه خاص صرفاً به نمایش در بیاد.نمی دونم چطور میشه اینکارو انجام داد؟لطفاً راهنمایی کنید