发布网友 发布时间:2022-04-21 08:16
共3个回答
热心网友 时间:2023-10-19 00:56
最简单的方法是为该宏设置一个快捷键。
热心网友 时间:2023-10-19 00:56
宏没问题,但是你使用的方法需要改善一下
假设你这个表是sheet1表,那你需要做工作表代码
即alt+F11,在工程窗口双击sheet1,将以下代码复制到空白区
Private Sub worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, [B:B]) Is Nothing Or Target.Count > 1 Then Exit Sub
Range("E1:F5").Select
ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
end sub
效果是,当你修改B列内容时,自动激活宏代码刷新。修改其他内容,不会激活宏
热心网友 时间:2023-10-19 00:57
很简单,在宏编辑器里面点击透视表所在的sheet,把通用改为worksheet,声明改为chage,再插入你的宏。即为为以下:
Private Sub Worksheet_Change(ByVal Target As Range)'
' 刷新数据透视表 Macro
'
Range("E1:F5").Select
ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
End Sub
或者不用宏,手动F9也可以的。:)