Nhờ viết code VBA để thống kê các số hay ra cùng nhau

Liên hệ QC

phithuongbatphu86

Thành viên mới
Tham gia
17/6/21
Bài viết
31
Được thích
0
Chào mọi người. Chả là mình đang làm file thống kê dữ liệu xổ số bằng excel. Mình đang cần thống kê các số hay ra cùng nhau trong số kỳ đã chọn. Mình thấy dùng hàm thì khó đáp ứng được yêu cầu. Không biết VBA có thể xử lý được không? Mình gửi file để mọi người tham khảo.
Xin cảm ơn mọi người!
 

File đính kèm

  • Tìm số.xlsx
    16.1 KB · Đọc: 82
bác có thể hình dung tôi đang muốn tạo 1 file excel tương tự như thế này nhưng ở dạng đơn giản hơn
Nếu chỉ là thống kê thì không vấn đề gì, có cái là bạn phải làm rõ cách tính thì mới có thể viết được, mỗi người tính 1 cách, để hình dung ra là hơi bị khó.
 
Upvote 0
Upvote 0
Thống kê có lẽ cũng cần làm rõ là thống kê những thông số nào, thời điểm tính là như thế nào, phạm vi số liệu....
Vậy không là tính toán thì là gì vậy bạn
file của bác cũng khá ổn. Có thể chỉnh code thống kê từ kỳ mới nhất đến các kỳ trước đó không ( ngược thời gian), file cũ của tôi lại quên để chạy xuôi theo thời gian. Ví dụ file mới tôi thống kê trong 5 kỳ ( kỳ dòng kỳ 30 đến dòng kỳ 25).
Thank bác nhiều!
 

File đính kèm

  • Tim so 2.xlsb
    120.1 KB · Đọc: 29
Upvote 0
file của bác cũng khá ổn. Có thể chỉnh code thống kê từ kỳ mới nhất đến các kỳ trước đó không ( ngược thời gian), file cũ của tôi lại quên để chạy xuôi theo thời gian. Ví dụ file mới tôi thống kê trong 5 kỳ ( kỳ dòng kỳ 30 đến dòng kỳ 25).
Thank bác nhiều!
Có lẽ bạn đưa nhầm file, trong file bài trên, vùng tính toán vẫn thế mà bạn.
Bạn gửi file cũ của bạn lên để đối chiếu sửa chữa cho nhanh.
 
Upvote 0
Gửi bác. cảm ơn bác nhiều nhé.
Bạn đưa cái file cũ của bạn ấy, đừng đưa cái tôi viết, để đối chiếu.
file của bác cũng khá ổn. Có thể chỉnh code thống kê từ kỳ mới nhất đến các kỳ trước đó không ( ngược thời gian), file cũ của tôi lại quên để chạy xuôi theo thời gian. Ví dụ file mới tôi thống kê trong 5 kỳ ( kỳ dòng kỳ 30 đến dòng kỳ 25).
Thank bác nhiều!
 
Upvote 0
Bạn đưa cái file cũ của bạn ấy, đừng đưa cái tôi viết, để đối chiếu.
Chào bạn! code của bạn trong quá trình vận hành có lỗi: đối với các số có hàng đơn vị là "0" ví du: 10,20,30,40,50,60,70,80 thì khi chạy code, excel chỉ trả kết quả tương ứng là : 1;2;3;4;5;6;7;8 mà không có hàng đơn vị là "0". Nhờ bạn check lại giúp mình. Thank!
 

File đính kèm

  • Tim so.xlsb
    195.1 KB · Đọc: 24
Upvote 0
Chào bạn! code của bạn trong quá trình vận hành có lỗi: đối với các số có hàng đơn vị là "0" ví du: 10,20,30,40,50,60,70,80 thì khi chạy code, excel chỉ trả kết quả tương ứng là : 1;2;3;4;5;6;7;8 mà không có hàng đơn vị là "0". Nhờ bạn check lại giúp mình. Thank!
Mã:
'Tam(j) = 0
Tam(j) = Empty
Mã:
'Tam(z) = 0
Tam(z) = Empty
Mã:
'Kq(i + 1, 2) = Application.Trim(Replace(Join(Mang0), "0", ""))
Kq(i + 1, 2) = Application.Trim(Join(Mang0))
Bạn tìm các dòng trên, thay = dòng dưới
 
Upvote 0
Chào bác Chao Quay!
File trước đây về tìm 2 số về cùng nhau mà bác viết code giúp tôi giờ vận hành quá tuyệt vời. Giờ tôi phát sinh thêm 1 tiêu thức thống kê" số về trước - số về sau " cách nhau 1 kỳ. ko rõ bác có cách nào code được không? Bác thử giúp tôi nhé.
Ví dụ trong file tôi gửi kèm: kỳ trước ra số 17, kỳ sau thường ra số 33
Rất cảm ơn bác đã giúp đỡ.
Bài đã được tự động gộp:

Mã:
'Tam(j) = 0
Tam(j) = Empty
Mã:
'Tam(z) = 0
Tam(z) = Empty
Mã:
'Kq(i + 1, 2) = Application.Trim(Replace(Join(Mang0), "0", ""))
Kq(i + 1, 2) = Application.Trim(Join(Mang0))
Bạn tìm các dòng trên, thay = dòng dưới
Chào bác Chao Quay!
File trước đây về tìm 2 số về cùng nhau mà bác viết code giúp tôi giờ vận hành quá tuyệt vời. Giờ tôi phát sinh thêm 1 tiêu thức thống kê" số về trước - số về sau " cách nhau 1 kỳ. ko rõ bác có cách nào code được không? Bác thử giúp tôi nhé.
Ví dụ trong file tôi gửi kèm 1 file mới : kỳ trước ra số 17, kỳ sau thường ra số 33
Rất cảm ơn bác đã giúp đỡ.
Bài đã được tự động gộp:

Chào bạn! code của bạn trong quá trình vận hành có lỗi: đối với các số có hàng đơn vị là "0" ví du: 10,20,30,40,50,60,70,80 thì khi chạy code, excel chỉ trả kết quả tương ứng là : 1;2;3;4;5;6;7;8 mà không có hàng đơn vị là "0". Nhờ bạn check lại giúp mình. Thank!
Chào bác Chao Quay!
File trước đây về tìm 2 số về cùng nhau mà bác viết code giúp tôi giờ vận hành quá tuyệt vời. Giờ tôi phát sinh thêm 1 tiêu thức thống kê" số về trước - số về sau " cách nhau 1 kỳ. ko rõ bác có cách nào code được không? Bác thử giúp tôi nhé.
Ví dụ trong file tôi gửi kèm 1 file mới : kỳ trước ra số 17, kỳ sau thường ra số 33
Rất cảm ơn bác đã giúp đỡ.
 

File đính kèm

  • Thong ke so hay ve sau 1 ky.xlsx
    17.2 KB · Đọc: 21
  • Thong ke so hay ve sau 1 ky.xlsx
    17.2 KB · Đọc: 25
Lần chỉnh sửa cuối:
Upvote 0
Mã:
'Tam(j) = 0
Tam(j) = Empty
Mã:
'Tam(z) = 0
Tam(z) = Empty
Mã:
'Kq(i + 1, 2) = Application.Trim(Replace(Join(Mang0), "0", ""))
Kq(i + 1, 2) = Application.Trim(Join(Mang0))
Bạn tìm các dòng trên, thay = dòng dưới
Em chào bác! e có một số vấn đề muốn hỏi bác trực tiếp: Bác CHAO QUAY có thể cho em xin số điện thoại để tiện liên hệ không ak?
 
Upvote 0
Em chào bác! e có một số vấn đề muốn hỏi bác trực tiếp: Bác CHAO QUAY có thể cho em xin số điện thoại để tiện liên hệ không ak?
e đã sửa như bác nói mà vẫn thiếu số 0 đằng trước các số từ 01-09 ak! bác giúp em được không ak?
 
Upvote 0
Lần chỉnh sửa cuối:
Upvote 0
Upvote 0
Nhân dịp đầu năm mới ! Chúc Anh Chão Quẩy một năm mới Sức khỏe, Hạnh Phúc và Thành công.
Em có File dữ liệu nhờ Bác code giúp em với ak. Mọi mong muốn và nội dung em đã viết trong file rồi ak!
 

File đính kèm

  • lọc màu từ phải qua trái.xlsb
    244.2 KB · Đọc: 17
Upvote 0
Web KT
Back
Top Bottom