luongtuananh83
Thành viên mới
- Tham gia
- 27/12/07
- Bài viết
- 19
- Được thích
- 0
Tôi vẽ biểu đồ chart radar dưa theo số liệu đầu vào là các hàng và các cột như file đính kèm Số lượng các hàng và các cột là thay đổi tùy theo từng trường hợp.
Code tôi viết như sau:
Charts.Add
With ActiveChart
.ChartType = xlRadarFilled
.HasTitle = True
.Location Where:=xlLocationAsObject, Name:=Tensheet
.ChartTitle.Characters.text = "WIND ROSE AT " & UCase(tentram) & "(" & startyear & "-" & endyear & ")"
.SetSourceData Source:=Sheets(Sheetcount).Range(.Cells(R1 - 1, C1), .Cells(R1 + 15, C1 + Levels + 1)), PlotBy:=xlColumns
End With
Trong đó các biến trong Range chứa dữ liệu của chart
Xin hỏi code trên tôi viêt sai ở đâu. Nhờ các bạn sửa giúp. Cám ơn nhiều.
Code tôi viết như sau:
Charts.Add
With ActiveChart
.ChartType = xlRadarFilled
.HasTitle = True
.Location Where:=xlLocationAsObject, Name:=Tensheet
.ChartTitle.Characters.text = "WIND ROSE AT " & UCase(tentram) & "(" & startyear & "-" & endyear & ")"
.SetSourceData Source:=Sheets(Sheetcount).Range(.Cells(R1 - 1, C1), .Cells(R1 + 15, C1 + Levels + 1)), PlotBy:=xlColumns
End With
Trong đó các biến trong Range chứa dữ liệu của chart
Xin hỏi code trên tôi viêt sai ở đâu. Nhờ các bạn sửa giúp. Cám ơn nhiều.
Lần chỉnh sửa cuối:
