Nhờ giúp giảm số cột trong Combobox (1 người xem)

[luclamchamtim]

Bây giờ em đang cần làm 1 combobox, tìm trên forum thấy có file này đúng ý nhưng nó có 3 cột, em chỉ cần 1 cột duy nhất thôi.
Các bác giảm số cột giúp em với ạ.

 

[jack nt]

trong cửa sổ Properties bạn khai báo ColumnCount = 1 là được.

 

[sealand]

Đơn giản nhất là bạn khai Name KhachHang và TaiKhoan 1 cột thôi là được, nhưng phải lưu ý đoạn code sau ( Nhất là cách của jack nt) sẽ báo lỗi đấy

Private Sub CBViDu_Change()
On Error GoTo thoat
If S01.CBViDu.Value <> "" Then
    [COLOR=#ff0000]ActiveCell.Offset(0, 1).Value = S01.CBViDu.Column(1) ' O ben canh lay gia tri o cot thu 2
    ActiveCell.Offset(0, 2).Value = S01.CBViDu.Column(2) ' O ben canh lay gia tri o cot thu 3[/COLOR]
End If
thoat:  Exit Sub
End Sub

Bạn đánh dấu nháy vào 2 dòng màu đỏ hoặc xóa hết đoạn code này. Thực chất đoạn code này là điền giá trị cột 2 và 3 trên sheet bằng cột 2 và 3 trên combobox, giờ chỉ còn 1 cột thì chẳng làm gì cả.