Hàm sắp xếp tăng giảm

[hongphuong1997]

Nhờ các bạn viết giúp hàm như file đính kèm
Em xin cảm ơn ạ.

 

[snow25]

Nhờ các bạn viết giúp hàm như file đính kèm
Em xin cảm ơn ạ.

Bài này có rồi mà em tìm khác thấy.

 

[hongphuong1997]

Bài này có rồi mà em tìm khác thấy.

Hu hu...... anh oi, em tìm mãi không thấy, mấy ngày em tìm rùi anh oi
Anh viết giúp em với.
Em cảm ơn anh!

 

[snow25]

Hu hu...... anh oi, em tìm mãi không thấy, mấy ngày em tìm rùi anh oi
Anh viết giúp em với.
Em cảm ơn anh!

Tìm bài viết của anh có mà.

 

[hongphuong1997]

Tìm bài viết của anh có mà.

Anh oi, em tìm hết bài của anh rùi
Cũng không thấy hàm nào cả

 

[snow25]

Anh oi, em tìm hết bài của anh rùi
Cũng không thấy hàm nào cả

Em thử.

 

[Ba Tê]

Em thử.

Theo tôi, nên chỉnh lại để kết quả của Hàm chỉ trong 1 Cells, người sử dụng có thể "chủ động" chọn nhỏ nhất, lớn nhất từ 1 đến "đâu".
Tên hàm sửa thành "SapXep" sẽ "đẹp" hơn là "XapXep".

 

[hongphuong1997]

Em thử.

Em cảm ơn anh @snow25 rất nhiều, nhưng anh oi liệu anh có sửa thành không phải dùng mảng được không hở anh?

 

[VetMini]

Theo tôi, nên chỉnh lại để kết quả của Hàm chỉ trong 1 Cells, người sử dụng có thể "chủ động" chọn nhỏ nhất, lớn nhất từ 1 đến "đâu".
Tên hàm sửa thành "SapXep" sẽ "đẹp" hơn là "XapXep".

Biết đâu người ta muốn nói Xập Xẹp sao bạn?

 

[hongphuong1997]

Biết đâu người ta muốn nói Xập Xẹp sao bạn?

Bác @VetMini oi, bác bị sai chính tả rùi
Chắc thời kỳ bác học chưa cải tiến chữ cái
Hi hi hi
Nên bác @VetMini sai chính tả nhiều thế?

 

[Ba Tê]

Bác @VetMini oi, bác bị sai chính tả rùi
Chắc thời kỳ bác học chưa cải tiến chữ cái
Hi hi hi
Nên bác @VetMini sai chính tả nhiều thế?

"rùi" mới là sai chính tả.
Xapxep thì dịch ra Xập Xẹp thế nào là sai?
Tôi chỉ chỉnh sửa theo Function có sẵn.

 

[hongphuong1997]

"rùi" mới là sai chính tả.
Xapxep thì dịch ra Xập Xẹp thế nào là sai?
Tôi chỉ chỉnh sửa theo Function có sẵn.

Cháu cảm ơn bác bánh mì @Ba Tê và anh @snow25 rất nhiều ạ.
Cháu chúc bác và anh luôn luôn vui vẻ nhé, tràn đầy sức khỏe nhé.

Bài đã được tự động gộp: 24/10/19

"rùi" mới là sai chính tả.
Xapxep thì dịch ra Xập Xẹp thế nào là sai?
Tôi chỉ chỉnh sửa theo Function có sẵn.

Bác @Ba Tê oi hàm của bác bị lỗi 1 vấn đề nho nhỏ như sau:
Nếu khi vùng chọn không có dữ liệu thì nó coi số nhỏ nhất =0
Bác xử lý vấn đề này giúp cháu với.

 

[CHAOQUAY]

Cháu cảm ơn bác bánh mì @Ba Tê và anh @snow25 rất nhiều ạ.
Cháu chúc bác và anh luôn luôn vui vẻ nhé, tràn đầy sức khỏe nhé.

Bài đã được tự động gộp: 24/10/19

Bác @Ba Tê oi hàm của bác bị lỗi 1 vấn đề nho nhỏ như sau:
Nếu khi vùng chọn không có dữ liệu thì nó coi số nhỏ nhất =0
Bác xử lý vấn đề này giúp cháu với.

Thử thế này:
Tìm dòng dưới đây

If Not olit.ContainsKey(dk) Then

Sửa thành dòng dưới đây xem sao

If Not olit.ContainsKey(dk) And dk Then

 

[hongphuong1997]

Thử thế này:
Tìm dòng dưới đây

If Not olit.ContainsKey(dk) Then

Sửa thành dòng dưới đây xem sao

If Not olit.ContainsKey(dk) And dk Then

Anh @CHAOQUAY oi, được rùi anh oi, em cảm ơn anh và tất cả mọi người.

Bài đã được tự động gộp: 24/10/19

Thử thế này:
Tìm dòng dưới đây

If Not olit.ContainsKey(dk) Then

Sửa thành dòng dưới đây xem sao

If Not olit.ContainsKey(dk) And dk Then

Hu hu anh @CHAOQUAY oi, em tưởng là được rùi, nhưng lại sai vấn đề khác là
Khi có số "0" thì hàm lại không có kết quả anh oi
Thế mới đau chứ.

 

[Ba Tê]

Anh @CHAOQUAY oi, được rùi anh oi, em cảm ơn anh và tất cả mọi người.

Bài đã được tự động gộp: 24/10/19

Hu hu anh @CHAOQUAY oi, em tưởng là được rùi, nhưng lại sai vấn đề khác là
Khi có số "0" thì hàm lại không có kết quả anh oi
Thế mới đau chứ.

Từ đầu sao không dự trù tất cả các tình huống dữ liệu có thể xảy ra?

Function SapXep(ByVal Mang As Range, ByVal Stt As Long, Optional Thutu As Boolean = False) As Variant
    Dim Olit as Object, Arr(1 To 1000), i As Long, k As Long, dk As Variant, t As Variant
    Set Olit = CreateObject("System.Collections.SortedList")
        For Each t In Mang
            If t <> Space(0) Then
                dk = t.Value
                If Not Olit.ContainsKey(dk) Then
                    Olit.Add dk, ""
                End If
            End If
        Next t
        If Thutu = True Then
           For i = 0 To Olit.Count - 1
               k = k + 1
               Arr(k) = Olit.getkey(i)
           Next i
        Else
            For i = Olit.Count - 1 To 0 Step -1
               k = k + 1
               Arr(k) = Olit.getkey(i)
            Next i
        End If
    If Stt <= Olit.Count Then
        SapXep = Arr(Stt)
    Else
        SapXep = Space(0)
    End If
Set Olit = Nothing
End Function

 

[hongphuong1997]

Từ đầu sao không dự trù tất cả các tình huống dữ liệu có thể xảy ra?
Hi hi... nếu cháu mà biết như vậy thì cháu siêu sao hơn bác BÁNH MÌ RÙI bác @Ba Tê

Bài đã được tự động gộp: 24/10/19

Cháu cảm ơn bác Bánh mì @Ba Tê anh @snow25 anh @CHAOQUAY và toàn thể mọi người ạ
Công thức rất chuẩn rùi.
Không biết còn vấn đề sơ suất gì nữa không?
Cháu cứ tưởng cái này rất đơn giản
Thế mà code dài và phức tạp quá

 

[Ba Tê]

Cháu cứ tưởng cái này rất đơn giản
Thế mà code dài và phức tạp quá

Tưởng đơn giản vì không đưa dữ liệu tổng quát, sau cứ "còn cái này, còn cái kia"...
Càng thêm, càng chỉnh thì code càng luộm thuộm, lăng nhăng...
Chú ý: Ba Tê không liên quan gì đến bánh mỳ.

 

[hongphuong1997]

Tưởng đơn giản vì không đưa dữ liệu tổng quát, sau cứ "còn cái này, còn cái kia"...
Càng thêm, càng chỉnh thì code càng luộm thuộm, lăng nhăng...

Bác bánh mì @Ba Tê oi nếu như cháu lường hết được các tình huống sảy ra thì cháu đã là........ cao thủ của diễn đàn này rùi bác oi