අන්තර්ගත වගුව
මෙම ලිපියෙන්, මම ඔබට පෙන්වන්නම් ඔබේ වැඩ පත්‍රිකාවේ හෝ වැඩපොතෙහි සියලුම විවර්තන වගු Excel හි VBA සමඟින් refresh කරන්න. ඔබ තනි Pivot Table එකක් නැවුම් කිරීමටද ඉගෙන ගනු ඇත. , මෙන්ම විවර්තන වගුව හැඹිලිය.
Excel හි VBA සමඟ සියලුම විවර්තන වගු නැවුම් කරන්න (ඉක්මන් දසුන)
7696
ප්‍රායෝගික වැඩපොත බාගන්න
ඔබ සිටින අතරතුර ව්‍යායාම කිරීමට මෙම පුහුණු වැඩපොත බාගන්න මෙම ලිපිය කියවීම.
සියලුම Pivot Tables Refresh.xlsm
4 Excel හි VBA සමඟින් සියලුම විවර්තන වගු නැවුම් කිරීමට ක්‍රම
A Pivot Table යනු එක්සෙල් වැඩ පත්‍රිකාවක ඇති විශේෂ වගු වර්ගයකි, එය පිළිවෙලින් පේළිය සහ අගය යන මාතෘකාව යටතේ දත්ත කාණ්ඩ දෙකක් අඩංගු වේ.
වගුවෙහි සියලුම තීරු මෙම කාණ්ඩ දෙක යටතේ වර්ගීකරණය කර ඇත.
ඔබ දත්ත කට්ටලය තෝරාගෙන ගියහොත් එය දත්ත කට්ටලයකින් ස්වයංක්‍රීයව ජනනය වේ. ඇතුළු කරන්න > Excel මෙවලම් තීරුවේ ඇති PivotTable විකල්පය.
අද අපගේ අරමුණ වන්නේ වැඩ පත්‍රිකාවක හෝ a හි සියලුම Pivot Tables නැවුම් කළ හැකි ආකාරය ඉගෙන ගැනීමයි. Excel හි VBA සමඟ වැඩපොත.
1. Excel හි තනි විවර්තන වගුවක් නැවුම් කරන්න
මුලින්ම, අපි තනි විවර්තන වගුව නැවුම් කිරීමට ඉගෙන ගනිමු.
තනි විවර්තන වගුවක් නැවුම් කිරීමට , පළමුව, ඔබ එය PivotTable වස්තුවක් ලෙස සඳහන් කළ යුතුය.
එවිට ඔබට VBA හි RefreshTable ක්‍රමය භාවිතා කරන්න.
මෙහි අපට PivotTable1 නම් Pivot Table ක් සක්‍රියව ඇත. වැඩ පත්රිකාව. ( විවර්තන වගුවේ නම ලබා ගන්නේ කෙසේද දැන ගැනීමට මෙතැන ක්ලික් කරන්න).
එය නැවුම් කිරීමට, අපට පහත කේත රේඛා භාවිතා කිරීමට සිදුවේ:
8035
කේතය ක්‍රියාත්මක කරන්න, එය සක්‍රිය වැඩ පත්‍රිකාවේ PivotTable1 ලෙස හඳුන්වන Pivot Table නැවුම් කරයි.
තවත් කියවන්න: Excel හි විවර්තන වගුව ස්වයංක්‍රීයව නැවුම් කරන්නේ කෙසේද (ක්‍රම 2)
2. Excel හි වැඩ පත්‍රිකාවක සියලුම විවර්තන වගු නැවුම් කරන්න
දැන් අපි VBA සමඟ වැඩ පත්‍රිකාවක Pivot Tables සියල්ල නැවුම් කරන්නෙමු.
ක්‍රියාකාරී වැඩ පත්‍රිකාවේ සියලුම විවර්තන වගු නැවුම් කිරීමට, ඔබ ActiveSheet.PivotTables වස්තුවේ එක් එක් Pivot Table හරහා පුනරාවර්තනය කළ යුතුය. ඉන්පසු RefreshTable ක්‍රමය භාවිතා කරන්න.
6589
කේතය ක්‍රියාත්මක කරන්න, එවිට එය සියලු Pivot Tables නැවුම් කරයි. සක්‍රිය වැඩ පත්‍රිකාවේ .
තව කියවන්න: විවර්තන වගුව ප්‍රබෝධමත් නොවේ (5 ගැටළු සහ විසඳුම්)
3 . Excel හි වැඩපොතක සියලුම විවර්තන වගු නැවුම් කරන්න
ඔබට Excel හි වැඩපොතක Pivot Tables සියල්ල refresh කරන්න.
සියලු <නැවුම් කිරීමට සක්‍රිය වැඩපොතේ 1>විවර්තන වගු , VBA හි ActiveWorkbook.PivotTables වස්තුව මගින් එක් එක් වගුව හරහා පුනරාවර්තනය කරන්න. ඉන්පසු RefreshTable ක්‍රමය භාවිතා කරන්න.
1353
මෙම කේතයසක්‍රිය වැඩපොතේ සියලුම විවර්තන වගු නැවුම් කරන්න.
තවත් කියවන්න: මූලාශ්‍ර දත්ත වෙනස් වන විට විවර්තන වගුවක් ස්වයංක්‍රීයව යාවත්කාලීන කරන්නේ කෙසේද
4. Excel හි VBA සමඟ විවර්තන වගුව හැඹිලිය නැවුම් කරන්න
ඔබගේ වැඩපොතෙහි එකම දත්ත භාවිතා කරන Pivot Table කිහිපයක් තිබේ නම්, ඔබ Pivot Table cache
Pivot Table cache නැවුම් කිරීමට, සක්‍රිය වැඩපොතෙහි Pivot Table cache එක් එක් හරහා නැවත නැවත කරන්න. ActiveWorkbook.PivotCaches වස්තුව මගින්.
ඉන්පසු VBA හි R efresh ක්‍රමය භාවිතා කරන්න.
9636
එය ක්‍රියාකාරී වැඩපොතෙන් සියලුම විවර්තන වගු හැඹිලිය refresh කරනු ඇත.
තවත් කියවන්න: VBA නොමැතිව Pivot Table ස්වයංක්‍රීයව නැවුම් කරන්නේ කෙසේද Excel හි (ස්මාර්ට් ක්‍රම 3)
මතක තබා ගත යුතු දේවල්
මෙහි අපි විවර්තන වගු ක්‍රියාකාරී වෙතින් නැවුම් කිරීමට පෙන්වා ඇත වැඩ පත්රිකාව හෝ වැඩපොත පමණි. ඔබට සක්‍රිය නොවන වැඩපොතකින් හෝ වැඩ පත්‍රිකාවකින් දත්ත නැවුම් කිරීමට අවශ්‍ය නම්, ActiveSheet හෝ ActiveWorkbook වස්තුව වෙනුවට වැඩ පත්‍රිකාවේ හෝ වැඩපොතෙහි නම භාවිතා කරන්න.
උදාහරණයක් ලෙස, Sheet1 වෙතින් සියලුම විවර්තන වගු නැවුම් කිරීමට, වැඩපත්‍රවල ඇති සෑම වගුවක් සඳහාම(“Sheet1”).PivotTables .
භාවිත කරන්න. සහ වැඩපොත1 වෙතින් නැවුම් කිරීමට, වැඩපොත්වල එක් එක් වගුව සඳහා (“වැඩපොත1”) භාවිත කරන්න. විවර්තන වගු .
නිගමනය
මේවා භාවිතා කිරීමක්‍රම, ඔබට සියලුම විවර්තන වගු එක්සෙල් හි VBA සමඟ වැඩ පත්‍රිකාවකින් හෝ වැඩපොතකින් නැවුම් කළ හැක. ඔබට ප්‍රශ්න තිබේද? අපෙන් අසන්න.
