xin hỏi về combobox trong userform!

[hoangdonghai]

em có tạo 1 combobox userform trong vba excel
code như sau:

Private Sub ComboBox1_DropButtonClick()
with combobox1
.AddItem "Centimeters to Inches"
.AddItem "Hectares to Acres"
.AddItem "Liters to Gallons"
end with
End Sub

nhưng mỗi lần em mở cái combobox ra thì số item trong combobox lại tăng gấp đôi, em đã thử nhiều cách và tham khảo trên mạng nhưng không thấy có hướng dẫn về vấn đề này, mong các anh chị có thể giúp em khắc phục vấn đề này với ạ

 

[maytinhvp01]

em có tạo 1 combobox userform trong vba excel
code như sau:

Private Sub ComboBox1_DropButtonClick()
with combobox1
.AddItem "Centimeters to Inches"
.AddItem "Hectares to Acres"
.AddItem "Liters to Gallons"
end with
End Sub

nhưng mỗi lần em mở cái combobox ra thì số item trong combobox lại tăng gấp đôi, em đã thử nhiều cách và tham khảo trên mạng nhưng không thấy có hướng dẫn về vấn đề này, mong các anh chị có thể giúp em khắc phục vấn đề này với ạ

Private Sub ComboBox1_DropButtonClick() cái này mình cũng chưa dùng lần nào. nhân tiện cho hỏi luôn tác dụng vói?
Còn vấn đề của ban thử chuyển sang sự kiện là nạp luôn vào combobox khi form mỏ.

 

[ndu96081631]

em có tạo 1 combobox userform trong vba excel
code như sau:

Private Sub ComboBox1_DropButtonClick()
with combobox1
.AddItem "Centimeters to Inches"
.AddItem "Hectares to Acres"
.AddItem "Liters to Gallons"
end with
End Sub

nhưng mỗi lần em mở cái combobox ra thì số item trong combobox lại tăng gấp đôi, em đã thử nhiều cách và tham khảo trên mạng nhưng không thấy có hướng dẫn về vấn đề này, mong các anh chị có thể giúp em khắc phục vấn đề này với ạ

Thì đương nhiên vậy rồi. Bạn AddItem mà lại dùng sự kiện DropButtonClick, mỗi lần bấm chuột vào mũi tên xổ xuống là sự kiện được kích hoạt, nó phải... AddItem thôi
Vậy bạn có 2 lựa chọn:
1> AddItem ngay từ khi Form load

Private Sub UserForm_Initialize()
  With ComboBox1
    .AddItem "Centimeters to Inches"
    .AddItem "Hectares to Acres"
    .AddItem "Liters to Gallons"
  End With
End Sub

2> Dùng sự kiện DropButtonClick thì không được AddItem

Private Sub ComboBox1_DropButtonClick()
  Dim arr
  arr = Array("Centimeters to Inches", "Hectares to Acres", "Liters to Gallons")
  ComboBox1.List() = arr
End Sub

Vậy thôi
---------------------

Private Sub ComboBox1_DropButtonClick() cái này mình cũng chưa dùng lần nào. nhân tiện cho hỏi luôn tác dụng vói?
.

Màu đỏ ở trên cũng là câu trả lời cho bạn luôn đấy

 

[hoangdonghai]

em cám ơn anh ạ. e đã làm được rồi!
nếu anh chị không phiền cho em hỏi thêm 1 câu nữa ạ

Sub Macro1()
ans = MsgBox("Do you want to excute?", vbYesNo, "Caution!")
If ans = vbNo Then
Exit Sub
Else
Call solve1
Range("Q5").Select
Range("q5").Value = "Specified"
Call save1
End If

End Sub

đây là 1 super macro em viết để giải bài toán tối ưu r sau đó save kết quả lại, nếu chay từng macro riêng lẻ thì không có vấn đề gì nhưng khi gộp chúng vào 1 macro thì cái macro Solve1 (dùng để giải bài toán tối ưu) lại k chạy mà chỉ có cái Save1 dùng để save kết quả chạy thôi ạ. mong mọi người giải đáp giúp e

 

[fso56]

Các bác giúp em cái.
Em muốn cột Symbol có list drop như cột Type. Cột Type em dùng bằng code này

Private Sub UserForm_Initialize()
Dim a As Object
For Each a In Sheet4.Range("A2:A3")
TxtType.AddItem a

Next
End Sub

 

[tigertiger]

Ví dụ vùng cho symbol là C5:C10 (nếu khác thì tự đổi)

Private Sub UserForm_Initialize()
 
TxtType.List()= Sheet4.Range("A2:A3").value
TxtSymbol.List()= Sheet4.Range("C5:C10").value


End Sub

 

[fso56]

Ví dụ vùng cho symbol là C5:C10 (nếu khác thì tự đổi)

Private Sub UserForm_Initialize()

TxtType.List()= Sheet4.Range("A2:A3").value
TxtSymbol.List()= Sheet4.Range("C5:C10").value


End Sub

Được rồi bạn ah
Cám ơn bạn. quá tuyệt.
Bạn cho mình hỏi thêm. Mình muốn sheet chỉ có thể nhập liệu vào bằng ô "Nhập Liệu" của mình thôi còn các ô khác bị khóa hay không chỉnh sửa được

 

[tigertiger]

Được rồi bạn ah
Cám ơn bạn. quá tuyệt.
Bạn cho mình hỏi thêm. Mình muốn sheet chỉ có thể nhập liệu vào bằng ô "Nhập Liệu" của mình thôi còn các ô khác bị khóa hay không chỉnh sửa được

Tìm hiểu về protect Sheet
Với tích lựa chọn Locked cell - trong hộp thoại Format Cell / tab Protect

excel khóa sheet - Tìm trên Google