Hỏi về cách gán giá trị cho combobox

[kyo]

Giả sử combobox định style = 2, tức là chỉ được chọn trong list chứ không được thêm mới. Vậy khi kyo gắn giá trị vào với code này

AddSubData.cbC1.value = Sheet5.Range("B2").Value

Code trên báo lỗi .value (nếu là style=1 thì không có vấn đề gì). Xin hỏi làm cách nào để gán giá trị vào combobox mà vẫn giữ nguyên được style =2

 

[ndu96081631]

Giả sử combobox định style = 2, tức là chỉ được chọn trong list chứ không được thêm mới. Vậy khi kyo gắn giá trị vào với code này

AddSubData.cbC1.value = Sheet5.Range("B2").Value

Code trên báo lỗi .value (nếu là style=1 thì không có vấn đề gì). Xin hỏi làm cách nào để gán giá trị vào combobox mà vẫn giữ nguyên được style =2

Thì bạn Add giá trị Sheet5.Range("B2").Value vào List ComboBox đi là xong chứ gì

 

[kyo]

Không phải, tức là combobox đó đã có list sẵn rồi, và giá trị trong sheet thì cũng là một trong những giá trị có sẵn của list đó. Chẳng hạn list gồm có 3 giá trị A,B,C
Range B2 = B

Có điều do code bằng VBA nên kyo muốn hiện ra thẳng giá trị trên combobox là B luôn chứ không phải là add vào list rồi để người ta chọn lại.

 

[ndu96081631]

Không phải, tức là combobox đó đã có list sẵn rồi, và giá trị trong sheet thì cũng là một trong những giá trị có sẵn của list đó. Chẳng hạn list gồm có 3 giá trị A,B,C
Range B2 = B

Có điều do code bằng VBA nên kyo muốn hiện ra thẳng giá trị trên combobox là B luôn chứ không phải là add vào list rồi để người ta chọn lại.

Nếu giá trị Sheet5.Range("B2").Value cũng chính là 1 phần tử trong List của ComboBox thì tôi thấy đâu có vấn đề gì
(vừa thí nghiệm xong, thấy chạy được mà)

 

[kyo]

"Could not set the Value property. Invalid property value."

Lỗi mà kyo gặp phải đây. Theo kyo hiểu là do style = 2 không có phương thức .value
Mà mục đích kyo muốn nó hiện lên như thế này bằng code VBA chứ không phải là chọn từ List.

 

[ptm0412]

Chú làm đâu có vấn đề gì đâu?

[video=youtube;5T_raJsq-X8]http://www.youtube.com/watch?v=5T_raJsq-X8[/video]

Cả combobox trên sheet cũng xơi nốt:

Private Sub aBtn_Click()
  Me.Combo1.Value = Sheet1.[A1].Value
  Sheet1.Combo1.Value = Sheet1.[A1]
End Sub

 

[viehoai]

"Could not set the Value property. Invalid property value."

Lỗi mà kyo gặp phải đây. Theo kyo hiểu là do style = 2 không có phương thức .value
Mà mục đích kyo muốn nó hiện lên như thế này bằng code VBA chứ không phải là chọn từ List.

Sao không có phương thức .Value? Anh có thể gửi file mẫu lên thử được không, thực ra chưa hiểu ý anh lắm?

 

[kyo]

Cám ơn mọi người, kyo đã làm được rồi. Do ở dữ liệu có môt khoảng trắng nhỏ (lệch so với list của combobox) và vì không để ý dẫn đến việc bị lỗi