大家帮忙一下写一个VBa,在数据透视单元格(B1,B17,as6,aw6,ba 6,bw3,ck3,cw2,di2,dv2,es2,Ey2)下拉中随便找一个日期,如11-6,所有单元格日期都变一样,日期同步,谢谢
本帖最后由 hwc2ycy 于 2013-11-16 21:18 编辑
- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim mydate As Date
- If Target(1).Value = "日期" Then
- mydate = Target(1, 2).Value
- Else
- Exit Sub
- End If
- Dim pt As PivotTable
- Dim pf As PivotField
- On Error Resume Next
- Application.EnableEvents = False
- Application.ScreenUpdating = False
- For Each pt In ActiveSheet.PivotTables
- pt.ManualUpdate = True
- Debug.Print pt.Name, pt.PivotFields("日期").CurrentPage
- pt.PivotFields("日期").CurrentPage = mydate
- pt.ManualUpdate = False
- Next
- Application.ScreenUpdating = True
- Application.EnableEvents = True
- End Sub
复制代码放入统计工作表表内。
数透表多,刷新是有时间的。
工作簿需保存为XLSM格式,不然代码会丢的。
|