Tìm ô đã được tô màu

[doanthuha203]

Bây giờ em có một cột STT trong đó những ô làm rồi em đã tô màu. Vậy bằng cách nào em tìm được các ô đã tô màu trong cột STT đó. Các anh/ chị mách em với. Em cảm ơn các anh/ chị.

 

[SA_DQ]

To thanhxt2009;176039 & các bạn

Mình mạn phép ra câu hỏi như sau:

Tôi có cột số ở 'A' tăng từ 0-9;

Trong đó có 3 số bất ký tô màu font đỏ, ba số khác lại tô màu xanh

Nhờ các bạn giúp xếp them trật tự Xanh=> đỏ => không (đỏ/xanh)

Xin cảm ơn nhiều!

|A|
| STT |
| 2 |
| 5 |
| 0 |
|7|
| 6 |
|9|
| 8 |
|1|
| 3 |
|4|
||

 

[thanhxt2009]

Gởi trà lời cho bạn nè!

To thanhxt2009;176039 & các bạn

Mình mạn phép ra câu hỏi như sau:

Tôi có cột số ở 'A' tăng từ 0-9;

Trong đó có 3 số bất ký tô màu font đỏ, ba số khác lại tô màu xanh

Nhờ các bạn giúp xếp them trật tự Xanh=> đỏ => không (đỏ/xanh)

Xin cảm ơn nhiều!

|A|
| STT |
| 2 |
| 5 |
| 0 |
|7|
| 6 |
|9|
| 8 |
|1|
| 3 |
|4|
||

Xem fỉle kèm theo coi giống với yêu cầu của không nhé!
Bài này mình làm trên Excel 2007 còn trên Excel 2003 mình chưa làm!
Cách làm như sau:
B1: Quét khối từ ô A1:A11
B2: Chọn Tab Data >> Click chọn Sort
B3: Phần Column, ô Sort by chọn STT, ô Sort on chọn Font color, ô Order chọn lần lượt thứ tự màu theo yêu cầu
B4: Click nút OK
Mong các bạn gần xa chỉ giáo thêm!
Thân chào!

 

[ndu96081631]

To thanhxt2009;176039 & các bạn

Mình mạn phép ra câu hỏi như sau:

Tôi có cột số ở 'A' tăng từ 0-9;

Trong đó có 3 số bất ký tô màu font đỏ, ba số khác lại tô màu xanh

Nhờ các bạn giúp xếp them trật tự Xanh=> đỏ => không (đỏ/xanh)

Xin cảm ơn nhiều!

|A|
| STT |
| 2 |
| 5 |
| 0 |
|7|
| 6 |
|9|
| 8 |
|1|
| 3 |
|4|
||

Dể nhất là dùng hàm XL4, điịnh nghĩa 1 name:
Đặt con trỏ chuột tại dòng 2 và tạo name
FColor =GET.CELL(24+NOW()*0,Sheet1!$A2)
Sau đó tại cell B2, gõ công thức = FColor
Cuối cùng là sort dử liệu giảm dần theo cột B
--------------------------

Xem fỉle kèm theo coi giống với yêu cầu của không nhé!
Bài này mình làm trên Excel 2007 còn trên Excel 2003 mình chưa làm!
Cách làm như sau:
B1: Quét khối từ ô A1:A11
B2: Chọn Tab Data >> Click chọn Sort
B3: Phần Column, ô Sort by chọn STT, ô Sort on chọn Font color, ô Order chọn lần lượt thứ tự màu theo yêu cầu
B4: Click nút OK
Mong các bạn gần xa chỉ giáo thêm!
Thân chào!

Chắc đồng chí này đang nói đến Excel 2007 chứ Excel 2003 làm gì có vụ này

 

[sealand]

Mình có 4 sub sau;

[COLOR=SeaGreen]'==================================================================
'Tim o dau tien co mau nen hay mau chu[/COLOR]
Sub timmau()
For Each cll In Sheet1.Range("A1:A" & Sheet1.[A56356].End(xlUp).Row)
If cll.Interior.ColorIndex <> -4142 Or cll.Font.ColorIndex <> -4105 Then cll.Select: Exit Sub
Next
End Sub
[COLOR=SeaGreen]'==================================================================
'Xoa mau ve mac dinh[/COLOR]
Sub xoa()
Selection.Interior.ColorIndex = -4142
Selection.Font.ColorIndex = -4105
End Sub
[COLOR=SeaGreen]'===================================================================
'Loc cac o mau[/COLOR]
Sub locmau()
Application.ScreenUpdating = False
For Each cll In Sheet1.Range("A2:A" & Sheet1.[A56356].End(xlUp).Row)
If cll.Interior.ColorIndex <> -4142 Or cll.Font.ColorIndex <> -4105 Then
Sheet1.Rows(cll.Row).EntireRow.Hidden = False
Else
Sheet1.Rows(cll.Row).EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub
[COLOR=SeaGreen]'==========================================================================
'Bo loc, hien tat ca[/COLOR]
Sub boloc()
    Sheet1.Rows.EntireRow.Hidden = False
End Sub
[COLOR=SeaGreen]'==========================================================================[/COLOR]

P/S: Lụi hụi xong chủ đè chuyển hướng, nhờ Mod xóa giùm

 

[thanhxt2009]

Gởi lời cảm ơn về cách làm của bạn ndu96081631!

Dể nhất là dùng hàm XL4, điịnh nghĩa 1 name:
Đặt con trỏ chuột tại dòng 2 và tạo name
FColor =GET.CELL(24+NOW()*0,Sheet1!$A2)
Sau đó tại cell B2, gõ công thức = FColor
Cuối cùng là sort dử liệu giảm dần theo cột B
--------------------------

Chắc đồng chí này đang nói đến Excel 2007 chứ Excel 2003 làm gì có vụ này

Cám ơn cách làm của bạn nhé!
Mong bạn giải thích cái này dùm, mình chưa hiểu lắm!

[B]FColor =GET.CELL(24+NOW()*0,Sheet1!$A2)[/B]

Thân chào!

 

[ndu96081631]

Cám ơn cách làm của bạn nhé!
Mong bạn giải thích cái này dùm, mình chưa hiểu lắm!

[B]FColor =GET.CELL(24+NOW()*0,Sheet1!$A2)[/B]

Thân chào!

Đây là bộ hàm Macro 4 (không có trong danh sách hàm của Excel đâu)
Hàm GET.CELL(24,...) chuyên dùng để lấy chỉ số màu của font chữ
Bạn cứ làm như tôi hướng dẩn ở trên sẽ biết ngay

 

[thanhxt2009]

Gởi lời cám ơn đến bạn ndu96081631 nhé!

Đây là bộ hàm Macro 4 (không có trong danh sách hàm của Excel đâu)
Hàm GET.CELL(24,...) chuyên dùng để lấy chỉ số màu của font chữ
Bạn cứ làm như tôi hướng dẩn ở trên sẽ biết ngay

Cám ơn bạn nhiều nhé!
Vậy ngoài hàm này ra còn có các hàm nào trong bộ hàm Macro 4? Bạn giới thiệu luôn được không?
Thân chào!

 

[ndu96081631]

Cám ơn bạn nhiều nhé!
Vậy ngoài hàm này ra còn có các hàm nào trong bộ hàm Macro 4? Bạn giới thiệu luôn được không?
Thân chào!

Cả 1 trời luôn... Tải tài liệu này về xem:
http://www.giaiphapexcel.com/forum/showpost.php?p=16629&postcount=9
và 1 bài viết về ứng dụng:
http://www.giaiphapexcel.com/forum/showthread.php?t=7613

 

[bivily]

Mình có 4 sub sau;

[COLOR=SeaGreen]'==================================================================
'Tim o dau tien co mau nen hay mau chu[/COLOR]
Sub timmau()
For Each cll In Sheet1.Range("A1:A" & Sheet1.[A56356].End(xlUp).Row)
If cll.Interior.ColorIndex <> -4142 Or cll.Font.ColorIndex <> -4105 Then cll.Select: Exit Sub
Next
End Sub
[COLOR=SeaGreen]'==================================================================
'Xoa mau ve mac dinh[/COLOR]
Sub xoa()
Selection.Interior.ColorIndex = -4142
Selection.Font.ColorIndex = -4105
End Sub
[COLOR=SeaGreen]'===================================================================
'Loc cac o mau[/COLOR]
Sub locmau()
Application.ScreenUpdating = False
For Each cll In Sheet1.Range("A2:A" & Sheet1.[A56356].End(xlUp).Row)
If cll.Interior.ColorIndex <> -4142 Or cll.Font.ColorIndex <> -4105 Then
Sheet1.Rows(cll.Row).EntireRow.Hidden = False
Else
Sheet1.Rows(cll.Row).EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub
[COLOR=SeaGreen]'==========================================================================
'Bo loc, hien tat ca[/COLOR]
Sub boloc()
    Sheet1.Rows.EntireRow.Hidden = False
End Sub
[COLOR=SeaGreen]'==========================================================================[/COLOR]

P/S: Lụi hụi xong chủ đè chuyển hướng, nhờ Mod xóa giùm

Mình đang cần cái lọc theo màu này! Nhưng hình như nó không lọc được màu khi tô bằng Conditional Formating bạn à.

Mình đang muốn đếm những ô được tô màu theo Conditional Formating mà chưa làm được. Xin các cao thủ chỉ giáo thêm cho mình được không?

 

[ndu96081631]

Mình đang cần cái lọc theo màu này! Nhưng hình như nó không lọc được màu khi tô bằng Conditional Formating bạn à.

Mình đang muốn đếm những ô được tô màu theo Conditional Formating mà chưa làm được. Xin các cao thủ chỉ giáo thêm cho mình được không?

Nếu là Conditional Formating thì người ta làm khác: Cứ dùng điều kiện gì để tô màu thì lấy điều kiện đó để lọc
(chả ai dại gì đi lọc dựa vào màu sắc ---> Mà dù có muốn có cũng khó mà thực hiện)

 

[tuyenbw]

Hi All

Trong khi tìm kiếm cách đếm cell màu có điều kiện, tôi tìm được một marco run được nhưng vẫn còn một điểm chưa hay lắm là phải chọn từng hàng/ cột, rồi chạy macro để lấy kết quả.
Xin phép share cả nhà tham khảo.
Và link này cũng có rất nhiều Function cho việc sum, count cell màu (cả background và font color)

https://www.ablebits.com/office-addins-blog/2013/12/12/count-sort-by-color-excel/#count-cells-color

Marco:
Sub SumCountByConditionalFormat()
Dim indRefColor As Long
Dim cellCurrent As Range
Dim cntRes As Long
Dim sumRes
Dim cntCells As Long
Dim indCurCell As Long

cntRes = 0
sumRes = 0

cntCells = Selection.CountLarge
indRefColor = ActiveCell.DisplayFormat.Interior.Color

For indCurCell = 1 To (cntCells - 1)
If indRefColor = Selection(indCurCell).DisplayFormat.Interior.Color Then
cntRes = cntRes + 1
sumRes = WorksheetFunction.Sum(Selection(indCurCell), sumRes)
End If
Next
MsgBox "Count=" & cntRes & vbCrLf & "Sum= " & sumRes & vbCrLf & vbCrLf & _
"Color=" & Left("000000", 6 - Len(Hex(indRefColor))) & _
Hex(indRefColor) & vbCrLf, , "Count & Sum by Conditional Format color"
End Sub