Hiển thị list của combobox trong userform (1 người xem)

[authority]

em chào các anh ạ
các anh giúp em vấn đề này với ạ
sao em tạo combobox mà không thể có giá trị List được
1.nếu khi nhấn nút click1 thì Userform hiện lên và giá trị List trong combobox1 sẽ là giá trị ở ô A1 đến A4
2.nếu khi nhấn nút click1 thì Userform hiện lên và giá trị List trong combobox1 sẽ là giá trị mình gán vào đó.VD 1,2,3,4,5...

 

[khoavu87]

em chào các anh ạ
các anh giúp em vấn đề này với ạ
sao em tạo combobox mà không thể có giá trị List được
1.nếu khi nhấn nút click1 thì Userform hiện lên và giá trị List trong combobox1 sẽ là giá trị ở ô A1 đến A4
2.nếu khi nhấn nút click1 thì Userform hiện lên và giá trị List trong combobox1 sẽ là giá trị mình gán vào đó.VD 1,2,3,4,5...

Với Click1: Đặt cho vùng dữ liệu cái Name là a

Private Sub UserForm_Activate()
Me.ComboBox1.RowSource = "a"
End Sub

Với Click2:

Private Sub UserForm_Activate()
Me.ComboBox1.AddItem 1
Me.ComboBox1.AddItem 2
End Sub

 

[authority]

Với Click1: Đặt cho vùng dữ liệu cái Name là a

Với Click2:

em cảm ơn anh ạ
em đã làm được rồi
nhưng cho em hỏi thêm tý nữa ạ
sau khi mình có trong combobox là list rồi vd: 1,,2,3,4
mà khi mình chọn giá trị đó.vd là 2 thì trong sheet 1 ô B3 sẽ là giá trị mình chọn là 2 ạ
em cảm ơn anh

 

[khoavu87]

em cảm ơn anh ạ
em đã làm được rồi
nhưng cho em hỏi thêm tý nữa ạ
sau khi mình có trong combobox là list rồi vd: 1,,2,3,4
mà khi mình chọn giá trị đó.vd là 2 thì trong sheet 1 ô B3 sẽ là giá trị mình chọn là 2 ạ
em cảm ơn anh

Vẽ thêm một Button trên form sau đó viết code này:

Private Sub CommandButton1_Click()
Range("b2").Value = Val(Me.ComboBox1)
End Sub

Chú ý: còn nếu không muốn dùng thêm nút thì dùng sự kiện combox1_change
và ComboBox1.ListIndex để làm.

 

[authority]

Vẽ thêm một Button trên form sau đó viết code này:

Chú ý: còn nếu không muốn dùng thêm nút thì phải dùng sự kiện combox1_change
và ComboBox1.ListIndex để làm, nhưng dài dòng đó.

anh có thể chỉnh dùm em sự kiện combox1_change luôn em với đc không anh
em cảm ơn anh

 

[authority]

em cảm ơn anh ạ
em đã làm được rồi
nhưng cho em hỏi thêm tý nữa ạ
sau khi mình có trong combobox là list rồi vd: 1,,2,3,4
mà khi mình chọn giá trị đó.vd là 2 thì trong sheet 1 ô B3 sẽ là giá trị mình chọn là 2 ạ
em cảm ơn anh

các anh giúp tiếp vấn đề này em với ạ

 

[khoavu87]

các anh giúp tiếp vấn đề này em với ạ

Cái sự kiện đó chỉ nên dùng cho trường hợp lựa chọn một giải pháp nào đó để ra được một kết quả nào đó.
Ví dụ tôi add hai giá trị lựa chọn là A và B
Nếu chọn A sẽ có kết quả là 1
Nếu chọn B sẽ có kết quả là 2

Private Sub ComboBox1_Change()
Sheet1.Range("B2").Value = IIf(Me.ComboBox1.ListIndex = 0, 1, 2)
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox1.AddItem "A"
Me.ComboBox1.AddItem "B"
End Sub

Chú ý: chỉ số ListIndex = 0 tức là lựa chọn "A", ListIndex = 1 tức lựa chọn "B"
Đến đây chắc cũng hiểu khi nào cần dùng sự kiện này chứ ạ?

 

[Quang_Hải]

các anh giúp tiếp vấn đề này em với ạ

Private Sub ComboBox1_Click()
Sheet2.[B3] = UserForm1.ComboBox1.Value
End Sub

 

[authority]

Private Sub ComboBox1_Click()
Sheet2.[B3] = UserForm1.ComboBox1.Value
End Sub

em cảm ơn anh nhiều ạ

 

[tranthangexcel]

em chào các anh ạ
các anh giúp em vấn đề này với ạ
sao em tạo combobox mà không thể có giá trị list được
1.nếu khi nhấn nút click1 thì userform hiện lên và giá trị list trong combobox1 sẽ là giá trị ở ô a1 đến a4
2.nếu khi nhấn nút click1 thì userform hiện lên và giá trị list trong combobox1 sẽ là giá trị mình gán vào đó.vd 1,2,3,4,5...

bạn xem file đính kèm xem như ý bạn nói không nhé.