Tìm hiểu Macro VBA Excel với bài toán hoán vị; Nhờ các thày giúp. (1 người xem)

[thanglt90]

Chào các Thày !
Xin được nhờ các thày giúp giải bài toán bằng Macro VBA Excel với bài toán hoán vị; Nhờ các thày giúp.
. . . Cám ơn các Thày ./.

 

[ndu96081631]

Chào các Thày !
Xin được nhờ các thày giúp giải bài toán bằng Macro VBA Excel với bài toán hoán vị; Nhờ các thày giúp.
. . . Cám ơn các Thày ./.

Sort 1 cái cũng xong

Sub Test()
  With Range("B8:AK8")
    .Offset(1).Value = "=RAND()"
   .Resize(2).Sort .Offset(1), 2, , , , , , xlYes, , , xlLeftToRight
   .Offset(1).Clear
  End With
End Sub

 

[thanglt90]

Cám ơn đã giải đáp.
Em thực hiện được theo chỉ dẫn của thày, nhưng cũng chưa hiểu về cách hoạt động của các hàm.

 

[ndu96081631]

Cám ơn đã giải đáp.
Em thực hiện được theo chỉ dẫn của thày, nhưng cũng chưa hiểu về cách hoạt động của các hàm.

Nếu làm bằng tay vì vầy:
- Ở dòng bên dưới (dòng 9), ta gõ hàm RAND vào tất cả các cells. Hàm RAND sẽ cho kết quả ngẫu nhiên từ 0 đến nhỏ hơn 1
- Tiếp theo, chọn 2 dòng 8 vào 9 rồi sort từ trái qua phải theo dòng 9
- Do dòng 9 là các số ngẫu nhiên nên sau khi sort nó sẽ "lộn tùng phèo", kéo theo dòng 8 "lộn tùng phèo" luôn
Code tôi viết ở trên là dựa theo ý tưởng này

 

[thanglt90]

Cám ơn thày đã giải đáp !
Ý tưởng của thày rất hay; Em đã hiểu sơ bộ :
+ Thày sử dụng 2 dòng :
- Dòng 1: chứa Dữ liệu ban đầu.
- Dòng 2: chứa dữ liệu do hàm RAND() tạo ra ngẫu nhiên.
+ Sau đó Dùng hàm Sort() để xếp lại theo thứ thự của Dòng 2.
+ Làm như vậy sẽ cho một Kết quả mới là một hoán vị .
Em hiểu như vậy đúng chưa thầy, xin ý kiến của Thày. ./.