Làm thế nào để tự động lấy giá trị nhỏ nhất làm tỉ lệ biểu đồ... (1 người xem)

[phamvandunghp84]

Nhờ các bạn trên diễn đàn giúp mình dùng VBA để dò giá trị nhỏ nhất rồi lấy giá trị nhỏ nhấ đó làm tỉ lệ biểu đồ ( khi người dùng chọn lọc trên cột A (time ) thì tự động tìm lấy giá trị nhỏ nhất ở các cột B, C D. ở một sheet khác . Để đặt làm giá trị Min trên trục bên trái và bên phải. của mỗi biểu đồ tương ứng với dữ liệu đó, ở một sheet khác.
mình gửi file các bạn xem giúp mình:
mình nghĩ tới cái này mà không biết làm sao tiếp..
Application.WorksheetFunction.Subtotal(5, Sheets("Sheet2").Range("C")) = Sheets("Sheet2").Range("C" & Dongcuoi)

 

[phamvandunghp84]

Nhờ các bạn trên diễn đàn giúp mình dùng VBA để dò giá trị nhỏ nhất rồi lấy giá trị nhỏ nhấ đó làm tỉ lệ biểu đồ ( khi người dùng chọn lọc trên cột A (time ) thì tự động tìm lấy giá trị nhỏ nhất ở các cột B, C D. ở một sheet khác . Để đặt làm giá trị Min trên trục bên trái và bên phải. của mỗi biểu đồ tương ứng với dữ liệu đó, ở một sheet khác.
mình gửi file các bạn xem giúp mình:
mình nghĩ tới cái này mà không biết làm sao tiếp..
Application.WorksheetFunction.Subtotal(5, Sheets("Sheet2").Range("C")) = Sheets("Sheet2").Range("C" & Dongcuoi)

Các bác xem giúp cần phải sửa lại như nào mới chạy được

Sub giatrinhonhat_laylamtiletoado()
Dim DataRange As Range
Sheets("bieudo").Activate

For i = 1 To 100
Worksheets("bieudo").ChartObjects("Chart " & i).Activate
Set DataRange = ActiveSheet.ChartObjects("Chart " & i).Chart.SeriesCollection(1).Values
ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = Application.WorksheetFunction.Subtotal(105, (Sheets("data").Range("DataRange")))

Next i
End Sub

 

[phamvandunghp84]

Các bác xem giúp cần phải sửa lại như nào mới chạy được

Sub giatrinhonhat_laylamtiletoado()
Dim DataRange As Range
Sheets("bieudo").Activate

For i = 1 To 100
Worksheets("bieudo").ChartObjects("Chart " & i).Activate
Set DataRange = ActiveSheet.ChartObjects("Chart " & i).Chart.SeriesCollection(1).Values
ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = Application.WorksheetFunction.Subtotal(105, (Sheets("data").Range("DataRange")))

Next i
End Sub

Có cao thủ nào đi ngang đây dừng chân giúp mình tình huống này với..