آپدیت پیوت تیبل

[mokaram]

سلام
چه دستوری میتونم بنویسم به محض تغییر تو جدول داده ها ، پیوت تیبل هم تغییر کنه
مثلا اگه 10 شد 12 تو پیوت تیبل هم سریع عمل کنه
ممنون

[امين اسماعيلي]

RE: آپدیت پیوت تیبل

با درود
Private Sub Worksheet_Activate()

Run "PivotMacro"

End Sub

Refresh a Single Pivot Table

Sub PivotMacro()

Dim pt As PivotTable



Set pt = ActiveSheet.PivotTables("MyPivot")

pt.RefreshTable

End Sub

Refresh all Pivot Tables in a Worksheet

Sub AllWorksheetPivots()

Dim pt As PivotTable



For Each pt In ActiveSheet.PivotTables

pt.RefreshTable

Next pt



End Sub
[hr]
اگر کد ها واضح نبودن این لینک رو دانلود کن
http://www.uplooder.net/cgi-bin/dl.cgi?key=c97e3b38253be00a984aff2006680457[hr]
در این قسمت هم یکی از اساتید کدی رو گذاشتن که بدردتون میخوره که منم حواسم نبود
http://forum.exceliran.com/thread-2111.html

[mokaram]

RE: آپدیت پیوت تیبل

با تشکر از استاد اسماعیلی
اگه میشه یه نمونه فایل بذارید هر کاری کردم نشد. به بیسوادی ما ببخشید دیگه

[امين اسماعيلي]

RE: آپدیت پیوت تیبل

با درود
من الانن فایل مشخصی در دسترس ندارم ولی یه راهنمایی ساده
شما یه ماکرو به این ترتیب ضبط کن : ماکرو رو رکورد و سپس در قسمت pivot table قسمت refresh رو کلیک کن تا refresh بشه بعد ماکروو رو متوقف کن. حالا کد ها رو میتونی توی یه کلید بنویسی یا اینکه اگه میخوای تغییرات همزمتن انجام بشه تو Event Active شیت مورد نظر که شامل pivot table هست بنویس


یه نگاه به این سایت بندازی بد نیست:
http://www.myonlinetraininghub.com/excel-factor-6-auto-refresh-pivottables