Tra định mức với sự kiện change ( Taget gồm nhiều cell)

[hiphoang.prodixetho]

Em làm cái Tra đinh mức. khi gõ tên định mức vào một cell trong Range ( em đặt tên là DONGIA) thì thực hiện kết nối CSDL Access. Nếu có trong csdl thì điền vào tương ứng. Nếu ko có thì ô vừa gõ hiện màu đỏ. Nhưng vấn đề là khi em Paste một số mã vào thì hiện đỏ hết ( trương hợp này Target gồm nhiều cell) các anh cho em một PHƯƠNG HƯỚNG, GIẢI PHÁP trong trường hợp này với?
Dưới đây là hình và code của em

    Private Sub DONGIA_Change(ByVal Target As Microsoft.Office.Interop.Excel.Range) Handles DONGIA.Change
        Dim str As String
        Dim Dt As New DataTable
        Dim Adp As OleDbDataAdapter
        Str = "Provider=Microsoft.Jet.OLEDB.4.0;" & "  data source=D:\DonGia.mdb"
        Dim con As New OleDbConnection(Str)
        con.Open()
        Adp = New OleDbDataAdapter("select * from DG  where MH like '%" + Target.Value2.ToString().ToUpper() + "%'", con)
        Adp.Fill(Dt)
        If Dt.Rows.Count = 1 Then
            Application.EnableEvents = False
            Target.Value2 = Dt.Rows(0)(0).ToString()
            Application.EnableEvents = True
            Target.Offset(0, 1).Value2 = Dt.Rows(0)(1).ToString()
            Target.Offset(0, 1).Rows.AutoFit()
            Target.Offset(0, 2).Value2 = Dt.Rows(0)(2).ToString()
            Target.Offset(0, 3).Value2 = Dt.Rows(0)(3).ToString()
            Target.Offset(0, 4).Value2 = Dt.Rows(0)(4).ToString()
            Target.Offset(0, 5).Value2 = Dt.Rows(0)(5).ToString()
        Else
            Application.EnableEvents = False
            Target.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red)
            Application.EnableEvents = True
        End If
    End Sub

Tên chủ đề em chữ Target viết nhầm. hì hì hì


MỌI NGƯỜI GIÚP TỚ VÓI!

 

[hoanganhcuong87]

Hay là khi Paste vào DONGIA bạn thực hiện cho từng Cell của DONGIA nhận Giá trị và thực hiện lại change? NHƯNG MÀ THẾ THÌ RẤT CHẬM VÀ LÒNG VÒNG. Có lẽ là ko khả thi. hì...

 

[hiphoang.prodixetho]

Hay là khi Paste vào DONGIA bạn thực hiện cho từng Cell của DONGIA nhận Giá trị và thực hiện lại change? NHƯNG MÀ THẾ THÌ RẤT CHẬM VÀ LÒNG VÒNG. Có lẽ là ko khả thi. hì...

Làm vậy thì chậm lắm , các bạn có phương án nào khác giúp mình nha?