Tìm Bộ 8 số xuất hiện nhiều nhất trong random( 1 - 80)

[Tuấn Bụng Bự]

Chào các bác !
Em có 1 bài toán khó nhờ các bác bắt bệnh xem có thế code VBA giải quyết được không ạ !?

Input:
- bảng dữ liệu A3:T102 gồm 20 cột và 100 hàng
- Dữ liệu trong bảng là random từ 1 - 80 và mỗi hàng các số không lặp lại

Output:
Tìm ra 8 bộ số mà nó xuất hiện đồng thời trong 1 hàng và nó xuất hiện ở nhiều hàng nhất

Bộ số ví dụ ( không phải kết quả)	47​	25​	62​	61​	34​	70​	64​	30​
Số lần xuất hiện 8 bộ số này đồng thời trong mỗi hàng là 1 lần (chỉ ở hàng 3)

Xin cảm ơn các bác đã đọc bài.

 

[cantl]

Cái này chứng minh loại trừ cũng dễ mà bạn

Bạn đúng là ông vua của kỹ thuật số. Khâm phục khâm phục.

Tác giả: đầu tiên tổng hợp ra 12 triệu bộ số như trên đã, loại bỏ trùng rồi cho lặp thôi. Nếu biết code thì chắc làm ngon.

 

[Tuấn Bụng Bự]

Macro trên cùng có 2 nhiệm vụ:
1 là Tạo 1 chuỗi chứa các số từ 01,02. . . 80;
Tạo 1 vòng lặp trích ra từ chuỗi vừa tạo 20 số (không trùng cho từng hàng chẵn hay lẽ phụ thuộc theo ngày;
Macro 2: Tìm kiếm theo từng hàng 8 con số nhiếu nhất trong bảng có bao nhiêu số & ghi nhận lại
Macro 3 : Sắp xếp theo chiều giảm dần của các số trùng lặp nhiều nhất (Macro nhờ bộ thu của VBE)

Sub Tao20SoNgauBeHon81() : em hiểu nó làm nhiệm vụ tạo data để test code, data thì có sẵn rồi ạ, và em cũng đã code 1 chương trình tạo dữ liệu 20 số không trùng lặp trong 1 hàng và chạy 100 hàng. em dùng Dic để ko có trùng lặp, code bác em học thêm được câu lệnh randomize ạ.

Sub TimKiem() : cái này chưa đúng yêu cầu, yêu cầu tìm ra bộ 8 số mà bộ 8 số đó xuất hiện đồng thời ở nhiều hàng dữ liệu nhất ạ

Sub SapXep() : chắc phục vụ cho Sub tìm kiếm của bác

Bài đã được tự động gộp: Hôm qua, lúc 22:22

Cái này chứng minh loại trừ cũng dễ mà bạn

chứng mình thì ko hẵn, em cần cách tìm ra bộ số đó. nếu ko tiện chia sẻ ở đây bác cho em xin thông tin liên hệ ạ

Bài đã được tự động gộp: Hôm qua, lúc 22:23

Bạn đúng là ông vua của kỹ thuật số. Khâm phục khâm phục.

Tác giả: đầu tiên tổng hợp ra 12 triệu bộ số như trên đã, loại bỏ trùng rồi cho lặp thôi. Nếu biết code thì chắc làm ngon.

em gà mờ về VBA thôi, đang nghiên cứu và tham khảo các bác ạ

 

[HeSanbi]

Môn này là Vietlott hay Keno vậy bạn, nếu liên quan tới trò chơi ăn thua trúng thưởng, thì mình khuyên bạn nên sớm từ bỏ.
Nếu dùng trí tuệ và công sức học tập để vào những việc này thì hại nhiều mà lợi không thấy đâu.

Dùng não bộ để tính toán bạn sẽ mất đi hàng tỉ nơ-ron quý giá, mất rồi muốn có lại phải ăn thật nhiều đồ ăn bổ dưỡng, bộ não mà đến giai đoạn không còn khả năng tư duy nữa thì hối tiếc không kịp.
Nên để dành cho việc lành mạnh sẽ có ích và có lợi. Chấp nhận làm công có lương, tích lũy ít từ từ sẽ có nhiều.

 

[Tuấn Bụng Bự]

Môn này là Vietlott hay Keno vậy bạn, nếu liên quan tới trò chơi ăn thua trúng thưởng, thì mình khuyên bạn nên sớm từ bỏ.
Nếu dùng trí tuệ và công sức học tập để vào những việc này thì hại nhiều mà lợi không thấy đâu.

Dùng não bộ để tính toán bạn sẽ mất đi hàng tỉ nơ-ron quý giá, mất rồi muốn có lại phải ăn thật nhiều đồ ăn bổ dưỡng, bộ não mà đến giai đoạn không còn khả năng tư duy nữa thì hối tiếc không kịp.
Nên để dành cho việc lành mạnh sẽ có ích và có lợi. Chấp nhận làm công có lương, tích lũy ít từ từ sẽ có nhiều.

cảm ơn bác, em chỉ là rèn luyện code thôi ạ. có bác chỉ em học về tổ hợp và đệ quy, em đang nghiên cứu tiếp