• Trang chủ click to expand contents 

  • So sánh dữ liệu khi tạo sheet mới

  • RE: So sánh dữ liệu khi tạo sheet mới

    jason > 06-01-17, 01:59 PM

    Mã PHP:
    Private Sub Worksheet_Activate()
       Call FindDuplicate
    End Sub

    Sub FindDuplicate    ()

        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

        Set myrng     = ws.Range("i2:i" & Range("i" & 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
                If Application.WorksheetFunction.CountIf(myrng, cell) > 1 Then
                    If myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastcell).Address = cell.Address Then
                    cell    .EntireRow.Interior.ColorIndex = clr
                    clr     = clr + 1
                    i     = i + 1
                    Else
                    cell.EntireRow.Interior.ColorIndex = myrng.Find(what:=cell, lookat:=xlWhole, MatchCase:=False, after:=lastcell).EntireRow.Interior.ColorIndex
                End     If
            End If
        Next

            If i > 0 Then
            MsgBox     "Found " & i & " STYLE NO had duplicate. Please check again !", vbCritical
            Else
            Exit Sub
        End     If
       
    End Sub 
    cho mình hỏi code trên mình viết trong sheet1, mình muốn viết trên modules sau đó gọi chạy code trên trong ThisWorkbook thì áp dụng thế nào ?
    mình thử hoài mà không được.
    mục đích : tính viết code trên cho file AddIn sau đó sẽ được gọi vào file đang làm nếu click vào sheet1 thì code sẽ thực thi

  • RE: So sánh dữ liệu khi tạo sheet mới

    haonlh > 30-01-17, 12:24 AM

    (06-01-17, 01:59 PM)jason Đã viết: cho mình hỏi code trên mình viết trong sheet1, mình muốn viết trên modules sau đó gọi chạy code trên trong ThisWorkbook thì áp dụng thế nào ?
    mình thử hoài mà không được.
    mục đích : tính viết code trên cho file AddIn sau đó sẽ được gọi vào file đang làm nếu click vào sheet1 thì code sẽ thực thi

    + Trong cửa sổ code, chọn Insert \ module
    + Chuyển sang code của Sheet1. Chép sang module vừa có.

    Code trong module là chạy được trong mọi sheet

    (Mới nên chưa biết nhiều chức năng của thuthuat... nên sau này không theo dõi được bài này để trao đổi tiếp thì thông cảm nha)...