Tự động vẽ biểu đồ bằng Macro ? (1 người xem)

[edopth]

Mình làm một cái biểu đồ nhưng số cột dữ liệu hơi nhiều (41 cột) trong đó 1 cột dành cho trục hoành là giữ nguyên, còn lại mỗi một cột là một đồ thị, như vậy cứ 1 đồ thị lại thực hiện add số liệu một lần rất mất thời gian. Mình xin hỏi có cách nào cho nó vào vòng lặp được không ? mình thử ghi lại bằng macro để đưa vào vòng lặp cho nó làm tự động nhưng không được, nhờ các thành viên giúp mình nhé !

Code bằng thao tác ghi lại:

Range("A3:B14").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("tv").Range("A3:B14"), PlotBy:= _
xlColumns
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Values = "=tv!R3C3:R14C3"
ActiveChart.SeriesCollection(3).Values = "=tv!R3C4:R14C4"
ActiveChart.SeriesCollection(4).Values = "=tv!R3C5:R14C5"
ActiveChart.SeriesCollection(5).Values = "=tv!R3C6:R14C6"
ActiveChart.SeriesCollection(6).Values = "=tv!R3C7:R14C7"
ActiveChart.SeriesCollection(7).Values = "=tv!R3C8:R14C8"
ActiveChart.Location Where:=xlLocationAsNewSheet

 

[nvson]

Tại sao lại phải mất công Add từng đường một nhỉ trong khi Excel thừa làm được việc này?
Với file bieudo.xls bạn chọn vùng từ A3:AA14 (26 cột) trong sheet tv.
Nhấn Insert/ Chart, chọn một loại biểu đồ (Line), nhấn Finish.
Nhấn vào biểu đồ để chọn nó (nếu cần). Nhấn tiếp Chart/ Source Data, chọn Columns trong tab Data Range rồi nhấn OK.
Bây giờ bạn đã có đồ thị lấy số liệu theo cột. Số cột có thể >41 mà không cần phải Add nhiều lần!
Căn chỉnh lại đồ thị cho đẹp!
.....

 

[SA_DQ]

Bạn tham khảo thêm tại đây



http://giaiphapexcel.com/forum/showthread.php?t=650&page=2
Vẽ biểu đồ bằng VBA;

 

[nhtien]

Mình đang muốn vẽ 1 biểu đồ bằng lập trình VBA. Với trục hoành (Pi) do mình thiết lập từ 0% -100% theo các khoảng cách không đều nhau ( cái này trong thống kê thủy văn còn gọi là giấy xác suất), trục tung là các giá trị biến tương ứng với các Pi%.Bác nào có lòng hảo tâm giúp mình với.Thanks!

 

[SA_DQ]

(ụ thể cái đi, sẽ được giúp nhanh hơn!

Mình đang muốn vẽ 1 biểu đồ bằng lập trình VBA. Với trục hoành (Pi) do mình thiết lập từ 0% -100% theo các khoảng cách không đều nhau ( cái này trong thống kê thủy văn còn gọi là giấy xác suất), trục tung là các giá trị biến tương ứng với các Pi%.Bác nào có lòng hảo tâm giúp mình với.Thanks!

Ở đây rất nhiều hảo thủ; /)/hưng bạn nên đưa file VD vẽ = tay của bạn lên; mọi hảo thủ mới có thể lượng sức mình mà zúp cụ thể cho bạn được!