Cách cop định dạng "tô màu tăng giảm của 1 dòng" cho các dòng dưới nó không liên tục

[Thảo Ara]

Chào mọi người,

Mọi người cho em hỏi có cách nào để copy định dạng "tô màu tăng giảm của 1 dòng" cho các dòng dưới nó nhưng không liên tục không ạ.

Hình như sau ạ: (này là em copy định dạng từng dòng cho tổng 1 khách, nhưng mà đến mấy trăng dòng nên lâu lắm ạ, nếu lọc các dòng khách r cop xuống cũng không được, vì nó sẽ hiểu là định dạng cho toàn bộ dữ liệu trong các dòng mình chọn chứ ko phải định dạng trong 1 dòng, như thế nó sẽ tô màu không đúng.)



Rất mong được mọi người giúp đỡ, em cảm ơn ạ.

 

[Nhattanktnn]

Chào mọi người,

Mọi người cho em hỏi có cách nào để copy định dạng "tô màu tăng giảm của 1 dòng" cho các dòng dưới nó nhưng không liên tục không ạ.

Hình như sau ạ: (này là em copy định dạng từng dòng cho tổng 1 khách, nhưng mà đến mấy trăng dòng nên lâu lắm ạ, nếu lọc các dòng khách r cop xuống cũng không được, vì nó sẽ hiểu là định dạng cho toàn bộ dữ liệu trong các dòng mình chọn chứ ko phải định dạng trong 1 dòng, như thế nó sẽ tô màu không đúng.)

View attachment 249721

Rất mong được mọi người giúp đỡ, em cảm ơn ạ.

Đưa file lên bạn, bạn đang muốn tô màu chỗ nào vậy? Dòng khách X, Y?

 

[Thảo Ara]

Đưa file lên bạn, bạn đang muốn tô màu chỗ nào vậy? Dòng khách X, Y?

Vâng, mình muốn tô dòng tổng total khách ý ạ, mà ko phải = cách cop định dạng rồi quét từng dòng. Vì file mình mấy trăm dòng tổng lận.

 

[bomberman211]

nếu lọc các dòng khách r cop xuống cũng không được

Lọc các dòng khách-> copy dòng có format ->Chọn các dòng còn lại muốn dán format->F5->Specical->Visible cells only->OK->Paste format->Xong

 

[Lê Duy Thương]

Vâng, mình muốn tô dòng tổng total khách ý ạ, mà ko phải = cách cop định dạng rồi quét từng dòng. Vì file mình mấy trăm dòng tổng lận.

Thử định dạnh theo điều kiện xem sao : "Condition formatting"

 

[Thảo Ara]

Lọc các dòng khách-> copy dòng có format ->Chọn các dòng còn lại muốn dán format->F5->Specical->Visible cells only->OK->Paste format->Xong

Hi bạn ơi, past vầy nó đang hiểu sẽ tô màu ko phải theo giá trị lớn nhỏ trong 1 dòng mà là giá trị của all các dòng

bạn để ý thấy mấy dòng phía dưới ko hề có ô nào màu hồng đậm maximum, vì nó đang hiểu ô lớn nhất là dòng gốc đầu tiên rồi (ô 513,527 màu đậm nhất).
mà đáng lẽ là mỗi dòng phải có 1 số lớn nhất - màu hồng đậm nhất cho chính dòng đó ý bạn.

Bài đã được tự động gộp: 20/11/20

Thử định dạnh theo điều kiện xem sao : "Condition formatting"

Định dạng theo điều kiện nó không có tô màu tăng giảm theo giá trị bạn ui huhu.

 

[bomberman211]

Hi bạn ơi, past vầy nó đang hiểu sẽ tô màu ko phải theo giá trị lớn nhỏ trong 1 dòng mà là giá trị của all các dòng

Uầy, mình không để ý bạn đăng bài vào mục lập trình với Excel. Cái này đúng là phải nhờ các chuyên gia viết code xử lí thôi

 

[Thảo Ara]

Uầy, mình không để ý bạn đăng bài vào mục lập trình với Excel. Cái này đúng là phải nhờ các chuyên gia viết code xử lí thôi

ý, hihi mình ko để ý thư mục, mình nghĩ cái này chắc cũng ko cần tới lập trình đâu huhu, mà mò hoài ko ra.

 

[Nhattanktnn]

Nhìn cũng đơn giản mà đúng là cần lập trình thật

 

[Phuocam]

Thử định dạng theo công thức này:

=(LEFT($A6,5)="total")*(C6>B6)

 

[Thảo Ara]

Thử định dạng theo công thức này:

=(LEFT($A6,5)="total")*(C6>B6)

Hi mình chưa hiểu cách này lắm, mình mở file ko thấy cái rules định dạng nào nè.

 

[bomberman211]

ý, hihi mình ko để ý thư mục, mình nghĩ cái này chắc cũng ko cần tới lập trình đâu huhu, mà mò hoài ko ra.

Bạn xem file thử, cái này không dùng code không làm được đâu. Nào muốn copy CF thì bấm nút file tự chạy nhé.

 

[Thảo Ara]

Bạn xem file thử, cái này không dùng code không làm được đâu. Nào muốn copy CF thì bấm nút file tự chạy nhé.

View attachment 249773

Ôi cảm ơn bạn nhé, nếu được bạn có thể chỉ các bước tạo code VBA này được ko ạ, chỉ cần nói bước thôi, mình sẽ tự nghiên cứu tiếp ạ hihi. Cảm ơn bạn nhiềuuuuuu

 

[Nhattanktnn]

Ôi cảm ơn bạn nhé, nếu được bạn có thể chỉ các bước tạo code VBA này được ko ạ, chỉ cần nói bước thôi, mình sẽ tự nghiên cứu tiếp ạ hihi. Cảm ơn bạn nhiềuuuuuu

Bạn đã biết gì về VBA chưa? Nếu chưa thì...khó nói lắm

 

[Thảo Ara]

Bạn đã biết gì về VBA chưa? Nếu chưa thì...khó nói lắm

Mình biết sơ sơ, đang tính về xem youtube để nghe thêm, sr sáng h lubu nên rep trễ, nói chung theo mình hiểu là all đoạn code trong VBA không phải gõ tay từng chữ, mà là chọn thao tác cú pháp rồi nó sẽ hiện ta các đoạn code tương ứng thôi, rồi nếu muốn f5 gì đó thì chỉ cần vô lại đoạn code sửa 1 vài chỗ là ok, đng tính xin zalo bạn nè hihi.

 

[Nhattanktnn]

Mình biết sơ sơ, đang tính về xem youtube để nghe thêm, sr sáng h lubu nên rep trễ, nói chung theo mình hiểu là all đoạn code trong VBA không phải gõ tay từng chữ, mà là chọn thao tác cú pháp rồi nó sẽ hiện ta các đoạn code tương ứng thôi, rồi nếu muốn f5 gì đó thì chỉ cần vô lại đoạn code sửa 1 vài chỗ là ok, đng tính xin zalo bạn nè hihi.

Ồ gõ tay đấy bạn ơi , nhưng biết cú pháp của nó, nhiều cái cũng không nhớ lắm chứ, khi đó phải google hoặc record macro. Như khúc định đạng dòng đầu bạn thử record xem sao
File đó chỉ copy định dạng từ dòng đầu thôi chứ không tự động định dạng đâu nha, cho nên nếu dòng format đầu tiên không có là không chạy đâu đó (mình lười mở file xem lại, dòng 6 hay 7 gì đó - tức mình gọi dòng format đầu)
Chú ý: Đừng viết tắt nhé

 

[Lê Duy Thương]

Mình biết sơ sơ, đang tính về xem youtube để nghe thêm, sr sáng h lubu nên rep trễ, nói chung theo mình hiểu là all đoạn code trong VBA không phải gõ tay từng chữ, mà là chọn thao tác cú pháp rồi nó sẽ hiện ta các đoạn code tương ứng thôi, rồi nếu muốn f5 gì đó thì chỉ cần vô lại đoạn code sửa 1 vài chỗ là ok, đng tính xin zalo bạn nè hihi.

thì thử dùng cái này xem. chú ý định dạng cho dòng số 6 trước khi chạy code

Sub CFMT()
Application.ScreenUpdating = False
Dim i As Long
For i = 7 To ActiveSheet.Range("A6").CurrentRegion.Rows.Count
ActiveSheet.Range("A6:N6").Copy
If UCase(Left(ActiveSheet.Range("A" & i), 5)) = "TOTAL" Then ActiveSheet.Range("A" & i).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
Next
Application.ScreenUpdating = True
End Sub

 

[Thảo Ara]

Ồ gõ tay đấy bạn ơi , nhưng biết cú pháp của nó, nhiều cái cũng không nhớ lắm chứ, khi đó phải google hoặc record macro. Như khúc định đạng dòng đầu bạn thử record xem sao
File đó chỉ copy định dạng từ dòng đầu thôi chứ không tự động định dạng đâu nha, cho nên nếu dòng format đầu tiên không có là không chạy đâu đó (mình lười mở file xem lại, dòng 6 hay 7 gì đó - tức mình gọi dòng format đầu)
Chú ý: Đừng viết tắt nhé

Cảm ơn bạn nhé, mình sẽ mò cho ra cách thực hiện VBA này.

Bài đã được tự động gộp: 21/11/20

thì thử dùng cái này xem. chú ý định dạng cho dòng số 6 trước khi chạy code

Sub CFMT()
Application.ScreenUpdating = False
Dim i As Long
For i = 7 To ActiveSheet.Range("A6").CurrentRegion.Rows.Count
ActiveSheet.Range("A6:N6").Copy
If UCase(Left(ActiveSheet.Range("A" & i), 5)) = "TOTAL" Then ActiveSheet.Range("A" & i).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
Next
Application.ScreenUpdating = True
End Sub

Cảm ơn bạn nha.

 

[bomberman211]

Ôi cảm ơn bạn nhé, nếu được bạn có thể chỉ các bước tạo code VBA này được ko ạ, chỉ cần nói bước thôi, mình sẽ tự nghiên cứu tiếp ạ hihi. Cảm ơn bạn nhiềuuuuuu

Code cho bài này khá đơn giản, chỉ cần bạn biết
1. record macro (có vẻ bạn biết rồi, chính là cho Excel "tự viết code đó")
2. vòng lặp for-to, điều kiện if (y chang lập trình Pascal hồi cấp 3 có học)

Thêm mắm thêm muối chút nữa là ra.
Còn muốn tự tìm hiểu về VBA thì tìm hiểu qua chức năng record macro cũng ổn đó. Trước mình cũng mày mò theo cách này. Cái code VBA hoàn chỉnh đầu tiên của mình 100% được tạo ra bằng cách record macro từng thao tác nhỏ rồi cắt ghép lại thôi.