VBA listbox multicolumn thêm

Question

Possible Duplicate:
Adding items in a Listbox with multiple columns

Với MFC VC++ có hai điều khiển, ListBox và ListCtrl. Nhưng với VBA, có vẻ như chúng tôi chỉ có ListBox.

Tôi muốn tạo hộp danh sách có 2 cột (Company_ID, Company_Name).

Đây là những gì tôi đã cố gắng:

1. Tôi tạo ra lstbox (điều khiển kiểu ListBox)
2. Row loại source = danh sách giá trị
3. Tôi lấy giá trị từ người dùng từ hai hộp chỉnh sửa và khi người dùng nhấp chuột "thêm" sau đó nó sẽ được thêm vào hộp danh sách với 2 cột.

Trong thói quen mã VBA tôi đã thêm các dòng sau:

lstbox.ColumnCount = 2 
lstbox.AddItem (Company_ID) 

Các mã sau không làm việc mà dường như có liên quan với giá trị cột thêm:

lstbox.Column(1,lstbox.ListCount - 1) = Company_name 

này cho lỗi :

Runtime error '424' object required.

Có thể ai đó giúp ích không h mã vba để thêm vào hộp danh sách đa cột.

Answer 1

dụ đơn giản (với bộ đếm):

With Me.lstbox 
    .ColumnCount = 2 
    .ColumnWidths = "60;60" 
    .AddItem 
    .List(i, 0) = Company_ID 
    .List(i, 1) = Company_name 
    i = i + 1 

end with 

Hãy chắc chắn để bắt đầu truy cập với , không 1 để điền vào một ListBox.