Nhờ tạo combobox

[quangtinit]

Chào các bạn.
Mình nhờ các bạn hướng dẫn tạo Combobox khi hiện lên combobox là tên giáo viên, nhưng khi chọn thì lấy kết quả là Mã GV.
Các bạn hướng dẫn mình với. Chân thành cảm ơn

 

[sealand]

Mình thấy có thể dùng Validation kết hợp với Event Worksheet_change cũng được. Đỡ phải tạo đối tượng, nhẹ nhàng hơn
Ví dụ file của bạn, mình viết Code như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Thoat
Application.EnableEvents = False
If Not Intersect(Target, [C6:C9]) Is Nothing Then
Target.Value = Range("GV").Find(Target).Offset(, -1).Value
End If
Thoat:
Application.EnableEvents = True
End Sub

 

[nghiaphuc]

Thêm một tham khảo cho bạn:
1. Vẽ trên sheet một Combobox (ActiveX Control), đặt tên là CbbGV và thiết lập thuộc tính:
- ColumnCount: 2
- ColumnHeads: True
- ColumnWidths: 40pt (cho cột đầu, cột sau sẽ tự cân đối)
2. Sử dụng code sau cho Sheet1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 And Target.Column = 3 And Target.Row > 5 Then
        With CbbGV
            .Height = Target.Height
            .Width = Target.Width
            .Top = Target.Top
            .Left = Target.Left
            .ListFillRange = Range([G6], [H65536].End(xlUp)).Address
            .LinkedCell = Target.Address
            .Visible = True
        End With
    Else
        CbbGV.Visible = False
    End If
End Sub