Hỏi/ Tô màu bảng tính xen kẽ và high light dần theo dữ liệu nhập

[congacon521]

Mình có một bảng tính như file kèm.Nhờ các bạn chỉ giúp mình muốn trình bày :

1/ Tô màu các dòng sao cho khi nhập liệu cột P.
+Thì màu từ của một dòng ( ví dụ dòng 4) từ cột A tới O sẽ đậm dần ( hight light dần lên).
+Hoặc Màu sẽ đổ dần các ô từ cột A tới O
Song song với việc này thì nó sẽ phải bỏ được cái conditional fomatting mình đang áp tại dòng đó là =MOD(ROW(),2)>0,Bởi nếu có conditional này thì sẽ không đổ màu được

Ví dụ : Cột P, mình sẽ nhập giá trị từ 1 ->10
Nhập 1 thì màu sẽ đổ đậm ở ô B4 C4
Nhập 2 thì màu sẽ đổ dậm tiếp ở B4 C4 D4
Nhập 3 thì màu sẽ đổ đậm tiếp ở B4 C4 D4 E4

CÁm ơn mọi người đã theo dõi

 

[Ba Tê]

Mình có một bảng tính như file kèm.Nhờ các bạn chỉ giúp mình muốn trình bày :

1/ Tô màu các dòng sao cho khi nhập liệu cột P.
+Thì màu từ của một dòng ( ví dụ dòng 4) từ cột A tới O sẽ đậm dần ( hight light dần lên).
+Hoặc Màu sẽ đổ dần các ô từ cột A tới O
Song song với việc này thì nó sẽ phải bỏ được cái conditional fomatting mình đang áp tại dòng đó là =MOD(ROW(),2)>0,Bởi nếu có conditional này thì sẽ không đổ màu được

Ví dụ : Cột P, mình sẽ nhập giá trị từ 1 ->10
Nhập 1 thì màu sẽ đổ đậm ở ô B4 C4
Nhập 2 thì màu sẽ đổ dậm tiếp ở B4 C4 D4
Nhập 3 thì màu sẽ đổ dậm tiếp ở B4 C4 D4 E4

CÁm ơn mọi người đã theo dõi

Bạn thử xem file này nhé. Dùng VBA nên phải chọn Enable Macros.

 

[congacon521]

Bạn thử xem file này nhé. Dùng VBA nên phải chọn Enable Macros.

Hi Anh

Luột , ngon quá rồi ạ
Nhưng khi dữ liệu giảm nhỏ lại mình lùi lại màu nó ko lùi lại ạ.?
Với màu mình tinh chỉnh sang màu khác ở phần nào vây ạ
Và tăng vùng dữ lieeuh ( cột ) cho màu nó chạy lên thì tinh chỉnh trong phần nào vây ạ..Vì VB em mù tịt ạ
Các dòng đã dùng mod ( row) trong conditional fomat ting thì ko đổ được màu theo cách này ạ.Trừ phi mình bỏ conditional fomat ting đi a

 

[DMQ]

Sao em tải file Thầy Batê không được. Nó hiện ra 3 nút "Save" Save As" Cancel" em nhấn nút "Save" nó đơ như cây cơ.

 

[congacon521]

Tiện ở ở đây cho mình hỏi luôn cách làm tô màu, ví dụ
Viết chữ XAnh thì màu nền đổ xanh/
Vàng đổ vàng
Đổ đổ màu đỏ

Thì cần dùng chức năng nào của conditional fomatting trong exel ạ

 

[Ba Tê]

Hi Anh

Luột , ngon quá rồi ạ
Nhưng khi dữ liệu giảm nhỏ lại mình lùi lại màu nó ko lùi lại ạ.?
Với màu mình tinh chỉnh sang màu khác ở phần nào vây ạ
Và tăng vùng dữ lieeuh ( cột ) cho màu nó chạy lên thì tinh chỉnh trong phần nào vây ạ..Vì VB em mù tịt ạ
Các dòng đã dùng mod ( row) trong conditional fomat ting thì ko đổ được màu theo cách này ạ.Trừ phi mình bỏ conditional fomat ting đi a

- Nhưng khi dữ liệu giảm nhỏ lại mình lùi lại màu nó ko lùi lại ạ.?

+ Thay bằng cái này:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 16 Then
    If Target.Rows.Count = 1 Then
        Range("B" & Target.Row).Resize(, 14).Interior.ColorIndex = 0
        If Target.Value > 0 Then _
            Range("B" & Target.Row).Resize(, Target.Value + 1).Interior.ColorIndex = 36
    End If
End If
End Sub

- Với màu mình tinh chỉnh sang màu khác ở phần nào vây ạ

+ Thay số 36 trong dòng này:

Range("B" & Target.Row).Resize(, Target.Value + 1).Interior.ColorIndex = 36

-Và tăng vùng dữ lieeuh ( cột ) cho màu nó chạy lên thì tinh chỉnh trong phần nào vây ạ..Vì VB em mù tịt ạ

+ Không cần chỉnh gì cả, cứ nhập số vào côt P.

-Các dòng đã dùng mod ( row) trong conditional fomat ting thì ko đổ được màu theo cách này ạ.Trừ phi mình bỏ conditional fomat ting đi a

+ Xóa tất cả Conditional Formatting. (Không cần thiết trong Table này)