每次下一次macros运行时更改PivotStyle

我想在运行仪表板的时候每隔一次更换一次pivot stayle，build议同样的编码是：

Set rng = ws.Range("A1:" & Split(Cells(, lastcol).Address, "$")(1) & lastrow) srcdata = rng.Address(ReferenceStyle:=xlR1C1) Set pvtch = ActiveWorkbook.PivotCaches.Create(xlDatabase, srcdata) Set pvtbl = pvtch.CreatePivotTable(tableDestination:=ptws.Range("A3"), tablename:="PivotTable1") pvtbl.PivotFields("TAT Status").Orientation = xlRowField pvtbl.PivotFields("RequestType").Orientation = xlRowField pvtbl.PivotFields("Case Owner").Orientation = xlColumnField pvtbl.AddDataField pvtbl.PivotFields("Reference no"), "Count_Ticket_ID", xlCount ptws.Range("A4").Value = "Ticket Type with TAT" pvtbl.TableStyle2 = "PivotStyleDark1" 'Here I want to change the style every next time when pivot table create.