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

Liên hệ QC

thanglt90

Thành viên mới
Tham gia
27/6/07
Bài viết
28
Được thích
13
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 ./.
 

File đính kèm

  • 2018_Bai_Tap_Hoan_Vi.xlsx
    13.2 KB · Đọc: 12
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
Mã:
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
 
Upvote 0
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.
 
Upvote 0
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
 
Upvote 0
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. ./.
 
Upvote 0
Web KT
Back
Top Bottom