728x90 AdSpace

  • Latest News

    Được tạo bởi Blogger.
    Thứ Năm, 4 tháng 12, 2014

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

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


    Hôm nay Kênh phần mềm việt sẽ giới thiệu với mọi người sử dụng VBA để đánh dấu các giá trị trùng nhau bằng những màu khác nhau.

    B1: Khởi động Microsoft Excel.
    B2: Nhấn ALT + F11 để bắt đầu Visual Basic Editor.
    B3: Vào Menu Inser\Module


    B4: Nhập toàn bộ đoạn mã sau vào

    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

    Trong ví dụ này, Kênh phần mềm đang để vùng cần đánh dấu từ cột C: F, các bạn có thể thay đổi địa chỉ của vùng này tùy vào dữ liệu thực tế.

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






    Nguồn :
    Người viết :
    Biên soạn lại : Nino 24



    Nhập địa chỉ email vào form bên dưới để nhận được tin từ đề tài này sớm nhất
    ( Vui lòng kích hoạt email khi nhận được link kích hoạt nhé )



    Nếu thấy hay thì click vào nút follow (G+) bên dưới nhé ! Thanks !

    Nếu thấy hay thì click vào nút thích (Like) bên dưới nhé ! Thanks !
    • Nino24 Comments
    • Facebook Comments

    0 nhận xét:

    Đăng nhận xét

    Item Reviewed: Đánh dấu các giá trị trùng nhau bằng những màu khác nhau bằng VBA trong Excel Rating: 5 Reviewed By: Long Jack
    Scroll to Top