Excel-VBA-批量自动制图表实例集锦.docVIP

1, 自动生成图表 ‘/thread-1058346-1-1.html ‘统计报告0925a.xls ‘201 Sub lqxs() Dim Arr, ks, js, nm1$, nm2$, dz1$, dz2$ Dim dz$, dz3$, yy$, nm$ Application.ScreenUpdating = False Sheet3.Activate Arr = [a1].CurrentRegion ks = 3: js = UBound(Arr) - 1 nm = Sheet3.Name yy = Left(nm, Len(nm) - 3) nm1 = 图表 6 nm2 = 图表 4 dz = A2:B js ,D2:E js ActiveSheet.ChartObjects(nm1).Activate With ActiveChart .SetSourceData Source:=Sheets(nm).Range(dz), PlotBy:=xlColumns .SeriesCollection(1).Select dz1 = R3C2:R js C2 .SeriesCollection(1).Values = = nm ! dz1