Dùng VBA để dự đoán LOTTO

Liên hệ QC

taimeanh

Thành viên mới
Tham gia
31/3/09
Bài viết
21
Được thích
32
Cách đây 5 năm do có nhu cầu cần một vài công thức để lập sổ tính toán nên biết đến trang GPE. Từ đó tới nay tôi là thành viên của GPE, tôi chưa có một bài viết nào vì không có chuyên môn về Excel. Tôi thường xuyên vào trang này để đọc. Tôi đọc say xưa hàng trăm lần những bài của các bạn như: ndu96081631, Siwtom, ptm0412, SA_DQ, Hoàng Trọng Nghĩa, levanduyet, PhanTuHuong, Nguyễn Duy Tuân, Hai Lúa Miền Tây, v.v…
Đúng là bể học mêng mông, càng đọc tôi càng say mê. Từ chỗ mù tịt về Excel, VBA nay tự nhận đã được xóa mù về món này. Qua đó xin cảm ơn tập thể GPE đã tạo nên một sân chơi vô cùng bổ ích.
Tôi đã về hưu nên học cũng chẳng để làm gì , tuy vậy tôi vẫn ham học hỏi. Nói đến Excel là nói đến các con số, mà tôi thì về hưu chả có liên quan gì đến sổ sách. Muốn thực hành phải có số liệu, thôi thì nghĩ đủ mọi trò nhưng nó vẫn nhàm chán, cuối cùng tôi nghĩ rằng xổ số nhà nước ngày nào cũng quay, nên có nhiều dữ liệu. Vậy là tôi bắt chước các trang về xổ số thử tính toán bằng Excel, thôi thì đủ trò, từ thống kê, xác suất, rồi thì số nóng, số nguội, bảng, biểu, thấy cũng nhiều điều kỳ thú, nay tôi đưa lên một ví dụ để các bạn góp ý và bổ sung cách làm hay. Tôi tự thấy Code tôi viết còn lủng củng, chạy lâu, chưa vận dụng được các Hàm cho hiệu quả, vì kiến thức hạn chế do không có cơ bản, cóp nhặt . . .
 

File đính kèm

  • Cầu Lotto bằng Excel.rar
    76 KB · Đọc: 1,340
Cộng dồn hai giải

Thêm 1 ví dụ khác. Thay vì tìm 2 vị trí như bản trước, nay dùng phép cộng dồn 2 giải để tìm ra số dự đoán. Mời các bạn có ý tưởng khác tham gia, hoặc nêu yêu cầu tôi sẽ đáp ứng.
 

File đính kèm

  • Lotto bằng Excel.rar
    79.9 KB · Đọc: 588
Upvote 0
các bác cho e ké 1 chân.. cái này em làm từ năm ngoái lâu rồi ko còn động vào nữa-=.,,
cái này em viết hoàn toàn bằng công thức+-+-+-++-+-+-++-+-+-+ ko có 1 chút cốt nào...
3 ngày chỉ google và em...-=09=-=09=
 

File đính kèm

  • v1.1.rar
    1.4 MB · Đọc: 1,029
Upvote 0
Thống kê LOTTO theo Thứ

Thêm một ví dụ về thống kê. Hôm nay thứ 7, tìm tất cả những ngày thứ 7 từ năm 2005 đến nay LOTTO hay ra những con số nào. Lấy và hiển thị 3 số có số lần xuất hiện nhiều nhất.
Nhân tiện tôi muốn thống kê theo ngày Can – Chi, ví dụ tìm tất cả ngày Ất dậu cũng lấy và hiển thị như trên mà không biết làm. Nhờ các bạn giúp cho.
 

File đính kèm

  • Thống kê LOTTO theo thứ trong Tuần.rar
    313.1 KB · Đọc: 520
Upvote 0
Sửa lại Code

Có nhầm lẫn phần Code của thống kê. Khi “NgayXem = NgayKT” rồi thì “Cll.Row+1” sai một ngày, thống kê thứ 7 lại thành CN. Đã sửa lại.
 

File đính kèm

  • Thống kê LOTTO theo thứ trong Tuần.rar
    314.4 KB · Đọc: 462
Upvote 0
Không hiểu nguyên tắc thống kê của bạn, tôi có vài code tính và đếm ngày can chi, nếu bạn nêu cụ thể yêu cầu thì tôi có thể giúp.
 
Upvote 0
Ví dụ như hôm nay là ngày Giáp Dần, thống kê tất cả các ngày Giáp Dần trong CSDL những con số nào(trong các số từ 00 đến 99)xuất hiện nhiều nhất, lấy và hiển thị 3 số, mai là ngày Ất Mão cũng thống kê như vậy, hoặc giả có thể kiểm tra ngày bất kỳ nào đó. Cảm ơn bạn quan tâm.
 
Upvote 0
Upvote 0
Tôi kiểm tra vẫn bình thường mà. Khi Set Sh = range() là tôi đã muốn khi Cls gặp hàng không có dữ liệu sẽ không báo lỗi.Bạn thử tải lại hoặc sủa code dòng Cll.Row+1(xóa +1 đi)
 
Upvote 0
Tôi kiểm tra vẫn bình thường mà. Khi Set Sh = range() là tôi đã muốn khi Cls gặp hàng không có dữ liệu sẽ không báo lỗi.Bạn thử tải lại hoặc sủa code dòng Cll.Row+1(xóa +1 đi)
Không hiểu office của tôi có thiếu thành phần gì không mà vẫn không được. Mà kể ra chương trình của bạn có thêm phần cập nhật kết quả thông qua internet nữa thì tốt quá đỡ phải nhập bằng tay.
 
Upvote 0
Tôi cố tình bỏ đi phần cập nhật KQ để mọi người thêm phần cập nhật KQ của riêng mình vào. Vì cập nhật nó liên quan đến trang web, có người thích trang này có người thích trang khác. Nếu bạn muốn tôi sẽ gửi bạn phần update KQ tự động
 
Upvote 0
Có update

Không hiểu office của tôi có thiếu thành phần gì không mà vẫn không được. Mà kể ra chương trình của bạn có thêm phần cập nhật kết quả thông qua internet nữa thì tốt quá đỡ phải nhập bằng tay.
Tôi cố tình bỏ đi phần update KQ để mọi người thêm phần cập nhật của mình vào vì cập nhật nó liên quan đến các trang web, người thích trang này người thích trang khác. Nếu bạn ngại làm thì tôi gửi bạn phần update của tôi, nếu bạn không thích có thể đổi trang khác.
 
Lần chỉnh sửa cuối:
Upvote 0
Gửi bạn File can chi năm, tháng, ngày, giờ 2005-2019. Bạn nhập can chi theo ngày dương lịch và vận dụng thống kê theo thứ mà bạn đã có chắc là giải quyết được.
 

File đính kèm

  • Can Chi 2005-2019.rar
    316.5 KB · Đọc: 276
Lần chỉnh sửa cuối:
Upvote 0
Mình đang mài mò Excel bao la như biển cả cho nên anh VBA thì cao tận mây xanh nhưng vướng phải cái nghiệp loto .Đây là chỉ thủ công tay chân giấy mực của mình xin các cao thủ viết ra bài excel sao cho thật dễ dàng...Đây là suy nghĩ của mình : hãy lấy 3 con số có vị trí bất kỳ trong lần đầu xổ cộng lại , lấy con số hàng đơn vị của tổng này sẽ là con số cuối cùng của giải đặc biệt , các lần xổ kế tiếp cũng ở vị trí ban đầu....chỉ cần biết con số cuối giải đặc biệt là đủ rồi các bạn ạ!Theo mình liên tục 8 ngày là cao nhất , thường thương là 5 ,6 ngày thôi , các cao thủ xem hình thêm nha !
Bạn có thể giải thích cặn kẽ PP của bạn không? Tôi vẫn chưa rõ ý của bạn. Có phải bạn muốn tìm chạm của GĐB?
 
Upvote 0
Mình đang mài mò Excel bao la như biển cả cho nên anh VBA thì cao tận mây xanh nhưng vướng phải cái nghiệp loto .Đây là chỉ thủ công tay chân giấy mực của mình xin các cao thủ viết ra bài excel sao cho thật dễ dàng...Đây là suy nghĩ của mình : hãy lấy 3 con số có vị trí bất kỳ trong lần đầu xổ cộng lại , lấy con số hàng đơn vị của tổng này sẽ là con số cuối cùng của giải đặc biệt , các lần xổ kế tiếp cũng ở vị trí ban đầu....chỉ cần biết con số cuối giải đặc biệt là đủ rồi các bạn ạ!Theo mình liên tục 8 ngày là cao nhất , thường thương là 5 ,6 ngày thôi , các cao thủ xem hình thêm nha !
Nếu bạn định tìm chạm của GĐB thì tôi có thể tìm ra đủ 10 chạm có độ dài trên 3 ngày(theo PP của bạn) trong vài giây. Nhưng như vậy thì còn gì để dự đoán nữa?
 
Upvote 0
thanks bác! em kt rồi nhưng update ngày 13/04/2014 có được đâu.
 
Upvote 0
Vậy thì rất mong phương pháp tính toán của Bác
 
Upvote 0
Tìm chạm theo Đuôi GĐB

Vậy thì rất mong phương pháp tính toán của Bác
Theo như cách của bạn thì không ngày nào không tìm ra đủ 10 chạm, vậy bạn xem cách khác làm sao chỉ ra khoảng 4,5 chạm thôi. Tôi gửi bạn cách làm theo PP của bạn.Bạn để chỏ chuột vào số chạm từ 0 > 9 rồi cho chạy nó sẽ hiện ra chạm bạn muốn tìm.
 

File đính kèm

  • Tìm Chạm GĐB.rar
    45.2 KB · Đọc: 349
Upvote 0
Web KT
Back
Top Bottom