Khó khăn trong việc tự động cập nhật trục Y thứ hai trong biểu đồ

[syquyen1987]

Dear các Anh/Chị,

Tôi đã lập trình được biểu đồ tự động cập nhật khi chọn từ ngày... đến ngày... với coding như sau:

Sheet18.ChartObjects("Chart 4").Activate
ActiveChart.PlotArea.Select
    
    ActiveChart.SeriesCollection(1).XValues = _
        Worksheets("ChartData").Range("B" & StartRow & ":B" & Endrow)
        
    ActiveChart.SeriesCollection(1).Values = _
         Worksheets("ChartData").Range("U" & StartRow & ":U" & Endrow) ' Truc Y: khoi luong cap nha may
    

    ActiveChart.SeriesCollection(2).XValues = _
        Worksheets("ChartData").Range("B" & StartRow & ":B" & Endrow)
 
    ActiveChart.SeriesCollection(2).Values = _
        Worksheets("ChartData").Range("V" & StartRow & ":V" & Endrow) ' Truc Y: ke hoach

Tuy nhiên, khi có thêm trục Y thứ hai thì tôi không tìm được code thích hợp để tự động cập nhật, vì vậy nhờ các Anh/Chị biết thì chỉ giúp với ạ
Tôi xin chân thành cảm ơn!

 

[syquyen1987]

Dear các Anh/Chị,

Tôi đã lập trình được biểu đồ tự động cập nhật khi chọn từ ngày... đến ngày... với coding như sau:

Sheet18.ChartObjects("Chart 4").Activate
ActiveChart.PlotArea.Select
   
    ActiveChart.SeriesCollection(1).XValues = _
        Worksheets("ChartData").Range("B" & StartRow & ":B" & Endrow)
       
    ActiveChart.SeriesCollection(1).Values = _
         Worksheets("ChartData").Range("U" & StartRow & ":U" & Endrow) ' Truc Y: khoi luong cap nha may
   

    ActiveChart.SeriesCollection(2).XValues = _
        Worksheets("ChartData").Range("B" & StartRow & ":B" & Endrow)
 
    ActiveChart.SeriesCollection(2).Values = _
        Worksheets("ChartData").Range("V" & StartRow & ":V" & Endrow) ' Truc Y: ke hoach

Tuy nhiên, khi có thêm trục Y thứ hai thì tôi không tìm được code thích hợp để tự động cập nhật, vì vậy nhờ các Anh/Chị biết thì chỉ giúp với ạ
Tôi xin chân thành cảm ơn!

Thật là ái ngại, tôi đã tìm được coding rồi, dòng code như dưới đây đã thỏa mãn được yêu cầu của tôi. Xin cảm ơn ạ

ActiveChart.SeriesCollection(4).AxisGroup = 2