Câu hỏi:

Lựa chọn từ danh sách hợp lệ trong cột D sẽ được thay thế bằng một số. Chỉ hoạt động với XL9 trở lên.

Trả lời:

Đặt mã bên dưới vào mô-đun Sổ làm việc này.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 4 Then Exit Sub

Application.EnableEvents = False

Target.Value = WorksheetFunction.VLookup(Target.Value, Range("A1:B12"), 2, 0)

Application.EnableEvents = True

End Sub