マジ腱鞘炎
Dim bk As Workbook: Set bk = Workbooks("3rdData_AR2MN_グラフ.xlsx") Dim s As Worksheet: Set s = bk.Worksheets("data_all_AR2MN(p2)") Dim co As ChartObject Dim i As Long: i = 0 Dim sumR As Long: sumR = 72 Dim r As Range: Set r = s.Range("E" & CStr(sumR)) For Each co In s.ChartObjects Dim sc As Series: Set sc = co.Chart.SeriesCollection(1) Dim am(1) As Variant am(0) = r.Offset(0, i).Value am(1) = r.Offset(0, i + 1).Value sc.ErrorBar xlY, xlErrorBarIncludeBoth, xlErrorBarTypeCustom, am, am i = i + 3 NextsumRは合計行の位置で、要素が3列づつあるのでi+=3になってます。
こまけーことはお気になさらずに。。。
0 件のコメント:
コメントを投稿