Bài tập VBA: tạo một dãy số sao cho các số không trùng nhau?? (1 người xem)

[Quy Vu]

Chào các anh chị trong diễn đàn,
Em có một bài tập muốn nhờ các anh chị giúp đỡ, mong được hỗ trợ ạ
- Điền một số ngẫu nhiên từ 1 tới 59 vào 6 ô liền nhau bất kì như dưới, sao cho 6 số này không số nào trùng nhau?

-

 

[LamNA]

Chào các anh chị trong diễn đàn,
Em có một bài tập muốn nhờ các anh chị giúp đỡ, mong được hỗ trợ ạ
- Điền một số ngẫu nhiên từ 1 tới 59 vào 6 ô liền nhau bất kì như dưới, sao cho 6 số này không số nào trùng nhau?

- View attachment 215890

Bạn sử dụng code bác @ndu96081631 thử nếu muốn thay đổi nhấn F9

Function UniqueRandomNum(Bottom As Long, Top As Long, Amount As Long)
  Application.Volatile
  On Error Resume Next
  If Amount > Top - Bottom + 1 Then Amount = Top - Bottom + 1
  With CreateObject("Scripting.Dictionary")
    Do
      .Add Int(Rnd() * (Top - Bottom + 1)) + Bottom, ""
    Loop Until .Count = Amount
    UniqueRandomNum = WorksheetFunction.Transpose(.Keys)
  End With
End Function

 

[saobekhonglac]

Bạn sử dụng code bác @ndu96081631 thử nếu muốn thay đổi nhấn F9

Function UniqueRandomNum(Bottom As Long, Top As Long, Amount As Long)
  Application.Volatile
  On Error Resume Next
  If Amount > Top - Bottom + 1 Then Amount = Top - Bottom + 1
  With CreateObject("Scripting.Dictionary")
    Do
      .Add Int(Rnd() * (Top - Bottom + 1)) + Bottom, ""
    Loop Until .Count = Amount
    UniqueRandomNum = WorksheetFunction.Transpose(.Keys)
  End With
End Function

Mình cũng có file này, chưa kịp gửi là Bác gửi trước rồi.

 

[LamNA]

Mình cũng có file này, chưa kịp gửi là Bác gửi trước rồi.

Vậy thời buổi này đua nhau tìm kiếm và copy paste chỉnh sửa cho phù hợp với dữ liệu rồi lưu gửi file qua, suy cho cùng diễn đàn vô cùng tài nguyên hay được đóng góp từ các chú đi trước, tuổi trẻ chỉ cần hưởng thụ thành quả mà thôi. haha

 

[VetMini]

Code ấy xưa rồi. Nó thuộc về cái thời mà câu lệnh "On Error Resume Next" còn được coi là câu thần chú giúp cho vượt qua mọi cửa ải.
Thời buổi bi giờ, code với câu ấy được coi là loại code lười biếng.

 

[saobekhonglac]

Vậy thời buổi này đua nhau tìm kiếm và copy paste chỉnh sửa cho phù hợp với dữ liệu rồi lưu gửi file qua, suy cho cùng diễn đàn vô cùng tài nguyên hay được đóng góp từ các chú đi trước, tuổi trẻ chỉ cần hưởng thụ thành quả mà thôi. haha

Bác biết code thì còn sửa được, em không biết nên cái nào tương tự thì mới làm được thôi.

 

[LamNA]

Chào các anh chị trong diễn đàn,
Em có một bài tập muốn nhờ các anh chị giúp đỡ, mong được hỗ trợ ạ
- Điền một số ngẫu nhiên từ 1 tới 59 vào 6 ô liền nhau bất kì như dưới, sao cho 6 số này không số nào trùng nhau?

- View attachment 215890

Nếu dùng hàm thì thử cái này, chưa kiểm tra có trùng không?
ấn Ctrl + Shift + Enter vì là công thức mảng

=IFERROR(LARGE(ROW(INDIRECT(1&":"&59))*NOT(COUNTIF($B$7:B7,ROW(INDIRECT(1&":"&59)))),RANDBETWEEN(1,59-1-ROW(A1)+2)),"")

 

[VetMini]

Vậy thời buổi này đua nhau tìm kiếm và copy paste chỉnh sửa cho phù hợp với dữ liệu rồi lưu gửi file qua, suy cho cùng diễn đàn vô cùng tài nguyên hay được đóng góp từ các chú đi trước, tuổi trẻ chỉ cần hưởng thụ thành quả mà thôi. haha

Bạn haha hơi sớm. Tuổi trẻ chỉ cần hưởng thụ thì chỉ được cái phần thô sơ và lỗi thời của bọn đi trước thôi.
Lúc tìm kiếm và copy paste chỉnh sửa cho phù hợp, "tuổi trẻ" cũng cần phải tìm hiểu nguyên lý, và như vậy mới có thể cải tiến theo thời đại.

Code ở bài #2 phải dùng On Error là vì lúc viết code đó, người viết chưa nắm hết cách hoạt động của Dictionary.
Đơn giản là hàm add bị lỗi nếu key đã có sẵn, và vì vậy phải bẫy lỗi.
Mấy năm sau này, GPE rành hơn về Dictionary nên biết rằng hàm gán item cho key có thể mặc định add nếu key chưa có.
Vì vậy, nếu sửa dòng:
.Add Int(Rnd() * (Top - Bottom + 1)) + Bottom, ""
Thành:
.Item( Int(Rnd() * (Top - Bottom + 1)) + Bottom) = ""
Thì sẽ không phải bẫy lỗi.

 

[LamNA]

Bạn haha hơi sớm. Tuổi trẻ chỉ cần hưởng thụ thì chỉ được cái phần thô sơ và lỗi thời của bọn đi trước thôi.
Lúc tìm kiếm và copy paste chỉnh sửa cho phù hợp, "tuổi trẻ" cũng cần phải tìm hiểu nguyên lý, và như vậy mới có thể cải tiến theo thời đại.

Code ở bài #2 phải dùng On Error là vì lúc viết code đó, người viết chưa nắm hết cách hoạt động của Dictionary.
Đơn giản là hàm add bị lỗi nếu key đã có sẵn, và vì vậy phải bẫy lỗi.
Mấy năm sau này, GPE rành hơn về Dictionary nên biết rằng hàm gán item cho key có thể mặc định add nếu key chưa có.
Vì vậy, nếu sửa dòng:
.Add Int(Rnd() * (Top - Bottom + 1)) + Bottom, ""
Thành:
.Item( Int(Rnd() * (Top - Bottom + 1)) + Bottom) = ""
Thì sẽ không phải bẫy lỗi.

Cho nên được học như bài 8 của bác

 

[minhtuan55]

Bạn haha hơi sớm. Tuổi trẻ chỉ cần hưởng thụ thì chỉ được cái phần thô sơ và lỗi thời của bọn đi trước thôi.
Lúc tìm kiếm và copy paste chỉnh sửa cho phù hợp, "tuổi trẻ" cũng cần phải tìm hiểu nguyên lý, và như vậy mới có thể cải tiến theo thời đại.

Code ở bài #2 phải dùng On Error là vì lúc viết code đó, người viết chưa nắm hết cách hoạt động của Dictionary.
Đơn giản là hàm add bị lỗi nếu key đã có sẵn, và vì vậy phải bẫy lỗi.
Mấy năm sau này, GPE rành hơn về Dictionary nên biết rằng hàm gán item cho key có thể mặc định add nếu key chưa có.
Vì vậy, nếu sửa dòng:
.Add Int(Rnd() * (Top - Bottom + 1)) + Bottom, ""
Thành:
.Item( Int(Rnd() * (Top - Bottom + 1)) + Bottom) = ""
Thì sẽ không phải bẫy lỗi.

cái này C++ 5 dòng là chạy như Vietlot luon.

 

[VetMini]

Cho nên được học như bài 8 của bác

Thiệt ra code bài #2 vẫn còn thiếu 1 chỗ mà tôi chưa nói ra. Cố tìm thử.

 

[hongphuong1997]

Thiệt ra code bài #2 vẫn còn thiếu 1 chỗ mà tôi chưa nói ra. Cố tìm thử.

hi hi.... Bác @VetMini không biết được đâu, cháu biết roài.

 

[leonguyenz]

Code vẫn trả ra giá trị trùng do chưa loại bỏ giá trị tạo ra trước đó trên bảng tính.

 

[CHAOQUAY]

cái này C++ 5 dòng là chạy như Vietlot luon.

Thật hay ảo vậy bạn?

 

[VetMini]

Thật hay ảo vậy bạn?

Thật hay ảo không phải là vấn đề.
Dân C++ hơn thua nhau về độ phức tạp thuật toán (Big O) chứ ai lại nói chuyện số dòng.

 

[HieuCD]

Thiệt ra code bài #2 vẫn còn thiếu 1 chỗ mà tôi chưa nói ra. Cố tìm thử.

Có khả năng Code chạy từ sáng tới chiều chưa xong

 

[batman1]

Thiệt ra code bài #2 vẫn còn thiếu 1 chỗ mà tôi chưa nói ra. Cố tìm thử.

Chắc bác định nói tới Randomize

 

[batman1]

cái này C++ 5 dòng là chạy như Vietlot luon.

Xin chân thành cảm ơn = Xin chân thành cảm ơn + X ( X mình sẽ công bố sau )

Lời hứa gió bay.

Thực ra tôi cũng chả quan tâm chuyện công bố X nhưng rất dị ứng với những người tung một vấn đề rồi bỏ đấy. Không nói A (Vấn đề đã được giải quyết. Nhờ Admin xóa hộ chủ đề) mà cũng chả nói B (Không chạy, không nhẩy, không bay, không động đậy)

 

[SA_DQ]

Bài toán này, nếu là mình thì áp dụng cách thủ công sẽ là:
Tạo vòng lặp (từ 1 tới 60)
Biến chúng thành 1 chuỗi: "010203. . . . 5960"
Tạo vòng lặp băm & nối ở vị trí lẽ ngẫu nhiên chuỗi này
Cuối cùng thái chuỗi này như thái chuối để chọn 6 số đang đứng ở đâu đó trong chuỗi

Các bạn nào mới gia nhập VBA thử sức xem sao?!?

Chúc thành công.

 

[CHAOQUAY]

Gò mãi mới về được 9 dòng. Hóng code 5 dòng

Sub A_9Dong()
Dim i, Chuoi As String
Randomize
Do While UBound(Split(Application.Trim(Chuoi))) < 5
    i = Fix(Rnd() * 60)
    If InStr(" " & Chuoi & " ", " " & i & " ") = 0 Then Chuoi = Chuoi & " " & i
Loop
Range("A1").Resize(1, 6) = Split(Application.Trim(Chuoi))
End Sub

 

[VetMini]

Chắc bác định nói tới Randomize

Đúng rồi bác.

@các bạn khác:
Code ở bài #2 viết lúc tác giả chưa nắm vững về random.
Không có randmize thì ngẫu nhiên là giả định. Bạn chạy nhiều lần sẽ thấy mỗi lần đều ra kết quả như nhau.

Gò mãi mới về được 9 dòng. Hóng code 5 dòng
...

Có thể hóng hơi lâu. Hiện giờ người ta còn chờ mấy thằng LTV Xê Cọng Cọng vào quán đánh bi da, hỏi lại chúng xem cái "Big O" mà tôi nói ở trên là cái quái gì trong Xê Cọng Cọng. Sau đó mới nhờ mấy thằng kia cho một cái link lên đâu đó chụp hình code mang về (chắc lần này né GeeksForGeeks)

Các ngôn ngữ chuẩn tổng quát còn tồn tại được đến ngày nay là do chúng có thư viện rộng lớn và mạnh mẽ.
Loại bài chuyên toán xác suất thống kê như thế này chúng có 1 đống hàm/class thư viện.
Chỉ cần tạo 1 đối tượng dạng list, gọi hàm random shuffle, và lấy ra mấy phần tử. Đối với C++ thì thuật toán này coi như độ phức tạp tỷ lệ thuận bình thường.
Bài #2 ở trên theo độ phức tạp luỹ thừa. Code đơn giản nhưng số n càng nhiều thì càng bị lặp lại, và như bài #16 nói, nếu n gần bằng m (m - n tiến về 0) thì có khả năng chạy từ sáng đến chiều.
VBA là ngôn ngữ ứng dụng cho nên người ta không có những hàm hổ trợ chuyên lập trình toán. Chỉ có thế thôi.

Chú: nếu bạn gì đó chuyên quảng cáo Python vào đây thì bạn ấy có lẽ sẽ biểu diễn cho quý vị thấy Python làm trong vòng 3 dòng. Loại bài toán cơ bản như thế này thì các ngôn ngữ mới có thể dùng lambda để giảm thiểu số dòng code.

Chú 2: tác giả bài #2 về sau này học được thuật toán hoàn chỉnh hơn, quý vị chịu khó tìm.

 

[HieuCD]

Đúng rồi bác.

@các bạn khác:
Code ở bài #2 viết lúc tác giả chưa nắm vững về random.
Không có randmize thì ngẫu nhiên là giả định. Bạn chạy nhiều lần sẽ thấy mỗi lần đều ra kết quả như nhau.


Có thể hóng hơi lâu. Hiện giờ người ta còn chờ mấy thằng LTV Xê Cọng Cọng vào quán đánh bi da, hỏi lại chúng xem cái "Big O" mà tôi nói ở trên là cái quái gì trong Xê Cọng Cọng. Sau đó mới nhờ mấy thằng kia cho một cái link lên đâu đó chụp hình code mang về (chắc lần này né GeeksForGeeks)

Các ngôn ngữ chuẩn tổng quát còn tồn tại được đến ngày nay là do chúng có thư viện rộng lớn và mạnh mẽ.
Loại bài chuyên toán xác suất thống kê như thế này chúng có 1 đống hàm/class thư viện.
Chỉ cần tạo 1 đối tượng dạng list, gọi hàm random shuffle, và lấy ra mấy phần tử. Đối với C++ thì thuật toán này coi như độ phức tạp tỷ lệ thuận bình thường.
Bài #2 ở trên theo độ phức tạp luỹ thừa. Code đơn giản nhưng số n càng nhiều thì càng bị lặp lại, và như bài #16 nói, nếu n gần bằng m (m - n tiến về 0) thì có khả năng chạy từ sáng đến chiều.
VBA là ngôn ngữ ứng dụng cho nên người ta không có những hàm hổ trợ chuyên lập trình toán. Chỉ có thế thôi.

Chú: nếu bạn gì đó chuyên quảng cáo Python vào đây thì bạn ấy có lẽ sẽ biểu diễn cho quý vị thấy Python làm trong vòng 3 dòng. Loại bài toán cơ bản như thế này thì các ngôn ngữ mới có thể dùng lambda để giảm thiểu số dòng code.

Chú 2: tác giả bài #2 về sau này học được thuật toán hoàn chỉnh hơn, quý vị chịu khó tìm.

Rỏ hơn, code có khả năng chạy mãi mãi không dừng:
Loop Until .Count = Amount

 

[concogia]

Rỏ hơn, code có khả năng chạy mãi mãi không dừng:
Loop Until .Count = Amount

Đúng thế, lý do là....giải theo kiểu này, Giải kiểu khác, loại ngay "thằng" vừa lấy, số vòng chạy bằng đúng số lượng số muốn lấy (trong bài là 6)
Thân

 

[VetMini]

Rỏ hơn, code có khả năng chạy mãi mãi không dừng:
Loop Until .Count = Amount

Trong thớt nói về bài toán này, khoảng hơn 1 năm trước, tôi có nói về vấn đề này rồi. Theo toán xác suất thì thuật toán này sẽ có khả năg chạy hoài không dừng khi n là số khá lớn và (m-n)/n là số khá nhỏ. (bốc n trong m số)

Chú: (cũng có thể ý bạn là chỗ này) theo kinh nghiệm viết code thì dòng
Do
...
Loop Until .Count = Amount
cũng được coi là code a ma tơ.
Người lão luyện trong nghề code viết vòng lặp đếm là
Loop Until .Count >= Amount
Mục đích để tránh sai sót. Nếu vì lý do gì, con số Amount là 0 thì code cũng chạy sáng đến tối.
Cách đúng đắn hơn thì phải là
Do While .Count < Amount
...
Loop
Giải thích:
Vòng lặp bình thường thì phải tét điều kiện ngay đầu.
Chỉ dùng vòng lặp tét điều kiện ở cuối khi muốn nó BẢO ĐẢM chạy ít nhất 1 lần.