Làm sao để hiển thị % trong TextBox?

[thanhtam348]

Tôi có 1 List name danh sách bao gồm cột tên và cột con số %, nhưng sao tôi đưa vào TextBox thì không hiển thị đúng, VD như 7% thì nó cho ra là 0.07. AC hay bạn nào biết cách xin chỉ dùm.

 

[thanhtam348]

Trong Form mình có 2 ComboBox chứa mã hàng, mình tạo thêm một TextBox và muốn lấy mã hàng một trong hai ComboBox đó nếu nó được chọn và đưa vào TextBox - AC nào biết xin giúp dùm mình. Cảm ơn.

 

[kyo]

Trong Form mình có 2 ComboBox chứa mã hàng, mình tạo thêm một TextBox và muốn lấy mã hàng một trong hai ComboBox đó nếu nó được chọn và đưa vào TextBox - AC nào biết xin giúp dùm mình. Cảm ơn.

Đơn giản thì chỉ cần sử dụng sự kiện Change của Combobox rồi dùng

UserForm.TextBox.Value=UserForm.Combobox.Value

Nhưng mà bạn muốn làm gì đây? Nếu như cả hai combobox đều được chọn thì bạn giải quyết thế nào?

 

[thanhtam348]

Cảm ơn kyo, nhờ bạn cụ thể hơn cho mình được không? mình chả biết gán nó vào đâu cả.
Tất nhiên là trong 2 chỉ chọn một combobox, nói rỏ hơn là mình có 2 cột mã hàng khác nhau và muốn đưa nó vào form, sau đó nạp vào Sheet chung một cột. vậy thì nếu chỉ một cột mã mình dùng luôn trong ComboBox, bởi có 2 cột nên mới muốn lược nó vào TextBox, lấy trong TextBox nạp lại vào Sheet.

 

[kyo]

Đầu tiên thì trở lại cái vấn đề mình giúp bạn hồi nãy, bạn chỉ cần bỏ vào sự kiện Change của combobox, mỗi lần combobox bạn thay đổi thì textbox cũng sẽ thay đổi.

Private Sub ComboBox1_Change()
UserForm1.TextBox1.Value = UserForm1.ComboBox1.Value
End Sub

Cảm ơn kyo, nhờ bạn cụ thể hơn cho mình được không? mình chả biết gán nó vào đâu cả.
Tất nhiên là trong 2 chỉ chọn một combobox, nói rỏ hơn là mình có 2 cột mã hàng khác nhau và muốn đưa nó vào form, sau đó nạp vào Sheet chung một cột. vậy thì nếu chỉ một cột mã mình dùng luôn trong ComboBox, bởi có 2 cột nên mới muốn lược nó vào TextBox, lấy trong TextBox nạp lại vào Sheet.

Ý bạn là vì bạn có 2 cột và bạn không biết nối nó thành 1 cột thế nào nên bạn phải cho 2 cái combobox rồi cho textbox lấy giá trị combobox được chọn phải không?

 

[thanhtam348]

Cám ơn bạn! - Bạn nghỉ đúng rồi. nhưng 2 cột nầy là 2 cột danh sách hàng hóa trong Name Manager, Vậy có thể nối nó thành 1 cột được không ?

Muốn hỏi thêm bạn điều là: trong 2 combobox, nếu lở chọn một trong 2 thì có cách nào để xóa combobox đã lở chọn không?

 

[kyo]

Cám ơn bạn! - Bạn nghỉ đúng rồi. nhưng 2 cột nầy là 2 cột danh sách hàng hóa trong Name Manager, Vậy có thể nối nó thành 1 cột được không ?

Muốn hỏi thêm bạn điều là: trong 2 combobox, nếu lở chọn một trong 2 thì có cách nào để xóa combobox đã lở chọn không?

Hiện tại giờ kyo mới nghĩ được thế này thôi, mong mọi người có cách làm nhanh hơn thì giúp kyo với, hì hì.
Với abc, def là tên của 2 cột hàng hóa của bạn nhé. Bạn chèn cái này vào form

Option Base 1
Private Sub UserForm_Initialize()
    Dim arr1, arr2
    Dim arr
    arr1 = Evaluate("abc")
    arr2 = Evaluate("def")
    ReDim arr(1 To UBound(arr1, 1) + UBound(arr2, 1))
    For i = LBound(arr1, 1) To UBound(arr1, 1)
        arr(i) = arr1(i, 1)
    Next i
    For i = LBound(arr2, 1) To UBound(arr2, 1)
        arr(UBound(arr1, 1) + i) = arr2(i, 1)
    Next i
    
    UserForm1.ComboBox1.List() = arr
End Sub

Còn vấn đề thứ hai bạn hỏi thì mình không được hiểu lắm. Bạn muốn xóa là xóa thế nào? Ý bạn là bạn chọn trong combobox rồi mà bạn muốn đổi cái khác à? Thì bạn chỉ việc chọn lại combobox thôi thì lập tức textbox cũng sẽ được đổi thôi mà.

 

[thanhtam348]

Hiện tại giờ kyo mới nghĩ được thế này thôi, mong mọi người có cách làm nhanh hơn thì giúp kyo với, hì hì.
Với abc, def là tên của 2 cột hàng hóa của bạn nhé. Bạn chèn cái này vào form

Option Base 1
Private Sub UserForm_Initialize()
    Dim arr1, arr2
    Dim arr
    arr1 = Evaluate("abc")
    arr2 = Evaluate("def")
    ReDim arr(1 To UBound(arr1, 1) + UBound(arr2, 1))
    For i = LBound(arr1, 1) To UBound(arr1, 1)
        arr(i) = arr1(i, 1)
    Next i
    For i = LBound(arr2, 1) To UBound(arr2, 1)
        arr(UBound(arr1, 1) + i) = arr2(i, 1)
    Next i
    
    UserForm1.ComboBox1.List() = arr
End Sub

Còn vấn đề thứ hai bạn hỏi thì mình không được hiểu lắm. Bạn muốn xóa là xóa thế nào? Ý bạn là bạn chọn trong combobox rồi mà bạn muốn đổi cái khác à? Thì bạn chỉ việc chọn lại combobox thôi thì lập tức textbox cũng sẽ được đổi thôi mà.

Ý mình muốn hỏi là: nếu như mình kích chọn nhầm combobox1, vậy khi chọn lại combobox2 thì combobox1 vẩn còn hiển thị giá trị của nó, mình có thể xóa thủ công được, nhưng như vậy nó không "khoa học" lắm, còn để đại thì cũng không sao, nhưng mình nhìn mình biết chứ còn người khác nhìn thì...họ cũng chả biết gì.

 

[kyo]

Ý mình muốn hỏi là: nếu như mình kích chọn nhầm combobox1, vậy khi chọn lại combobox2 thì combobox1 vẩn còn hiển thị giá trị của nó, mình có thể xóa thủ công được, nhưng như vậy nó không "khoa học" lắm, còn để đại thì cũng không sao, nhưng mình nhìn mình biết chứ còn người khác nhìn thì...họ cũng chả biết gì.

Private Sub ComboBox1_Change()
If UserForm1.ComboBox1.Value = "" Then Exit Sub
UserForm1.ComboBox2.Value = ""
UserForm1.TextBox1.Value = UserForm1.ComboBox1.Value
End Sub

Private Sub ComboBox2_Change()
If UserForm1.ComboBox2.Value = "" Then Exit Sub
UserForm1.ComboBox1.Value = ""
UserForm1.TextBox1.Value = UserForm1.ComboBox2.Value
End Sub

Theo yêu cầu của bạn thì làm thế này, nhưng có thể làm gọn hơn nếu xài UserForm.Controls().
Mà bạn làm theo 1 combobox như mình nói ở trên cho tiện