Mình đang nghiên cứu về macro nên không hiểu lắm về đoạn code này bạn có thể giải thích giúp mình được không. Cẳm ơn bạn trước nha.
[GPECODE=vb]
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim wsMC As Worksheet
Dim ENGRow As Long
Dim VIERow As Long
On Error Resume Next
Set wsMC = Worksheets("Data")
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
Select Case Target.Column
Case 2
With Target
If .Value = "" Then
.Offset(0, 1).Value = ""
Else
ENGRow = Application.Match(.Value, wsMC.Range("ENG"), 0)
.Offset(0, 1).Value = wsMC.Range("VIE")(ENGRow).Value
End If
End With
Case 3
With Target
If .Value = "" Then
.Offset(0, -1).Value = ""
Else
VIERow = Application.Match(.Value, wsMC.Range("VIE"), 0)
.Offset(0, -1).Value = wsMC.Range("ENG")(VIERow).Value
End If
End With
Case Else
'do nothing
End Select
exitHandler:
Application.EnableEvents = True
Exit Sub
errHandler:
MsgBox Err.ENGber & ": " & Err.Description
GoTo exitHandler
End Sub[/GPECODE]
