Nhờ viết Macro tạo Chart mỗi Series có màu khác nhau

[AutoReply]

Mình có thu Macro tạo Chart sao cho mỗi Series mang màu khác nhau. Chọn như hình

Bộ thu Macro ra đoạn code

Shapes.AddChart2(201, xlColumnClustered)

Nhưng có vẻ như bị thiếu gì đó nên khi chạy lại đoạn macro vừa thu thì chỉ ra cái biểu đồ 1 màu.
Nhờ các bạn giúp mình xem code bị thiếu lệnh nào ? Không lẽ phải chạy vòng lặp đi Format cho từng series mới đúng chăng ?

 

[ndu96081631]

Mình có thu Macro tạo Chart sao cho mỗi Series mang màu khác nhau. Chọn như hình

Bộ thu Macro ra đoạn code

Shapes.AddChart2(201, xlColumnClustered)

Nhưng có vẻ như bị thiếu gì đó nên khi chạy lại đoạn macro vừa thu thì chỉ ra cái biểu đồ 1 màu.
Nhờ các bạn giúp mình xem code bị thiếu lệnh nào ? Không lẽ phải chạy vòng lặp đi Format cho từng series mới đúng chăng ?

Chắc là thiếu cái ChartGroups(1).VaryByCategories = True

 

[AutoReply]

Chắc là thiếu cái ChartGroups(1).VaryByCategories = True

Cám ơn anh. Em đã làm theo và đạt kết quả. Nhưng em muốn biết lệnh trên có thu bằng Record Macro được không anh ?

 

[hpkhuong]

Cám ơn anh. Em đã làm theo và đạt kết quả. Nhưng em muốn biết lệnh trên có thu bằng Record Macro được không anh ?

Thử thu Record macro thì không có dòng đó.
Có những cái không thu được bằng record. Thật khó hiểu.

 

[NguyenNgocThuHien]

Cám ơn anh. Em đã làm theo và đạt kết quả. Nhưng em muốn biết lệnh trên có thu bằng Record Macro được không anh ?

ActiveSheet.Shapes.AddChart(201, xlColumnClustered).Select
    ActiveChart.SetSourceData Source:=Range("Sheet1!$C$3:$D$7"), PlotBy:=xlRows

Có lẽ chỉ những thứ gì ta thao tác được, thay đổi chỉnh sửa mới được macro thu lại.

 

[ndu96081631]

Có lẽ chỉ những thứ gì ta thao tác được, thay đổi chỉnh sửa mới được macro thu lại.

Thì cái chuyện đổi màu ấy ta cũng thao tác được bằng tay đấy thôi mà có thu macro được đâu
Tương tự như chuyện Find and Replace cho nhiều sheet, làm bằng tay được mà thu macro chả thấy ghi. Hoặc chuyện nén hình trong excel, cũng làm bằng tay được mà thu macro không ăn thua
Vân vân... và... mây mây... rất nhiều thứ khác nữa... Ai biết có gì trong trái ổi
------------------------------

Cám ơn anh. Em đã làm theo và đạt kết quả. Nhưng em muốn biết lệnh trên có thu bằng Record Macro được không anh ?

Cuối cùng là... tôi không biết!
Ngay cả bài bạn hỏi ở đây cũng vậy! Nếu trước đây chưa từng "đụng" ở đây:
http://www.giaiphapexcel.com/diendan/threads/vẽ-xóa-biểu-đồ-bằng-vba-nhờ-giúp-đỡ.125662/
thì chắc cũng không biết đường mà tìm