Giúp tôi hiển thị tiêu đề trong combobox

[trungnt]

Hiện nay, tôi đã viết 1 đoạn code thêm các mục mới vào danh sách của combobox và muốn lấy dòng (hàng) đầu tiên làm tiêu đề trong combobox và khống chế o cho nhập text vào trong hộp combobox nhưng o biết cách viết như thế nào cả. Mong các anh chị cao thủ chỉ giúp ........ cám ơn nhìu nhìu. Code của tôi đã viết như sau:

Sub Loaitangmat()
ActiveSheet.Cbotmat.Clear
Application.ScreenUpdating = False
With ActiveSheet.Cbotmat
    .AddItem "Vaät lieäu vaø caáu taïo taàng maët"
    .AddItem "BTN chaët loaïi I haït nhoû, haït trung (caáp I, II, III, IV)"
    .AddItem "BTN loaïi II,ÑD ñen, nhöïa nguoäi, TN nhöïa, LN, (caáp III, IV, V)"
    .AddItem "CPÑD, Ñaù Daêm, Caáp phoái thieân nhieân (caáp IV, V, VI)"

    .List(0, 0) = "Loaïi taàng maët"
    .List(0, 1) = "Vaät lieäu vaø caáu taïo taàng maët"
    .List(1, 0) = "Caáp cao A1"
    .List(1, 1) = "BTN chaët loaïi I haït nhoû, haït trung (caáp I, II, III, IV)"
    .List(2, 0) = "Caáp cao A2"
    .List(2, 1) = "BTN loaïi II,ÑD ñen, nhöïa nguoäi, TN nhöïa, LN, (caáp III, IV, V)"
    .List(3, 0) = "Caáp thaáp B1"
    .List(3, 1) = "CPÑD, Ñaù Daêm, Caáp phoái thieân nhieân (caáp IV, V, VI)"
    .ColumnHeads = True
End With
Application.ScreenUpdating = True
End Sub

 

[ptm0412]

Thêm 3 dòng sau, chủ yếu là dòng 1 để có 2 cột.

.ColumnCount = 2
.ColumnWidths = "100;400"
.ListWidth = 500

 

[trungnt]

Tôi thêm vào rồi nhưng vẫn không thấy hiện cái tiêu đề (lấy hàng đầu tiên của đoạn code). Mong Anh cho 1 ví dụ hoặc chỉ rõ thêm ......

 

[ptm0412]

Xin lỗi, tôi cũng đang lấn cấn, và đang tìm. Không thấy cái Property nào hoặc method nào gán column header. Đoạn code trên chỉ mới gán số cột hiển thị và độ rộng cột (đang thiếu trong code của bạn)

 

[sealand]

Trong Property thiết lập mục Column Heads=true là có tiêu đề mà.
P­­hương thức list() hình như không cho nhiều cột trong Combo và List (Mình nhớ không chính xác) mà sau khi addItem các bạn dùng SubItem(i) sẽ cho cột i

 

[ptm0412]

Trong Property thiết lập mục Column Heads=true là có tiêu đề mà.

Nhưng dòng tiêu đề trắng nhách. Làm sao để gán text cho cái tiêu đề? Tôi đang loay hoay sáng giờ.

 

[daminhlt]

Xin lỗi, tôi cũng đang lấn cấn, và đang tìm. Không thấy cái Property nào hoặc method nào gán column header. Đoạn code trên chỉ mới gán số cột hiển thị và độ rộng cột (đang thiếu trong code của bạn)

Sử dụng Listbox thử hình như có mà

 

[cadafi]

Hiện nay, tôi đã viết 1 đoạn code thêm các mục mới vào danh sách của combobox và muốn lấy dòng (hàng) đầu tiên làm tiêu đề trong combobox và khống chế o cho nhập text vào trong hộp combobox nhưng o biết cách viết như thế nào cả. Mong các anh chị cao thủ chỉ giúp ........ cám ơn nhìu nhìu. Code của tôi đã viết như sau:

Sub Loaitangmat()
ActiveSheet.Cbotmat.Clear
Application.ScreenUpdating = False
With ActiveSheet.Cbotmat
.AddItem "Vaät lieäu vaø caáu taïo taàng maët"
.AddItem "BTN chaët loaïi I haït nhoû, haït trung (caáp I, II, III, IV)"
.AddItem "BTN loaïi II,ÑD ñen, nhöïa nguoäi, TN nhöïa, LN, (caáp III, IV, V)"
.AddItem "CPÑD, Ñaù Daêm, Caáp phoái thieân nhieân (caáp IV, V, VI)"

.List(0, 0) = "Loaïi taàng maët"
.List(0, 1) = "Vaät lieäu vaø caáu taïo taàng maët"
.List(1, 0) = "Caáp cao A1"
.List(1, 1) = "BTN chaët loaïi I haït nhoû, haït trung (caáp I, II, III, IV)"
.List(2, 0) = "Caáp cao A2"
.List(2, 1) = "BTN loaïi II,ÑD ñen, nhöïa nguoäi, TN nhöïa, LN, (caáp III, IV, V)"
.List(3, 0) = "Caáp thaáp B1"
.List(3, 1) = "CPÑD, Ñaù Daêm, Caáp phoái thieân nhieân (caáp IV, V, VI)"
.ColumnHeads = True
End With
Application.ScreenUpdating = True
End Sub

Có lẽ bạn sẽ không đạt được yêu cầu có tiêu đề cho Combobox nếu insert vào combobox dùng AddItem.
Tuy nhiên, có một cách, thay vì bạn dùng AddItem trực tiếp vào combobox, hãy Add vào một sheet tạm gọi là "MyList" với dòng đầu tiên là tên tiêu đề cột. Sau đó, đặt 1 Name động là MyData từ Ô A2 (Dùng Offset())---> Sau đó ta gán thuộc tính RowSource của combobox trên Form = MyData.Sau đó gán tiếp thuộc tính ColumnHead = TRUE

 

[rollover79]

Có lẽ bạn sẽ không đạt được yêu cầu có tiêu đề cho Combobox nếu insert vào combobox dùng AddItem.
Tuy nhiên, có một cách, thay vì bạn dùng AddItem trực tiếp vào combobox, hãy Add vào một sheet tạm gọi là "MyList" với dòng đầu tiên là tên tiêu đề cột. Sau đó, đặt 1 Name động là MyData từ Ô A2 (Dùng Offset())---> Sau đó ta gán thuộc tính RowSource của combobox trên Form = MyData.Sau đó gán tiếp thuộc tính ColumnHead = TRUE

combobox ở đây là Control Toolbox, không phải Form Control, nên không có thuộc tính RowSource, thay vào đó là thuộc tính ListFillRange.

 

[cadafi]

combobox ở đây là Control Toolbox, không phải Form Control, nên không có thuộc tính RowSource, thay vào đó là thuộc tính ListFillRange.

Em thì lại nghĩ combobox này tạo ra từ Toolbox, và combobox này đặt trong User Form! Nhưng đọc kỹ code thì hóa ra nó là combobox trên sheet, nghĩa là combobox tạo từ control Toolbox

ActiveSheet.Cbotmat.Clear 
.....................