Với bảng này thì sửa code sao cho đúng ạ!!

[lalalisa]

Sub a()
Dim chrt As Chart, i As Long
For i = 1 To 5
Set chrt = ActiveSheet.Shapes.AddChart2(201, xlColumnClustered, 100 + (i - 1) * 500, 50, 400, 300).Chart
With chrt
.SetSourceData Source:=Range("a1:b10")
.SeriesCollection(1).ChartType = xlLine
.SeriesCollection(1).AxisGroup = 1
With .SeriesCollection.NewSeries
.Values = Range("b2:b10").Offset(, i)
.Name = [c1].Offset(, i)
.ChartType = xlColumnClustered
.AxisGroup = 1
End With
End With
Next
End Sub

 

[cantl]

Không đọc nội quy, không diễn giải vấn đề rõ ràng, không tôn trọng người giúp mình. Tớ bắt đầu nhiễm cái tật khó tính của GPE rồi.

 

[barney1]

Không đọc nội quy, không diễn giải vấn đề rõ ràng, không tôn trọng người giúp mình. Tớ bắt đầu nhiễm cái tật khó tính của GPE rồi.

Cứ copy vui lên thế!
Người ta cũng có ý tốt , tạo công ăn việc làm ta?
Thân ái!!

 

[VetMini]

Cứ copy vui lên thế, ai rảnh quá, cả ngày KHÔNG có việc gì để làm thì giúp thôi.
Người ta cũng có ý tốt , tạo công ăn việc làm đó.
Thân ái!!

Nói như vậy là đụng chạm nhé.
Nhớ ngày nào có kẻ chê những người lên diễn đàn công nghệ giải bài là "ăn không ngồi rồi".

 

[ptm0412]

Nói như vậy là đụng chạm nhé.
Nhớ ngày nào có kẻ chê những người lên diễn đàn công nghệ giải bài là "ăn không ngồi rồi".

Và thế là sau đó ...

 

[SA_DQ]

Nói như vậy là đụng chạm nhé.
. . . . .

(1) Cảm ơn bạn rất nhiều do đã kịp ghi lại những lời của người 'cũng thuộc loại ăn không ngồi rồi'

←→ ← → ←→ ← → ←→ ← → ←→ ← → ←→ ← → ←→ ← → ←→ ← → ←→ ← → ←→ ← → ←→ ← → ←→ ← → ←→ ← →

(2) @gacel Khi mình sở hữu sổ hưu cũng là lúc mình tham gia diễn đàn (do BỊ rủ rê); & bạn nói đúng: Số lượng bài viết của mình trên này là do ăn không ngồi rồi đấy; Đó là điều đáng chê trách hay xấu xa sao?
/(/ếu không thì bạn nên xem lại cách xài từ ngữ tiếng Việt của bạn hơn!

 

[bebo021999]

help me !!! gấp trong ngày ạ. sửa code giúp e vs mn oi

Sub a() Dim chrt As Chart, i As Long For i = 1 To 5 Set chrt = ActiveSheet.Shapes.AddChart2(201, xlColumnClustered, 100 + (i - 1) * 500, 50, 400, 300).Chart With chrt .SetSourceData Source:=Range("a1:b10") .SeriesCollection(1).ChartType = xlLine...

www.giaiphapexcel.com

Bên kia đã vậy, chạy qua mở thêm bên này cũng chẳng khắc phục được gì cả.