Cần giúp về đảo số thứ tự (1 người xem)

[cuongrc]

mình không khá về excel xin các anh chỉ em hướng dẫn em làm sao đảo thứ tự cá số khi kéo xuống.
mình có số '1234' . Làm sao để tự tạo các số đảo hàng của 1234. Khi kéo xuống ta dc 1324
VD: 1234
1324
1423
1432
.............và ta sẽ dc 24 số theo số "1234"
thank ae nhiều

 

[gtri]

mình không khá về excel xin các anh chỉ em hướng dẫn em làm sao đảo thứ tự cá số khi kéo xuống.
mình có số '1234' . Làm sao để tự tạo các số đảo hàng của 1234. Khi kéo xuống ta dc 1324
VD: 1234
1324
1423
1432
.............và ta sẽ dc 24 số theo số "1234"
thank ae nhiều

Cái này dùng hàm có lẽ hơi phức tạp, Vba tiện hơn

 

[HungQuoc49]

mình không khá về excel xin các anh chỉ em hướng dẫn em làm sao đảo thứ tự cá số khi kéo xuống.
mình có số '1234' . Làm sao để tự tạo các số đảo hàng của 1234. Khi kéo xuống ta dc 1324
VD: 1234
1324
1423
1432
.............và ta sẽ dc 24 số theo số "1234"
thank ae nhiều

File Trộn số có 4 số hạng, code hơi chuối.
Nhập số vào A1 rồi bấm

 

[chuot0106]

File Trộn số có 4 số hạng, code hơi chuối.
Nhập số vào A1 rồi bấm

Code ra kết quả rất đúng rồi! Tuy nhiên do dùng nhiều For quá nên thấy code chạy hơi chậm tý.

 

[ndu96081631]

Đây là code của tôi:

Dim lCount As Long
Sub Main()
  GetPermu "", "[COLOR=#ff0000]1234[/COLOR]"
End Sub
Sub GetPermu(x As String, y As String)
  Dim i As Long, j As Long
  j = Len(y)
  If j < 2 Then
    lCount = lCount + 1
    Cells(lCount, 1) = x & y
  Else
    For i = 1 To j
      GetPermu x & Mid(y, i, 1), Left(y, i - 1) & Right(y, j - i)
    Next
  End If
End Sub

Chạy sub Main để có kết quả. Thay chỗ màu đỏ thành chuỗi tùy ý (number hay text đều được)
Ngoài ra, nếu cần kết quả cho nhiều cell hơn, ta có thể dùng mảng để thay thế cách điền từng cell

 

[cuongrc]

File Trộn số có 4 số hạng, code hơi chuối.
Nhập số vào A1 rồi bấm

Kkông được bạn oi. mình nhập vào A1 bấm loto thì nó ra ko đúng bạn có the giup minh lại
thank

 

[HungQuoc49]

Kkông được bạn oi. mình nhập vào A1 bấm loto thì nó ra ko đúng bạn có the giup minh lại
thank

Bị lỗi thế nào bạn gửi file lên, cái này tôi viết tạm cho số có 4 chữ số theo đầu bài, nếu khác sẽ phải sửa bổ sung.

 

[phihndhsp]

mình không khá về excel xin các anh chỉ em hướng dẫn em làm sao đảo thứ tự cá số khi kéo xuống.
mình có số '1234' . Làm sao để tự tạo các số đảo hàng của 1234. Khi kéo xuống ta dc 1324
VD: 1234
1324
1423
1432
.............và ta sẽ dc 24 số theo số "1234"
thank ae nhiều

dạng bài tập này là dạng bài tập hoán vị (phương pháp sinh), bạn có thể lên mạng tìm kiếm thuật toán hoán vị có rất nhiều thuật toán tha hồ chọn rồi sau đó code nó về VBA là ok

 

[VMH0307]

dạng bài tập này là dạng bài tập hoán vị (phương pháp sinh), bạn có thể lên mạng tìm kiếm thuật toán hoán vị có rất nhiều thuật toán tha hồ chọn rồi sau đó code nó về VBA là ok

Tôi thấy thuật toán hồi quy trong #5 của thầy Ndu là khá hay, bạn có thể áp dụng được luôn.

 

[cuongrc]

Bị lỗi thế nào bạn gửi file lên, cái này tôi viết tạm cho số có 4 chữ số theo đầu bài, nếu khác sẽ phải sửa bổ sung.

bạn làm dùm mình nếu có 2 số giống nhau VD 1123 , hay 3 số
thank...
cho mình nhờ thêm tí bạn làm dùm mình bảng cập nhat KQXS theo file dưới mình copy cua 1 anh khác nhưng sài ko dc
bạn giúp mình nhé
cafe hậu tạ thank nhiều

 

[HungQuoc49]

bạn làm dùm mình nếu có 2 số giống nhau VD 1123 , hay 3 số
thank...
cho mình nhờ thêm tí bạn làm dùm mình bảng cập nhat KQXS theo file dưới mình copy cua 1 anh khác nhưng sài ko dc
bạn giúp mình nhé
cafe hậu tạ thank nhiều

Gửi bạn xem chơi, tùy chọn khoảng <=5 ký tự thì tạm chấp nhận được, nhiều hơn thì hơi bị lâu.
Nên dùng code ở bài #5 cho nhanh.