Giúp code gán Name cho Rowsource của Combobox (1 người xem)

[minhtuan55]

Chào cả nhà GPE !
Em có tạo 2 Name cho 2 vùng Binhduong va Dongnai
Nhưng khi em dùng code thì click vào Combox, combox không hiện ra đúng Name mà hiện ra trống

Sub daf()
If Range("a1").Value = 1 Then
      donhang.ComboBox2.RowSource = Binhduong
Else
      donhang.ComboBox2.RowSource = Dongnai
End If
End Sub

Mong mọi người chỉ giáo. XIn chân thành cảm ơn

 

[ndu96081631]

Chào cả nhà GPE !
Em có tạo 2 Name cho 2 vùng Binhduong va Dongnai
Nhưng khi em dùng code thì click vào Combox, combox không hiện ra đúng Name mà hiện ra trống

Sub daf()
If Range("a1").Value = 1 Then
      donhang.ComboBox2.RowSource = Binhduong
Else
      donhang.ComboBox2.RowSource = Dongnai
End If
End Sub

Mong mọi người chỉ giáo. XIn chân thành cảm ơn

Bạn nên nạp theo kiểu List chứ không nên dùng RowSource (vì có nhiều rắc rối sau này,chẳng hạn khả năng cập nhật danh sách rất kém)
Ví dụ: donhang.ComboBox2.List() = Range(....gì gì đó...).Value
Khỏi name làm gì cho mất công

 

[minhtuan55]

Bạn nên nạp theo kiểu List chứ không nên dùng RowSource (vì có nhiều rắc rối sau này,chẳng hạn khả năng cập nhật danh sách rất kém)
Ví dụ: donhang.ComboBox2.List() = Range(....gì gì đó...).Value
Khỏi name làm gì cho mất công

dạ cảm ơn Thầy đã hướng dẩn. Em đã làm theo cách thầy được rồi

 

[minhtuan55]

Bạn nên nạp theo kiểu List chứ không nên dùng RowSource (vì có nhiều rắc rối sau này,chẳng hạn khả năng cập nhật danh sách rất kém)
Ví dụ: donhang.ComboBox2.List() = Range(....gì gì đó...).Value
Khỏi name làm gì cho mất công

Thầy NDu em mới phát hiện ra. Nếu em dùng RowSource thì khi em đánh tìm kiếm được nghĩa là em đánh từ trái sang phải thì nó ra từ em tìm kiếm. Còn dùng LIST thì nó không cho gõ gì hết

Ví dụ : List em gồm các số phòng
101,102,103,104,105 ....110

*** Nếu dùng RowSource thì em có 2 cách
1. thì em có thể đánh nhanh 105 vào ô Combox luôn thì nó ra luôn
2. là em click vào mủi tên để chọn 105

*** Nếu dùng List() thì em chỉ có 1 cách
1. là em click vào mủi tên để chọn 105 thì mới được

Anh có cách nào để cho em gõ trực tiếp số vào giống như dùng Rowsource ( gõ kí từ từ trái sang phải )

 

[ndu96081631]

Thầy NDu em mới phát hiện ra. Nếu em dùng RowSource thì khi em đánh tìm kiếm được nghĩa là em đánh từ trái sang phải thì nó ra từ em tìm kiếm. Còn dùng LIST thì nó không cho gõ gì hết

Ví dụ : List em gồm các số phòng
101,102,103,104,105 ....110

*** Nếu dùng RowSource thì em có 2 cách
1. thì em có thể đánh nhanh 105 vào ô Combox luôn thì nó ra luôn
2. là em click vào mủi tên để chọn 105

*** Nếu dùng List() thì em chỉ có 1 cách
1. là em click vào mủi tên để chọn 105 thì mới được

Anh có cách nào để cho em gõ trực tiếp số vào giống như dùng Rowsource ( gõ kí từ từ trái sang phải )

Là sao ta?
Xem file giả lập của tôi có vấn đề gì không?

 

[minhtuan55]

Là sao ta?
Xem file giả lập của tôi có vấn đề gì không?

Là sao ta?
Xem file giả lập của tôi có vấn đề gì không?

cái chổ Bôi đỏ em chọn để cho người dùng chỉ được chọn nhưng tên có trong danh sách thôi anh. Nhưng vẫn đảm bảo người ta gõ tìm kiếm theo ký tự từ trái sáng phải

 

[ndu96081631]

View attachment 194305

cái chổ Bôi đỏ em chọn để cho người dùng chỉ được chọn nhưng tên có trong danh sách thôi anh. Nhưng vẫn đảm bảo người ta gõ tìm kiếm theo ký tự từ trái sáng phải

Tôi sửa lại, bạn tự mình nghiên cứu xem có gì khác biệt
???

 

[minhtuan55]

Tôi sửa lại, bạn tự mình nghiên cứu xem có gì khác biệt
???

Em nhìn là biết rồi anh thêm dấu nhấy vào đằng trước. Vậy thì cái List đó em phải qua 1 bước Sào Nấu nữa thì mới được như vậy . Anh còn cách nào hay không anh. Còn nếu khó quá. thì anh cho em cái đoạn code Xào để thêm dấu Nháy vào Đằng trước luôn

 

[ndu96081631]

Em nhìn là biết rồi anh thêm dấu nhấy vào đằng trước. Vậy thì cái List đó em phải qua 1 bước Sào Nấu nữa thì mới được như vậy . Anh còn cách nào hay không anh. Còn nếu khó quá. thì anh cho em cái đoạn code Xào để thêm dấu Nháy vào Đằng trước luôn

Muốn vậy bạn phải thông qua vòng lập để "chế biến"

Sub fesgrg()
  Dim arr, n As Long
  arr = Range("I1:I28").Value
  ReDim aDes(1 To UBound(arr), 1 To 1)
  For n = 1 To UBound(arr)
    aDes(n, 1) = CStr(arr(n, 1))
  Next
  UserForm2.ComboBox1.List() = aDes
  UserForm2.Show
End Sub