Định dạng chart bị thay đổi khi tắt và mở lại file excel

[ketoan113]

em chào các anh chị
thắc mắc này em có hỏi nhưng diễn đàn bị lỗi nên không lưu được
em đăng hỏi lại nhờ anh chị giúp đỡ ạ
em giải thich 1 chút về dữ liệu file
1, dữ liệu được lấy về ở sheet NN, dữ liệu động khi thay đổi thời gian
2, khi dữ liêu được lấy về, em dùng pivot table tổng hợp và vẽ chart
số dương là màu xanh, số âm là cột màu đỏ
nhưng khi tắt file excel và mở lại thì định dạng cột màu đỏ lại trở thành màu trắng


sau khi tắt và mở file thì định dạng cột màu đỏ thành màu trắng



cho em hỏi cách khắc phục
em cảm ơn anh/chị

 

[ptm0412]

nhưng khi tắt file excel và mở lại thì định dạng cột màu đỏ lại trở thành màu trắng

Tôi thực hiện thì không bị đổi màu. Excel 365. Thậm chí dữ liệu lấy nhiều hơn, refresh pivot table

 

[leonguyenz]

em chào các anh chị
...
cho em hỏi cách khắc phục
em cảm ơn anh/chị

Đã thử đổi lại màu, đóng và mở file lại, lấy số liệu mới, Refresh, màu số âm vẫn không thay đổi.

 

[ketoan113]

Đã thử đổi lại màu, đóng và mở file lại, lấy số liệu mới, Refresh, màu số âm vẫn không thay đổi.

View attachment 295344

sao file bên em bị thay đổi vậy các anh?
có liên quan gì về office không các anh nhỉ?

 

[leonguyenz]

sao file bên em bị thay đổi vậy các anh?
có liên quan gì về office không các anh nhỉ?

Thử Save As lại đuôi file .xlsm, đổi lại màu đỏ, đóng lại và mở lên lần nữa xem.

 

[ketoan113]

Thử Save As lại đuôi file .xlsm, đổi lại màu đỏ, đóng lại và mở lên lần nữa xem.

em lưu dạng .xlsm nhưng vẫn không được
em đang tìm cách viết thêm code vba fill màu xem được không
em đang google code này

 

[Cá ngừ F1]

em lưu dạng .xlsm nhưng vẫn không được
em đang tìm cách viết thêm code vba fill màu xem được không
em đang google code này

Híc,
Sao Chart mà cũng dùng đến Code vậy?
Hay thử vẽ bằng tay thế này đi, xem sao.

 

[ketoan113]

Thử Save As lại đuôi file .xlsm, đổi lại màu đỏ, đóng lại và mở lên lần nữa xem.

Híc,
Sao Chart mà cũng dùng đến Code vậy?
Hay thử vẽ bằng tay thế này đi, xem sao.
View attachment 295347

vì cách làm hiện tại đang bị lỗi nên em mới tìm cách code fill cho chart

 

[ketoan113]

nhờ anh/chị giúp em phần code vẽ chart màu đỏ cho số âm
code này em tìm google mới vẽ được cho số dương là màu xanh thôi

em cảm ơn anh/chị

Sub Vemau_chart()
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 255, 0)
.Transparency = 0
.Solid
End With
End Sub

 

[ongke0711]

nhưng khi tắt file excel và mở lại thì định dạng cột màu đỏ lại trở thành màu trắng

sau khi tắt và mở file thì định dạng cột màu đỏ thành màu trắng

Tôi nghĩ chắc là lỗi do phiên bản Office khi dùng Pivot Chart. Tôi thử trên Office 2013 thì lỗi như bạn nói, còn mở trên O365 thì không lỗi gì.
Nếu dùng Chart thường như bạn Cá Ngừ F1 làm thì không lỗi ở cả 2 phiên bản Office. Chắc là một cái Bug gì đó ở tính năng Invert Color ở các phiên bản Office cũ.

 

[ketoan113]

Tôi nghĩ chắc là lỗi do phiên bản Office khi dùng Pivot Chart. Tôi thử trên Office 2013 thì lỗi như bạn nói, còn mở trên O365 thì không lỗi gì.
Nếu dùng Chart thường như bạn Cá Ngừ F1 làm thì không lỗi ở cả 2 phiên bản Office. Chắc là một cái Bug gì đó ở tính năng Invert Color ở các phiên bản Office cũ.

dữ liệu em làm là dữ liệu động
khi dữ liệu thay đổi thì pivot tự động tổng hợp và vẽ chart (mục đích chính là tự động để tiết kiệm thời gian)
chứ vẽ tay thì mất tính tự động rồi

 

[ptm0412]

Bạn thử file này xem

 

[ongke0711]

Bạn thử file này xem

Một cách lách lỗi ...

 

[ptm0412]

Một cách lách lỗi ...

Đó là giả dịnh không biết cách fill invert color when negative, phải đi đường vòng

 

[ketoan113]

Bạn thử file này xem

giải thích thêm dùm em với
em còn áp dụng cho các file khác tương tự

 

[ptm0412]

giải thích thêm dùm em với
em còn áp dụng cho các file khác tương tự

Bạn thấy 2 cột mới positive và negative không?
Nó là calculated field

 

[ketoan113]

nếu được nhờ anh/chị giúp em viết 1 code vba cho chart: số dương màu xanh, sổ âm màu đỏ

để khi em chuyển sang sheet chart, em call macro đó là xong (1 cách lách)

em cảm ơn các anh/chị

 

[ptm0412]

nếu được nhờ anh/chị giúp em viết 1 code vba cho chart: số dương màu xanh, sổ âm màu đỏ

Tôi viết code không ra nên mới phải lách. Hơn nữa cách dùng calculated field, nói chung là pivot chart, nằm chung sheet hay riêng trong chart sheet thì chẳng khác gì.

 

[ketoan113]

Tôi viết code không ra nên mới phải lách. Hơn nữa cách dùng calculated field, nói chung là pivot chart, nằm chung sheet hay riêng trong chart sheet thì chẳng khác gì.

em cảm ơn anh nhiều

 

[ketoan113]

em có google và tìm được code
anh/chị có thể tham khảo và tuỳ biến 1 chút sẽ ra

Sub Doimau_chart()

ActiveChart.SeriesCollection(1).InvertIfNegative = False
ActiveChart.SeriesCollection(1).InvertColor = RGB(0, 255, 0) 'blue

ActiveChart.SeriesCollection(1).InvertIfNegative = True
ActiveChart.SeriesCollection(1).InvertColor = RGB(255, 0, 0) 'red

End Sub