Giúp vẽ biểu đồ cột bằng VBA

[phamvandunghp84]

Mình muốn vẽ biểu đồ cột bằng VBA theo định dạng như này mà không biết cách cách code. mong được các bạn giúp mình!


Sub Vebieudo()
Dim myChartObject As ChartObject
Set myChartObject = ActiveSheet.ChartObjects.Add(Left:=500, Top:=10, _
Width:=400, Height:=300)

myChartObject.Chart.SetSourceData Source:= _
ActiveWorkbook.Sheets("Sheet3").Range("A1")
End Sub

 

[phamvandunghp84]

Mình muốn vẽ biểu đồ cột bằng VBA theo định dạng như này mà không biết cách cách code. mong được các bạn giúp mình!


Sub Vebieudo()
Dim myChartObject As ChartObject
Set myChartObject = ActiveSheet.ChartObjects.Add(Left:=500, Top:=10, _
Width:=400, Height:=300)

myChartObject.Chart.SetSourceData Source:= _
ActiveWorkbook.Sheets("Sheet3").Range("A1")
End Sub


View attachment 234900View attachment 234900

hi, chắc câu hỏi của mình cơ bản quá làm k ai muốn giúp... help me !
mình mò google hoài mà vẫn k ra, có bạn nào chỉ mình với ?