Sắp xếp theo thứ tự A->Z trong Combobox (1 người xem)

[sinhatexcel]

Chào các bạn!
Hiện tại mình đang làm một chương trình nhỏ có sử dụng combobox.
Nhưng mình gặp phải vấn đề sắp xếp dữ liệu trong combobox theo thứ tự alpha A->Z. Mong các bạn trong diễn đàn hướng dẫn mình phần này. Rất cám ơn các bạn!

Đây là phần demo của mình.

 

[nghiaphuc]

Cái phần demo của bạn chẳng có ý nghĩa gì cả. Bạn đưa 1 bức hình lên thì mọi người làm được gì trong đó mà giúp bạn? Bạn hãy đưa file lên đây, nêu rõ yêu cầu trong đó, đây là cách nhanh nhất để bạn nhận được sự trợ giúp từ mọi người.

 

[sinhatexcel]

Mình xin lỗi các bạn.Đây phần demo của mình.
Khi người dùng chọn sự kiện DropButtonClick trên Combobox thì dữ liệu trong combobox hiển thị theo thứ tự A->Z.

Cám ơn các bạn!

 

[Crystal Rose]

-Bạn đặt tên cho cột danh sách tên
-Vào data>Validation>chỗ alow bạn chọn list, ô source bạn chọn =tên đã đặt.

 

[ndu96081631]

Mình xin lỗi các bạn.Đây phần demo của mình.
Khi người dùng chọn sự kiện DropButtonClick trên Combobox thì dữ liệu trong combobox hiển thị theo thứ tự A->Z.

Cám ơn các bạn!

Dùng hàm này để sort mảng 1 chiều nhé:

Function Sort1DArray(ByVal Arr, Optional ByVal isText As Boolean = False, Optional ByVal isDESC As Boolean = False)
  Dim sCommand As String
  sCommand = "('" & Join(Arr, vbBack) & "').split('" & vbBack & "').sort("
  If isText Then
    sCommand = sCommand & ")"
  Else
    sCommand = sCommand & "function(a,b){return (a-b)})"
  End If
  If isDESC Then sCommand = sCommand & ".reverse()"
  sCommand = sCommand & ".join('" & vbBack & "')"
  With CreateObject("MSScriptControl.ScriptControl")
    .Language = "JavaScript"
    Sort1DArray = Split(.Eval(sCommand), vbBack)
  End With
End Function

Lưu ý là không sort tiếng Việt Unicode đâu nha

 

[adult]

Dùng hàm này để sort mảng 1 chiều nhé:

Function Sort1DArray(ByVal Arr, Optional ByVal isText As Boolean = False, Optional ByVal isDESC As Boolean = False)
  Dim sCommand As String
  sCommand = "('" & Join(Arr, vbBack) & "').split('" & vbBack & "').sort("
  If isText Then
    sCommand = sCommand & ")"
  Else
    sCommand = sCommand & "function(a,b){return (a-b)})"
  End If
  If isDESC Then sCommand = sCommand & ".reverse()"
  sCommand = sCommand & ".join('" & vbBack & "')"
  With CreateObject("MSScriptControl.ScriptControl")
    .Language = "JavaScript"
    Sort1DArray = Split(.Eval(sCommand), vbBack)
  End With
End Function

Lưu ý là không sort tiếng Việt Unicode đâu nha

Chào thầy @ndu96081631, dù bài viết đã 6 năm rồi, không biết thầy đã có giải pháp nào hoặc nâng cấp function này để có thể sort theo tiếng việt
Unicode chưa vậy? Nếu có thầy vui lòng cho em xin nha.
Dù có hay không cũng cảm ơn thầy trước.