Giá trị nào của cột C được lặp lại quá 2 lần thì toàn bộ dòng tương ứng sẽ bôi màu đỏ

[LinDan]

Tôi đang cần kiểm tra, đối chiếu các tài khoản đối ứng trên bảng CĐKT,

Yêu cầu đặt ra là nếu giá trị cột C nào xuất hiện quá 2 lần trở lên thì toàn bộ dòng đó sẽ được bôi chữ màu đỏ. Xin gửi file đính kèm, nhờ các bạn giúp

 

[trungvdb]

Chính xác là vậy!
Join(Mảng, dấu phân cách) sẽ nối các phần tử trong mảng với nhau bằng dấu phân cách
----------
Muốn dùng cho cột C thì quét chọn cột C thôi
Ẹc... Ẹc...

Trời, bài của thày tổng quát, muốn đơn giản cột nào thì chọn cột đó thôi, đơn giản vậy mà tôi không nghĩ được, cảm ơn thày rất nhiều.

Nhưng do những cái này chưa biết, nghiên cứu cũng rất tốt, vừa rồi có mạo muội làm thử xem như bài trên nhưng chạy không ra được kết quả, xin thày chỉ cho chỗ sai.

 

[ndu96081631]

Tôi thắc mắc là cú pháp: sRowColor SrcRng, 3 thì tại sao máy lại hiểu thành phần thứ 3 (tức là số 3) là đặc tính màu của vùng đó, mà không phải là các đặc tính của vùng như Font chữ, cỡ chữ nhỉ?

Hay là nó hiểu được là do cái từ Color trong câu Sub sRowColor(ByVal SrcRng As Range, ByVal Color As Long?

Nó hiểu nhờ vào câu này
SrcRng.Rows(Dic.Item(tmp)).Font.ColorIndex = Color
Tức đặt thuộc tính Font.ColorIndex của vùng SrcRng.Rows(Dic.Item(tmp)) chính bằng biến Color tức cho biến Color bằng bao nhiêu thì vùng SrcRng.Rows(Dic.Item(tmp)) sẽ "theo" màu như vậy
Để biết màu nào "ăn" với số nào, có thể thí nghiệm bằng code:

Sub Test()
 Dim i As Long
 For i = 1 To 56
   Cells(i, 1).Interior.ColorIndex = i
 Next
End Sub

Lưu ý
- Vung.Interior.ColorIndex là muốn nói đến màu nền
- Vung.Font.ColorIndex là muốn nói đến màu font chữ

Nhưng do những cái này chưa biết, nghiên cứu cũng rất tốt, vừa rồi có mạo muội làm thử xem như bài trên nhưng chạy không ra được kết quả, xin thày chỉ cho chỗ sai.

Sub có tham số truyền phải tổng quat, tức không được chỉ đến chính xác 1 vùng nào cả (khi nào xài mới "truyền")
Trong khi đó code của bạn lại có đoạn If DL(i, 3) <> "" Then thế hóa ra "buộc" phải luôn luôn làm việc với cột thứ 3 của Vung à? Vô lý! Nếu thế thì thà rằng viết 1 Sub bình thường cho rồi ---> "Truyền nước biển" làm gì cho mất công

 

[trungvdb]

Như vậy hiểu thế này có đúng không ah:

Những từ Color (được bôi màu đỏ) trong các câu:

+ SrcRng.Rows(Dic.Item(tmp)).Font.ColorIndex = Color.
+ Sub sRowColor(ByVal SrcRng As Range, ByVal Color As Long)

Phải hoàn toàn giống nhau và không được thay thế bằng từ khác? (vì nó là từ cứng được định nghĩa trong VBA)?

 

[trungvdb]

Sub có tham số truyền phải tổng quat, tức không được chỉ đến chính xác 1 vùng nào cả (khi nào xài mới "truyền")
Trong khi đó code của bạn lại có đoạn If DL(i, 3) <> "" Then thế hóa ra "buộc" phải luôn luôn làm việc với cột thứ 3 của Vung à? Vô lý! Nếu thế thì thà rằng viết 1 Sub bình thường cho rồi ---> "Truyền nước biển" làm gì cho mất công

Vâng, cái này tôi chưa biết, nghe thày giảng tôi đã làm được rồi

Sub Tomau()
 Dim Vung, DL(), i As Long, dongcuoi As Long
 Set Dic = CreateObject("Scripting.Dictionary")
  dongcuoi = [C65000].End(xlUp).Row
 Set Vung = Range("A1:C" & dongcuoi)
 DL = Vung.Value
 For i = 1 To UBound(DL, 1)
    If DL(i, 3) <> "" Then
      Tmp = DL(i, 3)
        If Not Dic.Exists(Tmp) Then
            Dic.Add Tmp, i
            Else
            Vung.Rows(Dic.Item(Tmp)).Font.ColorIndex = 3
            Vung.Rows(i).Font.ColorIndex = 3
        End If
    End If
  Next
  
 End Sub

* Qua bài này bản thân học được ở thày tình huống rất hay:

Vung.Rows(Dic.Item(Tmp)).Font.ColorIndex = 3
Vung.Rows(i).Font.ColorIndex = 3

Thế mới biết thằng "Đít" này lợi hại gớm, nếu sáng tạo ra thì nó có thể ứng dụng vào giải quyết rất nhiều bài chứ không chỉ đơn thuần là lọc duy nhất.

Cứ hôm nào vào GPE xem học những bài giải của thày thì bản thân lại học được ở thày những kiến thức vô cùng quý báu, xin chân thành cảm ơn thày rất nhiều.

 

[ndu96081631]

Như vậy hiểu thế này có đúng không ah:

Những từ Color (được bôi màu đỏ) trong các câu:

+ SrcRng.Rows(Dic.Item(tmp)).Font.ColorIndex = Color.
+ Sub sRowColor(ByVal SrcRng As Range, ByVal Color As Long)

Phải hoàn toàn giống nhau và không được thay thế bằng từ khác? (vì nó là từ cứng được định nghĩa trong VBA)?

Ah... không!
Cái màu đỏ ấy chỉ là tên biến, bạn thích thì cứ thay thành bất cứ từ nào cũng được
Đương nhiên, nếu tham số trong Sub bạn đặt tên là Mau
Sub sRowColor(ByVal SrcRng As Range, ByVal Mau As Long)
thì ở dưới cũng phải viết tên biến giống vậy
SrcRng.Rows(Dic.Item(tmp)).Font.ColorIndex = Mau
-------------------

Thế mới biết thằng "Đít" này lợi hại gớm, nếu sáng tạo ra thì nó có thể ứng dụng vào giải quyết rất nhiều bài chứ không chỉ đơn thuần là lọc duy nhất.

Không cần phải là bài toán LỌC DUY NHẤT, miễn sao có yếu tố DUY NHẤT hoặc yếu tố TỒN TẠI, KHÔNG TỒN TẠI trong đó là ta có thể nghĩ đến Dictionary (trong bài tô màu này là xét đến yếu tố tồn tại)
Ẹc... Ẹc....

 

[trungvdb]

Thành phần SrcRng.Font.ColorIndex = -4105 thày đưa vào nó có ý nghĩa gì thế?

 

[Hoàng Trọng Nghĩa]

Thành phần SrcRng.Font.ColorIndex = -4105 thày đưa vào nó có ý nghĩa gì thế?

Đó là thuộc tính của Range, với biến SrcRng khi khai báo nó đại diện cho Range, và đã là Range thì nó có nhiều thuộc tính của Range, như trên có thể hiểu rằng vùng nào đó thuộc SrcRng sẽ có Font hệ số màu là -4105

 

[ndu96081631]

Thành phần SrcRng.Font.ColorIndex = -4105 thày đưa vào nó có ý nghĩa gì thế?

Đương nhiên đâu tiên vào phải xóa hết các màu sắc nếu có của cell, xong rồi mới tô chứ, đúng không?
SrcRng.Font.ColorIndex = -4105 là trả màu của vùng SrcRng thành Automatic! thế thôi