conditional formatting (1 người xem)

[mymichau]

Xin các anh hướng dẫn cách định dạng như sau:
Em có 1 bảng dử liệu từ cột A1 : D100. Nếu trong một hàng, tại cột có text là "DC", thì dòng đó được tô màu xám.
Nhờ các anh chỉ cách giải quyết bằng menu Format hoặc VBA cũng được. Xin cám ơn.

 

[tranan76]

Bạn tham khảo file này nhé

 

[mymichau]

Cám ơn anh. Nhưng em muốn cả hàng cơ (A1919)

 

[ThuNghi]

Tại A1, dùng conditional format
chọn formula is =COUNTIF($A1:$D1,"DC")>0
format màu gì tuỳ bạn
Copy format sang B1, C1, D1
Dùng công cụ format painter, chọn nguyên hàng 1, dán xuống dòng kế ...100

 

[Mr Okebab]

Xin các anh hướng dẫn cách định dạng như sau:
Em có 1 bảng dử liệu từ cột A1 : D100. Nếu trong một hàng, tại cột có text là "DC", thì dòng đó được tô màu xám.
Nhờ các anh chỉ cách giải quyết bằng menu Format hoặc VBA cũng được. Xin cám ơn.

Bạn xem qua nhé :
TH1 : Khi có 1 ô nào đó có giá trị = DC thì cả hàng sẽ tô màu
TH2 : Khi trong một ô nào đó có xuất hiện ký tự "DC" (VD : 12321DCkdj; hjgá DCmjk . . . ) thì cả hàng sẽ tô màu

Thân!

 

[xuantham]

Thế moi người có cách nào để khi con trỏ ở dòng nào thì dòng đó đổi màu nên lên không? Như vây sẽ thuân lơi cho viêc nhìn dữ liêụ cuả 1 record

 

[Mr Okebab]

Thế moi người có cách nào để khi con trỏ ở dòng nào thì dòng đó đổi màu nên lên không? Như vây sẽ thuân lơi cho viêc nhìn dữ liêụ cuả 1 record

Được chị ạ. Tuy nhiên phải dùng VBA thôi.

Chị xem nhé :


Thân!

 

[thienkem]

Tôi có một bài toán tương tự như sau:
Giả sử tại dòng thứ nhất A1 có giá trị là 5
Dòng tiếp theo tại các cell A2, B2, C2, D2, E2,... có các giá trị khác nhau.
Phải làm thế nào để nếu như giá trị tại các cell hoặc A2 hoặc B2 hoặc C2 ,... nếu có giá trị là 5 thì đổi màu cell A1.
Nếu dùng Condition Formatting... trong excel thì chỉ dùng được 3 điều kiện.

Help me!!!!!!

 

[thienkem]

Tôi có một bài toán tương tự như sau:
Giả sử tại dòng thứ nhất A1 có giá trị là 5
Dòng tiếp theo tại các cell A2, B2, C2, D2, E2,... có các giá trị khác nhau.
Phải làm thế nào để nếu như giá trị tại các cell hoặc A2 hoặc B2 hoặc C2 ,... nếu có giá trị là 5 thì đổi màu cell A1.
Nếu dùng Condition Formatting... trong excel thì chỉ dùng được 3 điều kiện.

Help me!!!!!!

 

[Mr Okebab]

Tôi có một bài toán tương tự như sau:
Giả sử tại dòng thứ nhất A1 có giá trị là 5
Dòng tiếp theo tại các cell A2, B2, C2, D2, E2,... có các giá trị khác nhau.
Phải làm thế nào để nếu như giá trị tại các cell hoặc A2 hoặc B2 hoặc C2 ,... nếu có giá trị là 5 thì đổi màu cell A1.
Nếu dùng Condition Formatting... trong excel thì chỉ dùng được 3 điều kiện.

Help me!!!!!!

Nói rõ : 3 điều kiện riêng biệt bạn ạ (khi không thể kết hợp được với nhau)

Dùng FC thì các bạn phải thật linh hoạt trong dùng các hàm AND và OR kết hợp với việc dùng địa chỉ tuyệt đối và tương đối.

VD:

Tại A1 : =(or(A2=5; B2=5; C2=5; D2=5. . . .))

Sau đó bạn chọn Format là có thể được như ý.

Thân!

 

[ThuNghi]

đặt B2.....X2 là mang
dùng hàm countif(mang,a1)>0 hay not(isna(match(a1,mang,0)))

 

[nvson]

Tôi có một bài toán tương tự như sau:
Giả sử tại dòng thứ nhất A1 có giá trị là 5
Dòng tiếp theo tại các cell A2, B2, C2, D2, E2,... có các giá trị khác nhau.
Phải làm thế nào để nếu như giá trị tại các cell hoặc A2 hoặc B2 hoặc C2 ,... nếu có giá trị là 5 thì đổi màu cell A1.
Nếu dùng Condition Formatting... trong excel thì chỉ dùng được 3 điều kiện.

Help me!!!!!!

Đơn giản thôi!
* Excel 2003
Đặt chuột vào ô A1, nhấn Format/ Conditional Formatting
Condtion 1: Bạn chọn Formula Is
Ô bên cạnh bạn đánh =SUMPRODUCT((2:2=5)*1)>0 hoặc =COUNTIF(2:2,5)>0
Nhấn vào nút Format để chọn mẫu tô trong tab Pattern
Nhấn OK để đóng hộp thoại.
* Excel 2007
Đặt chuột vào ô A1, nhấn Home/ Style/ Conditional Formatting/ New Rule, chọn Use a formula to .... (cái cuối cùng).
Trong ô Format values where this formula is true bạn đánh:
=SUMPRODUCT((2:2=5)*1)>0 hoặc =COUNTIF(2:2,5)>0
Nhấn vào nút Format để chọn mẫu tô trong tab Fill
Cuối cùng là nhấn OK.

 

[vumian]

Được chị ạ. Tuy nhiên phải dùng VBA thôi.

Chị xem nhé :


Thân!

HI Mr Okebab,

Tui muốn mở rộng ý thêm cái phần code của ông:
- Khi insert thêm dòng, cột trong phần range (nhiều hơn 5 cột và nhiều hơn 100 dòng) thì phần màu cũng được mở rộng theo
- File hiện tại của bác chỉ hiệu ứng row, giờ muốn vừa row vừa column

Thanks bác nhiều

 

[ThuNghi]

HI Mr Okebab,

Tui muốn mở rộng ý thêm cái phần code của ông:
- Khi insert thêm dòng, cột trong phần range (nhiều hơn 5 cột và nhiều hơn 100 dòng) thì phần màu cũng được mở rộng theo
- File hiện tại của bác chỉ hiệu ứng row, giờ muốn vừa row vừa column

Thanks bác nhiều

Bạn thay code này vào thử xem.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iR As Long, iC As Long
iR = S03.UsedRange.Rows.Count
iC = S03.UsedRange.Columns.Count
If Target.Row > iR Or Target.Column > iC Then Cells.Interior.ColorIndex = xlNone
If Target.Row < iR + 1 And Target.Column < iC + 1 Then
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
i = Target.Row
With Range(Cells(i, 1), Cells(i, iC)).Interior
.ColorIndex = 41
.Pattern = xlSolid
End With
j = Target.Column
With Range(Cells(1, j), Cells(iR, j)).Interior
.ColorIndex = 43
.Pattern = xlSolid
End With

Application.ScreenUpdating = True
End If
End Sub

 

[anhtuan1066]

Thế moi người có cách nào để khi con trỏ ở dòng nào thì dòng đó đổi màu nên lên không? Như vây sẽ thuân lơi cho viêc nhìn dữ liêụ cuả 1 record

Việc Highlight như thế đã nói nhiều trên diển đàn rồi... bạn TuanVNUNI cũng có file gần tương tự đây! Theo tôi là hay hơn cách highlight thông thường như ta vẫn làm bằng VBA... Vì phải coi chừng cái vụ nó xóa mất màu của ta đây!
Cách của anh Tuân thì ko tô màu dòng cột mà tạo ra 2 đường ngang dọc như trục tọa độ, ko ảnh hưởng tới màu sắc trong bảng tính
ANH TUẤN

 

[vumian]

Hi,Thanks ThuNghi , anhTuan1066 nhiều nhiều, nhưng mà

- Khi Copy nội dung trong range sang range khác cùng sheet đó thì không thể vì thuộc tính change làm mất vùng nhớ rùi, chỉ ảnh hường sheet này thôi ?
- Vậy mình có thể copy nội dung sang file khác, nhưng màu cũng theo luôn,

Có cách nào khắc phục 2 điều trên không bác

Thanks

 

[ThuNghi]

Bạn sửa hộ code nhé

R = S03.UsedRange.Rows.Count
iC = S03.UsedRange.Columns.Count

Thành

iR = ActiveSheet.UsedRange.Rows.Count
iC = ActiveSheet.UsedRange.Columns.Count

Khi selcet, copy mà xóa màu thì làm thử
Bạn thêm dòng sau:

With Cells(i, j).Interior
.ColorIndex = xlNone
End With

 

[vumian]

Hong duoc rùi Thu Nghi ui,

 

[ThuNghi]

Hong duoc rùi Thu Nghi ui,

Mỗi sh bạn gắn 1 code như vậy. Nếu change là có màu mè.

 

[vumian]

Mỗi sh bạn gắn 1 code như vậy. Nếu change là có màu mè.

ThuNghi oi,

Hiểu chưa đúng ý tui rùi, khi copy qua sheet khác, nằm ở file khác thì màu nó bị đi theo, tui chưa khắc phục được để bỏ màu nó ra ?

Thanks