Giúp vẽ đồ thị bằng dữ liệu cho trước bằng Macro

[tuananh171]

Em là thành viên mới và cũng mới đi làm. Em từng học Tin học quản lý ra nên cũng biết lập trình chút, tất nhiên chỉ rành C# thôi nhưng sau khi đi làm thì thấy Excel quá hữu dụng và tuyệt vời - đó cũng là lý do em tập tành Macro và VBA.
Em xin được hỏi các anh GPE một vấn đề: thủ trưởng em giao em file Excel báo cáo tài chính sau đó nói em vẽ các đồ thị để phân tích tình hình tài chính của năm nay so với năm trước. Vấn đề là ở chỗ, thủ trưởng em muốn từ nay về sau mỗi khi giao file đó cho em thì em thực hiện macro sao cho ra những đồ thị ngay để nhanh chóng phân tích.
Ví dụ: file gồm có 3 sheet thì làm sao cho ra một sheet mới chứa các đồ thị ( dưới đồ thị để một khoảng trống để nhận xét nữa).
Mong các anh giúp em giải quyết vấn đề nhé, các anh cần gì thì cứ nói để em cung cấp.

 

[daudinhdetocdai]

Đây là Code đơn giản để làm những yếu cầu của bạn. Còn cao cấp hơn thì chắc thế nào cũng có mấy đại cao thủ chỉ thui mà.

Sub Macro1()
'Thêm 1 sheet moi voi dang sheet#
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)

'Ve chart tai Sheet vua tao voi data tu Sheet1 A1:B7
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B7")

'sheet 2
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet2").Range("A1:B7")

'sheet 3
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Sheet3").Range("A1:B7")

'Sap xep lai vi tri cua cac chart
ActiveSheet.ChartObjects("Chart 3").Activate
Selection.Cut
ActiveSheet.Paste
ActiveSheet.ChartObjects("Chart 2").Activate
Selection.Cut
Range("J1").Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("Chart 1").Activate
Selection.Cut
Range("A20").Select
ActiveSheet.Paste
End Sub

 

[tuananh171]

Cảm ơn bạn, mình sẽ xem và test thử, hi vọng thành công. Thông tin bạn cho mình rất bổ ích.

Macro của bạn chả hiểu sao mình không thực hiện được.
ActiveSheet.Shapes.AddChart.Select : câu lệnh này bị báo sai.hix hix.Hay là bạn có thêm AddIns nào mà mình không biết vậy.
Hay cách thực hiện có thể như thế này không, mình sẽ móc thông tin từ bảng chính sang bảng cần vẽ ( cho vào một table), sau đó mình sử dụng rồi vẽ...ý tưởng như vậy nhưng mình biết thực hiện bằng macro sẽ rất khó, có bác nào giúp em một tay với.

 

[tuananh171]

Có ai giúp em với không hix hix