Nhờ giúp làm hàm tự động sắp xếp tăng dần trong 1 Cell . (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
J

JETLI_VN

Thành viên mới
Tham gia
4/5/13
Bài viết
21
Được thích
1
Nghề nghiệp
Nhân viên kỹ thuật
Mình nhờ các bạn giúp mình với mục đích trong Excell như sau.Bảng Excell gồm :
[TABLE="width: 651"]
[TR]
[TD="align: center"]Ngày tìm được
[/TD]
[TD="align: center"]Ngày sắp xếp tăng dần
[/TD]
[/TR]
[TR]
[TD="align: center"]3, 7, 13, 18, 22, 27, 5, 9, 23
[/TD]
[TD="align: center"]3, 5, 7, 9, 13, 18, 22, 23, 27
[/TD]
[/TR]
[/TABLE]

- Mục đích: mình muốn cột “Ngày sắp xếp tăng dần” làm bằng công thức tự động sắp xếp tăng dần và cho ra kết quả. Thực chất cột này là kết quả sắp xếp tăng dần của cột bên.

Cám ơn sự giúp đỡ nhiệt tình của các bạn!
Thân chào!
 

File đính kèm

JETLI_VN đã viết:
Mình nhờ các bạn giúp mình với mục đích trong Excell như sau.Bảng Excell gồm :
[TABLE="width: 651"]
[TR]
[TD="align: center"]Ngày tìm được
[/TD]
[TD="align: center"]Ngày sắp xếp tăng dần[/TD]
[/TR]
[TR]
[TD="align: center"]3, 7, 13, 18, 22, 27, 5, 9, 23[/TD]
[TD="align: center"]3, 5, 7, 9, 13, 18, 22, 23, 27 [/TD]
[/TR]
[/TABLE]

- Mục đích: mình muốn cột “Ngày sắp xếp tăng dần” làm bằng công thức tự động sắp xếp tăng dần và cho ra kết quả. Thực chất cột này là kết quả sắp xếp tăng dần của cột bên.

Cám ơn sự giúp đỡ nhiệt tình của các bạn!
Thân chào!
Nhấp chuột vào đây để mở rộng...
có lẽ phải viết hàm tự tạo bằng vba excel
 
JETLI_VN đã viết:
Mình nhờ các bạn giúp mình với mục đích trong Excell như sau.Bảng Excell gồm :
[TABLE="width: 651"]
[TR]
[TD="align: center"]Ngày tìm được
[/TD]
[TD="align: center"]Ngày sắp xếp tăng dần[/TD]
[/TR]
[TR]
[TD="align: center"]3, 7, 13, 18, 22, 27, 5, 9, 23[/TD]
[TD="align: center"]3, 5, 7, 9, 13, 18, 22, 23, 27[/TD]
[/TR]
[/TABLE]

- Mục đích: mình muốn cột “Ngày sắp xếp tăng dần” làm bằng công thức tự động sắp xếp tăng dần và cho ra kết quả. Thực chất cột này là kết quả sắp xếp tăng dần của cột bên.

Cám ơn sự giúp đỡ nhiệt tình của các bạn!
Thân chào!
Nhấp chuột vào đây để mở rộng...
nếu dùng vba bạn có thể tham khảo đoạn code sau :
Mã: 
Sub Test()
  Dim str As String, arr, i As Long
  str = "[FONT=Verdana]3, 7, 13, 18, 22, 27, 5, 9, 23[/FONT]"
  arr = Split(str, ",")
  With CreateObject("System.Collections.ArrayList")
    For i = 0 To UBound(arr): .Add CLng(arr(i)): Next
    .Sort: arr = .ToArray
  End With
  MsgBox Join(arr, ",")
End Sub
 
/-*+//-*+//-*+/ Thất bại rồi bạn ơi!

Cell tôi làm ví dụ thì ít số, chứ thực tế đâu phải luôn cố định bấy nhiêu số trong cell đó đâu! Nên kiểu bạn làm chưa được rồi.
 
JETLI_VN đã viết:
/-*+//-*+//-*+/ Thất bại rồi bạn ơi!

Cell tôi làm ví dụ thì ít số, chứ thực tế đâu phải luôn cố định bấy nhiêu số trong cell đó đâu! Nên kiểu bạn làm chưa được rồi.
Nhấp chuột vào đây để mở rộng...

Người ta chỉ gợi ý, bạn phải tự tùy biến chứ
Với code ở bài 3:
Mã: 
Sub Test()
  Dim str As String, arr, i As Long
  str = [COLOR=#ff0000]"3, 7, 13, 18, 22, 27, 5, 9, 23"[/COLOR]
  arr = Split(str, ",")
  With CreateObject("System.Collections.ArrayList")
    For i = 0 To UBound(arr): .Add CLng(arr(i)): Next
    .Sort: arr = .ToArray
  End With
  [COLOR=#0000cd]MsgBox Join(arr, ",")[/COLOR]
End Sub
Thì chỗ màu đỏ chính là dữ liệu đầu vào, chỗ màu xanh là đầu ra. Thay sao cho phù hợp là chuyện của bạn chứ
-------------------------------
Nói thêm: Bài này nếu tôi làm thì tôi sẽ xây dựng thành một hàm tự tạo
 
Cũng nói thêm: bài này nếu tôi làm thì tôi quy định số lớn nhất. Nếu số không lớn lắm thì dùng kỹ thuật đặt mảng boolean và dò mảng.
 
làm theo bác VetMini sử dụng các kỹ thuật mảng 1 chiều cây nhà lá vườn thử xem sao
Mã: 
Function SapXep(ByVal CLL As Range) As String
  Dim str As String, arr, i As Long, j As Long
  str = CLL.value
  arr = Split(str, ",")
   Dim temp As Double
   Dim chuoi As String
   For i = 0 To UBound(arr, 1) - 1
     For j = i + 1 To UBound(arr, 1)
       If (Val(arr(i)) > Val(arr(j))) Then
          temp = arr(i)
          arr(i) = arr(j)
          arr(j) = temp
       End If
      Next j
    Next i


  For i = 0 To UBound(arr, 1) - 1
      chuoi = chuoi & arr(i) & ","
   Next
   chuoi = chuoi & arr(UBound(arr, 1))
   SapXep = chuoi
  End Function
 

File đính kèm

Lần chỉnh sửa cuối:
hungpecc1 đã viết:
nếu dùng vba bạn có thể tham khảo đoạn code sau :
Mã: 
Sub Test()
  Dim str As String, arr, i As Long
  str = "[FONT=Verdana]3, 7, 13, 18, 22, 27, 5, 9, 23[/FONT]"
  arr = Split(str, ",")
  With CreateObject("System.Collections.ArrayList")
    For i = 0 To UBound(arr): .Add CLng(arr(i)): Next
    .Sort: arr = .ToArray
  End With
  MsgBox Join(arr, ",")
End Sub
Nhấp chuột vào đây để mở rộng...
Thử Function này xem:
PHP: 
Public Function GPEX(Rng As Range) As String
Dim Tem, i As Long, j As Long, k As Long
Tem = Split(Rng, ",")
For i = 0 To UBound(Tem) - 1
    For j = i + 1 To UBound(Tem)
        If Val(Tem(j)) < Val(Tem(i)) Then
            k = Val(Tem(i))
            Tem(i) = Val(Tem(j))
            Tem(j) = k
        Else
            Tem(i) = Val(Tem(i))
        End If
    Next j
Next i
GPEX = Join(Tem, ", ")
End Function
Công thức B2=GPEX(A2)
 
phihndhsp đã viết:
làm theo bác VetMini sử dụng các kỹ thuật mảng 1 chiều cây nhà lá vườn thử xem sao
Mã: 
Function SapXep(ByVal CLL As Range) As String
  Dim str As String, arr, i As Long, j As Long
  str = CLL.value
  arr = Split(str, ",")
   Dim temp As Double
   Dim chuoi As String
   For i = 0 To UBound(arr, 1) - 1
     For j = i + 1 To UBound(arr, 1)
       If (Val(arr(i)) > Val(arr(j))) Then
          temp = arr(i)
          arr(i) = arr(j)
          arr(j) = temp
       End If
      Next j
    Next i


  For i = 0 To UBound(arr, 1) - 1
      chuoi = chuoi & arr(i) & ","
   Next
   chuoi = chuoi & arr(UBound(arr, 1))
   SapXep = chuoi
  End Function
Nhấp chuột vào đây để mở rộng...

Không phải, bạn hiểu lầm ý tôi rồi.
Trong kỹ thuật lập trình, có loại kỹ thuật dùng chỉ số mảng để ghi dữ liệu.
Đại khái tôi đặt một mảng từ 0 đến số lớn nhất.
Tôi đọc dữ liệu, gặp số nào thì tôi set phần tử tương ứng là true.
Sau đó tôi đọc mảng, phần tử nào true thì là phần tử có trong dữ liệu đã sắp xếp.
Kỹ thuật này chỉ hữu hiệu khi có rất nhiều dữ liệu. Hoặc số lớn nhất trong nhóm dữ liệu không lớn lắm. Vì tiêu đề bài là "ngày" cho nên tôi cho rằng số lớn nhất chỉ là 31.

Mã: 
Const SOLONNHAT = 31
Dim mng() as Boolean
Redim mng(0 to SOLONNHAT)
Dim so
For each so in Split(chuoi, ",")
mng(Val(Trim(so)) = True
Next so
kq = ""
For so = 0 to UBound(mng)
If mng(so) then kq = kq & ", " & so
Next so
kq = MID(kq, 3)
 
Mình xin cám ơn bạn
phihndhsp

VBA của bạn làm rất chuẩn. 1 cell thực tế của mình chỉ có < 100 số.

Vì mình không hiểu gì về VBA. Nên mình nhìn vào các mã bạn làm như mù tịch. Mấy hàm cơ bản có sẵn của Excell thì mình còn hiểu và còn tùy biến được. Chứ các VBA của các bạn làm là mình chỉ copy về cho chạy thử, nếu được là OK, chứ mình không hề sửa 1 từ nào cả, vì mình chẳng hiểu biết gì về nó.

Cũng cám ơn các bạn cho ý kiến và nhiệt tình rỡ rối giúp mình!
Giờ thì OK rồi!
Thân chào các bạn!
 
Nhân tiện bài này, mình đố các anh chị làm sao để sắp xếp được mà chỉ cần 1 vòng For thôi. Đương nhiên là không dùng ArrayList. Đáp án của mình là 1 vòng For, code gọn trong 6 dòng tính luôn phần khai báo biến.
PS: điều kiện là số ngày trong cell không trùng nhau
 
Lần chỉnh sửa cuối:
--=0--=0--=0 Các bạn ơi.
Xem giùm mình lại VBA của bạn " phihndhsp " làm cho mình với.
Nó OK với cell, nhưng nếu bên trong hàm là một hàm khác thì nó báo lỗi #VALUE!
Các bạn xem file gửi kèm của mình!
Cám ơn các bạn trước nhé!
 

File đính kèm

VetMini đã viết:
Đại khái tôi đặt một mảng từ 0 đến số lớn nhất.
Tôi đọc dữ liệu, gặp số nào thì tôi set phần tử tương ứng là true.
Sau đó tôi đọc mảng, phần tử nào true thì là phần tử có trong dữ liệu đã sắp xếp.
Kỹ thuật này chỉ hữu hiệu khi có rất nhiều dữ liệu. Hoặc số lớn nhất trong nhóm dữ liệu không lớn lắm. Vì tiêu đề bài là "ngày" cho nên tôi cho rằng số lớn nhất chỉ là 31.
Nhấp chuột vào đây để mở rộng...

Mình thì nghĩ đến bài toán dạng tổng quát hơn:
- Chuỗi có thể là number hoặc text
- Trong chuỗi có thể có dấu phân cách hoặc không. Nếu có dấu phân cách thì sẽ Split theo dấu phân cách. Bằng ngược lại thì sẽ biến chuỗi thành mảng với mỗi ký tự của chuỗi là 1 phần tử trong mảng
Nếu mình làm bài này thì sẽ chia ra làm nhiều Function (không chơi 1 cục)
- 1 hàm dùng để biến chuỗi thành mảng 1 chiều, đại khái:
Mã: 
Function String2Array(ByVal Text As String, Optional Delimiter As String)
- 1 hàm để sort mảng 1 chiều. Việc sort mảng 1 chiều cũng đã bàn nhiều rồi, giờ cứ áp dụng thôi
 
Lần chỉnh sửa cuối:
quanghai1969 đã viết:
Nhân tiện bài này, mình đố các anh chị làm sao để sắp xếp được mà chỉ cần 1 vòng For thôi. Đương nhiên là không dùng ArrayList. Đáp án của mình là 1 vòng For, code gọn trong 6 dòng tính luôn phần khai báo biến.
PS: điều kiện là số ngày trong cell không trùng nhau
Nhấp chuột vào đây để mở rộng...
Với bài này + điều kiện của chú Hải thì......nó đây:
Mã: 
Public Function Xep(Cll) As String
    Dim Mg(31), I
        Cll = Split(WorksheetFunction.Trim(Cll), ",")
            For I = 0 To UBound(Cll)
                Mg(Cll(I)) = Cll(I)
            Next I
    Xep = Replace(WorksheetFunction.Trim(Join(Mg)), " ", ", ")
End Function
Cái này hình như .....mình viết lâu rồi mà.
Híc
 
concogia đã viết:
Với bài này + điều kiện của chú Hải thì......nó đây:
Mã: 
Public Function Xep(Cll) As String
    Dim Mg(31), I
        Cll = Split(WorksheetFunction.Trim(Cll), ",")
            For I = 0 To UBound(Cll)
                Mg(Cll(I)) = Cll(I)
            Next I
    Xep = Replace(WorksheetFunction.Trim(Join(Mg)), " ", ", ")
End Function
Cái này hình như .....mình viết lâu rồi mà.
Híc
Nhấp chuột vào đây để mở rộng...
Hình như là anh nhìn thấy máy tính của em. Cú pháp giống hệt nhau chỉ duy nhất có mấy cái biến là độc quyền của anh.
 
concogia đã viết:
Với bài này + điều kiện của chú Hải thì......nó đây:
Mã: 
Public Function Xep(Cll) As String
    Dim Mg(31), I
        Cll = Split(WorksheetFunction.Trim(Cll), ",")
            For I = 0 To UBound(Cll)
                Mg(Cll(I)) = Cll(I)
            Next I
    Xep = Replace(WorksheetFunction.Trim(Join(Mg)), " ", ", ")
End Function
Cái này hình như .....mình viết lâu rồi mà.
Híc
Nhấp chuột vào đây để mở rộng...

Nếu tôi viết

For Each I In Split(WorksheetFunction.Trim(Cll), ",")
Mg(I) = I
Next I

thì tôi giảm được 1 dòng, còn lại 5
 
quanghai1969 đã viết:
Nhân tiện bài này, mình đố các anh chị làm sao để sắp xếp được mà chỉ cần 1 vòng For thôi. Đương nhiên là không dùng ArrayList. Đáp án của mình là 1 vòng For, code gọn trong 6 dòng tính luôn phần khai báo biến.
PS: điều kiện là số ngày trong cell không trùng nhau
Nhấp chuột vào đây để mở rộng...

Nếu tôi viết thì: Vòng lập i chạy từ 1 đến 31, so i với chuỗi gốc, nếu có thì lấy i đó. Vậy thôi
 
Lần chỉnh sửa cuối:
concogia đã viết:
Với bài này + điều kiện của chú Hải thì......nó đây:
Mã: 
Public Function Xep(Cll) As String
    Dim Mg(31), I
        Cll = Split(WorksheetFunction.Trim(Cll), ",")
            For I = 0 To UBound(Cll)
                Mg(Cll(I)) = Cll(I)
            Next I
    Xep = Replace(WorksheetFunction.Trim(Join(Mg)), " ", ", ")
End Function
Cái này hình như .....mình viết lâu rồi mà.
Híc
Nhấp chuột vào đây để mở rộng...

Vậy em xin đố tiếp nếu như số trong cell trùng nhau. Ví dụ "1,3,5,3,2,1"
Làm sao cũng 1 vòng For mà cho ra kết quả "1,1,2,3,3,5"
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table (1 người xem)
Trả lời
5
Đọc
166
DeTong
D
thlpro
Cách lập Công thức tính số ngày nghỉ AL, ưu tiên tính 2024 trước rồi mới tính 2025
Trả lời
6
Đọc
90
ptm0412
ptm0412
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính
    • Thích
Trả lời
1
Đọc
169
thuytrangbp28
T
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện. (1 người xem)
Trả lời
17
Đọc
272
tle2003
T
G
Tách công thức ra khỏi chuỗi và tính kết quả?
2
Trả lời
22
Đọc
2K
gobi
gobi
Trungvt3
Công thức trả về định dạng không như mong muốn và viết phân số trong 1 ô.
Trả lời
5
Đọc
119
VetMini
V
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
346
Đọc
31K
Vandat1607
V
M
Xin giúp đỡ làm công thức điều kiện
Trả lời
2
Đọc
135
Hoangkhang01213
Hoangkhang01213
N
Khắc phục lỗi "The picture is too large and will be truncated"
Trả lời
10
Đọc
5K
tle2003
T
C
  • Question Question
Xin hỏi Cách viết chú thích trong vba hiển thị tiếng việt (1 người xem)
Trả lời
4
Đọc
185
ongke0711
ongke0711
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước.
    • Thích
2
Trả lời
28
Đọc
7K
Hoàng Tuấn 868
H
G
Xin Code xóa Module.
Trả lời
8
Đọc
309
huhumalu
H
00029591
Cần hỗ trợ công thức tổng hợp dữ liệu không cần cột phụ Vlookup
Trả lời
3
Đọc
173
tle2003
T
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ (2 người xem)
2
Trả lời
22
Đọc
590
nguyendang95
N
S
Mở 2 cửa sổ riêng biệt
2
Trả lời
30
Đọc
23K
sakuraluu
S
F
Nhập dấu . (chấm) ở bàn phím phụ không tự chuyển thành dấu , (phẩy)
Trả lời
16
Đọc
57K
tubaodn21
tubaodn21
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt
    • Thích
    • Yêu thích
2
Trả lời
21
Đọc
1K
PhanTuHuong
PhanTuHuong
L
Lỗi font khi convert từ pdf
Trả lời
3
Đọc
152
lamvu0677
L
GPE-Trợ Lý
[GPE] TALKSHOW: PHÂN TÍCH BÁO CÁO ĐỘ NHẠY SỬ DỤNG EXCEL SOLVER (1 người xem)
    • Thích
Trả lời
0
Đọc
2K
GPE-Trợ Lý
GPE-Trợ Lý
K
Xin dax tính tỷ trọng doanh thu
Trả lời
18
Đọc
815
SteveNguyen1991
S
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom