Giúp vẽ biểu đồ Pareto tự động

[79830615]

Xin chào ACE trong GPE.
Mình đang gặp khó khăn trong việc thiết lập biểu đồ Pareto xin mọi người giúp đỡ.

Xin mọi người giúp mình nhé.

 

[anhdepjai]

Bạn nên để tên file không phải tiếng Việt có dấu thì ổn hơn

 

[79830615]

Bạn nên để tên file không phải tiếng Việt có dấu thì ổn hơn

Cám ơn bạn nhé

 

[79830615]

Bạn nên để tên file không phải tiếng Việt có dấu thì ổn hơn

Bạn ơi cho mình hỏi chút.
Mình có làm lại như bạn nhưng sao lại thấy yêu cầu tạo nút bấm để điều chỉnh tự động. Không giống như của bạn tự động chạy không cần tạo nút bấm bạn giải thích giúp mình với

 

[anhdepjai]

Bạn thay cái sub này ở sheet1:
Sub test1()
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Axes(xlValue).MinimumScaleIsAuto = 0
ActiveChart.Axes(xlValue).MaximumScale = Sheet1.Range("T5")

End Sub

bằng cái sub này

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Axes(xlValue).MinimumScaleIsAuto = 0
ActiveChart.Axes(xlValue).MaximumScale = Sheet1.Range("T5")
Sheet1.Cells(Target.Row, Target.Column).Select
End Sub

Khi đó nó bắt sự kiện worksheet_change và cập nhật thôi

 

[79830615]

Bạn thay cái sub này ở sheet1:
Sub test1()
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Axes(xlValue).MinimumScaleIsAuto = 0
ActiveChart.Axes(xlValue).MaximumScale = Sheet1.Range("T5")

End Sub

bằng cái sub này

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Axes(xlValue).MinimumScaleIsAuto = 0
ActiveChart.Axes(xlValue).MaximumScale = Sheet1.Range("T5")
Sheet1.Cells(Target.Row, Target.Column).Select
End Sub

Khi đó nó bắt sự kiện worksheet_change và cập nhật thôi

cám ơn bạn.
Nếu mình để biểu đồ ở 1 sheet khác (sheet 2) thì có phải thay đổi gì không bạn
mình có copy đoạn code sang sheet 2 nhưng nó không chạy
bạn giúp mình nhé. vì bản báo cáo mình phải tách riêng phần biểu đồ và phần dữ liệu.
cho mình hỏi chút nữa.
nếu 1 sheet có nhiều biểu đồ thì làm như thế nào