• TRANG CHỦ
  • THỦ THUẬT
    • Thủ thuật máy tính
    • Thủ thuật văn phòng
    • Thủ thuật Internet
    • Thủ thuật điện thoại
  • CHIA SẺ PHẦN MỀM
  • DIỆT VIRUS
  • CÔNG NGHỆ SỐ
  • THỦ THUẬT OFFICE
  • HỖ TRỢ
  • DỊCH VỤ
    • Sửa máy tính tại nhà

Blog thủ thuật máy tính - Thủ thuật windows

Blog chia sẻ thủ thuật máy tính và thủ thuật windows, lưu lại những kiến thức trong quá trình mình làm việc

You are here: Home / Thủ thuật Office / Đánh dấu các giá trị trùng nhau bằng màu khác nhau bằng VBA trong Excel

Đánh dấu các giá trị trùng nhau bằng màu khác nhau bằng VBA trong Excel

March 31, 2016 By Chu Quang

(Thủ thuật đánh dấu các giá trị trùng nhau bằng VBA trong Excel) Trong Excel, khi làm việc tính toán, thống thì việc gặp những con số trùng nhau trong 1 vùng hay trong 1 sheet là chuyện thường xuyên. Khi đó, nhằm tiện cho việc theo dõi thì người sử dụng thường đánh dấu các giá trị trùng nhau này theo cách riêng của mình. Cách thông thường được mọi người sử dụng là sử dụng Conditional Formatting để tìm và định dạng các giá trị trùng nhau. Tuy nhiên, cách làm chỉ cho phép người sử dụng dùng được 1 màu duy nhất để phân biệt các giá trị trùng nhau. Như vậy thì việc sử dụng Conditional Formatting cũng không thực sự giúp người sử dụng dễ theo dõi trong 1 vùng có nhiều giá trị giống nhau. Vấn đề đặt ra là có cách nào để thể hiện mỗi giá trị trùng nhau là một màu riêng biệt?

Danh dau cac gia tri trung nhau bang mau khac nhau bang vba trong excel

Blog tin học hôm nay sẽ giới thiệu với các bạn cách viết hàm bằng VBA để đánh dấu các giá trị trùng nhau bằng những màu khác nhau. Sau đây là các bước thực hiện:

  • B1: Khởi động Microsoft Excel.
  • B2: Bắt đầu Visual Basic Editor với ALT + F11.
  • B3: Trong Menu Insert chọn Module.

Danh dau cac gia tri trung nhau bang mau khac nhau bang vba trong excel

  • B4: Copy toàn bộ đoạn mã sau
Sub Highlight_Duplicate()
Dim ws As Worksheet
Dim cell As Range
Dim myrng As Range
Dim clr As Long
Dim lastcell As Range
Dim i As Long
Dim lastrow As Long

Set ws = ThisWorkbook.ActiveSheet

‘Vung can danh dau gia tri trung nhau
Set myrng = ws.Range(“C4:F” & Range(“C” & ws.Rows.Count).End(xlUp).Row)

With myrng
Set lastcell = .Cells(.Cells.Count)
End With

myrng.Interior.ColorIndex = xlNone
clr = 3

For Each cell In myrng
‘Kiem tra so gia tri trung nhau trong vung, neu co hai gia tri trung nhau tro len thi thuc hien
If Application.WorksheetFunction.CountIf(myrng, cell) > 1 Then
‘Neu la o dau tien cua cac gia tri trung nhau trong vung
If myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastcell).Address = cell.Address Then
‘Thiet lap mau
cell.Interior.ColorIndex = clr
clr = clr + 1
i = i + 1
Else
‘Thiet lap mau tu o thu 2 voi cac gia tri trung nhau
cell.Interior.ColorIndex = myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastcell).Interior.ColorIndex
End If
End If
Next

‘Lay dong cuoi cung cua vung du lieu
lastrow = Cells(Rows.Count, “A”).End(xlUp).Row
Range(“A” & lastrow + 2).Value = “Tong so co ” & i & ” gia tri trung nhau”
End Sub

Các bạn lưu ý, đoạn mã code trên sử dụng vùng cần đánh dấu từ cột C: F. Tùy vào dữ liệu thực tế mà các bạn thay đổi vùng đánh dấu trong đoạn mã trên nhé!

  • B5: Chạy Macro có tên Highlight_Duplicate.

Trên đây là thủ thuật văn phòng sử dụng VBA để đánh dấu các giá trị trùng nhau bằng các màu khác nhau trong Excel. Bạn có thể tham khảo thêm các bài viết về  thủ thuật Office của Cuuhotinhoc.com.

5 / 5 ( 1 vote )

Nội dung

  1. Bài viết liên quan:

Bài viết liên quan:

  • Top phần mềm hữu ích giúp rèn luyện trí não mỗi ngày
  • Những yếu tố quyết định tốc độ của máy tính
  • Phân biệt iCloud và iTunes
  • Tạo bố cục bàn phím tùy chỉnh cho Windows 10
  • Chatbots trong ngành công nghiệp trò chơi

Filed Under: Thủ thuật Office Tagged With: đánh dấu giá trị trùng nhau, Thủ thuật Excel, Thủ thuật Office, VBA

Tìm kiếm

Newbie nên đọc

  • Dạy photoshop cơ bản
  • Thủ thuật Office
  • Tạo website đơn giản
  • Download drivers

Bài viết nổi bật

  • TOP 5+ Mẹo tăng tốc máy tính bị lag khi chơi game

    TOP 5+ Mẹo tăng tốc máy tính bị lag khi chơi game

  • Cách giúp máy tính không bị lag khi chơi game online

    Cách giúp máy tính không bị lag khi chơi game online

  • Cách sửa laptop bị lỗi màn hình xanh

    Cách sửa laptop bị lỗi màn hình xanh

  • Cách sử dụng DNS Cloudflare 1.1.1.1 để truy cập các trang web bị chặn

    Cách sử dụng DNS Cloudflare 1.1.1.1 để truy cập các trang web bị chặn

  • Những thủ thuật máy tính đơn giản và hữu ích

    Những thủ thuật máy tính đơn giản và hữu ích

  • Hướng dẫn cách tạo USB cài đặt Windows 10

    Hướng dẫn cách tạo USB cài đặt Windows 10

  • Tạo USB cài đặt Win 10 bằng Media Creation Tool

    Tạo USB cài đặt Win 10 bằng Media Creation Tool

Theo dõi mạng xã hội

Liên hệ với tôi

Nếu các bạn gặp khó khăn gì trong quá trình làm việc hãy liên hệ với tôi theo email:

admin@cuuhotinhoc.com

Những gì tôi biết tôi sẽ hướng dẫn tận tình. Cảm ơn các bạn đã ủng hộ

Blog bạn bè

Công nghệ 3s
Tin học AZ
Mẹo vặt đời sống

Đôi lời về tác giả

Blog chia sẻ thủ thuật máy tính - Thủ thuật windows

Mình tên là Huy Phong đây là nơi mình viết lại những kinh nghiệm làm việc, những thủ thuật máy tính khi máy tính phát sinh một sự cố, cũng như là một nơi lưu trữ lại các kiến thức làm việc của mình để khi cần có thể lấy ra và áp dụng được luôn, Mong các bạn có thể đóng góp thêm cho blog của mình.

Copyright © 2021 · Going Green Pro Theme on Genesis Framework · WordPress · Log in