Xin câu lệnh VBA

[Elninoo0oo]

các bác cho em xin câu lệnh VBA trong excel với chức năng như sau:
em có tạo 1 file excel để quay số trúng thưởng cuối năm. khi bấm vào nút quay thì n sẽ chọn ngẫu nhiên 1 số từ file data và hiển thị sau đó hiển thị sang danh sách trúng thưởng ( điều này em đã làm được rồi ). Bây giờ em không muốn phải ấn nhiều lần vào nút quay nữa mà chỉ cần ấn 1 lần là nó sẽ tự quay cho đến khi hết người trong file danh sách thì dùng câu lệnh như nào ạ.
Vì dụ. công ty có tổng 10 giải khuyến khích, 10 giải ba, 5 giải nhì và 1 giải nhất
--> Khi bấm nút quay n sẽ tự động quay 10 lần giải khuyến khích rồi dừng lại. ấn tiếp lại quay 10 giải ba rồi dừng lại. ấn tiếp lại quay 5 giải nhì, ...

Bài đã được tự động gộp: 5/8/24

 

[HUONGHCKT]

các bác cho em xin câu lệnh VBA trong excel với chức năng như sau:
em có tạo 1 file excel để quay số trúng thưởng cuối năm. khi bấm vào nút quay thì n sẽ chọn ngẫu nhiên 1 số từ file data và hiển thị sau đó hiển thị sang danh sách trúng thưởng ( điều này em đã làm được rồi ). Bây giờ em không muốn phải ấn nhiều lần vào nút quay nữa mà chỉ cần ấn 1 lần là nó sẽ tự quay cho đến khi hết người trong file danh sách thì dùng câu lệnh như nào ạ.
Vì dụ. công ty có tổng 10 giải khuyến khích, 10 giải ba, 5 giải nhì và 1 giải nhất
--> Khi bấm nút quay n sẽ tự động quay 10 lần giải khuyến khích rồi dừng lại. ấn tiếp lại quay 10 giải ba rồi dừng lại. ấn tiếp lại quay 5 giải nhì, ...

Bài đã được tự động gộp: 5/8/24

Để tạo hấp dẫn và hồi hộp cho người dự quay trúng thưởng. nếu là tôi tôi sẽ cho các số nhảy chậm hơn. Và giữa mỗi lần them người trúng thưởng cũng chậm hơn.
Khi hết 1 giải chuyển sang giải khác cũng để thời gian tạm dừng lâu hơn.
Muốn vậy cột R từ R4 dến R.. ta để Giải KK : n dòng, Giải 3:...dòng, giải 2:... dòng,....

 

[Elninoo0oo]

Để tạo hấp dẫn và hồi hộp cho người dự quay trúng thưởng. nếu là tôi tôi sẽ cho các số nhảy chậm hơn. Và giữa mỗi lần them người trúng thưởng cũng chậm hơn.
Khi hết 1 giải chuyển sang giải khác cũng để thời gian tạm dừng lâu hơn.
Muốn vậy cột R từ R4 dến R.. ta để Giải KK : n dòng, Giải 3:...dòng, giải 2:... dòng,....

cảm ơn bác. bác cho e hỏi mình muốn chủ động trong việc quay giải nào thì cấu hình như nào ạ. hiện tại file của bác là n cứ chạy 1 mạch từ đầu đến cuối
Ví dụ. mình chọn giải nào thì quay giải đó. hết giải n sẽ đứng im để mình chọn giải khác. Hoặc đơn giản hơn có thể tạo giúp em 1 nút stop. để khi hết giải mình cần chỉ cần bấm stop. sau đó bấm next để tiếp tục

Bài đã được tự động gộp: 5/8/24

Để tạo hấp dẫn và hồi hộp cho người dự quay trúng thưởng. nếu là tôi tôi sẽ cho các số nhảy chậm hơn. Và giữa mỗi lần them người trúng thưởng cũng chậm hơn.
Khi hết 1 giải chuyển sang giải khác cũng để thời gian tạm dừng lâu hơn.
Muốn vậy cột R từ R4 dến R.. ta để Giải KK : n dòng, Giải 3:...dòng, giải 2:... dòng,....

và khi quay bị trùng người thì nó sẽ tự bỏ qua và quay tiếp. trong file em mới chỉ làm được khi quay phải người đã có trước đó thì nó lại đứng im. và khi bấm vào nút click n sẽ lại tính lại từ đầu. nghĩa là sẽ tham chiếu giá trị giải thưởng ở cột R từ hàng đầu tiên

 

[HUONGHCKT]

cảm ơn bác. bác cho e hỏi mình muốn chủ động trong việc quay giải nào thì cấu hình như nào ạ. hiện tại file của bác là n cứ chạy 1 mạch từ đầu đến cuối
Ví dụ. mình chọn giải nào thì quay giải đó. hết giải n sẽ đứng im để mình chọn giải khác. Hoặc đơn giản hơn có thể tạo giúp em 1 nút stop. để khi hết giải mình cần chỉ cần bấm stop. sau đó bấm next để tiếp tục

Bài đã được tự động gộp: 5/8/24

và khi quay bị trùng người thì nó sẽ tự bỏ qua và quay tiếp. trong file em mới chỉ làm được khi quay phải người đã có trước đó thì nó lại đứng im. và khi bấm vào nút click n sẽ lại tính lại từ đầu. nghĩa là sẽ tham chiếu giá trị giải thưởng ở cột R từ hàng đầu tiên

Hãy nhập tên giải vào ô D2 và click nút "Click"
Cơ cấu giải phải được lieetjh kê ở cột R.

 

[Elninoo0oo]

Hãy nhập tên giải vào ô D2 và click nút "Click"
Cơ cấu giải phải được lieetjh kê ở cột R.

không được bác ạ. click vào không chạy. Và vẫn cần 1 nút stop để dừng lại khi muốn chuyển sang giải tiếp theo bác ạ. nhờ bác chỉ giáo. e cảm ơn bác

 

[HUONGHCKT]

không được bác ạ. click vào không chạy. Và vẫn cần 1 nút stop để dừng lại khi muốn chuyển sang giải tiếp theo bác ạ. nhờ bác chỉ giáo. e cảm ơn bác

Bạn có làm như đã hướng dẫn không? xem lại chứ trên máy tôi chạy ngon lành mà.
Quy trình :
1/Xóa bỏ toàn bộ kết quả cũ Từ M4: Q...đi. ( dữ liệu bên cột R vẫn để nguyên nó bao gồm KK, 3,2,1,ĐB- Nếu chưa có thì thêm vào)
2/Nhập vào D2 : KK hoặc 3 hoặc 2 hoặc 1,....
3/ Click nút "click"
Rất tiếc là không gửi video cho bạn được.

 

[ongke0711]

em có tạo 1 file excel để quay số trúng thưởng cuối năm. khi bấm vào nút quay thì n sẽ chọn ngẫu nhiên 1 số từ file data và hiển thị sau đó hiển thị sang danh sách trúng thưởng ( điều này em đã làm được rồi ). Bây giờ em không muốn phải ấn nhiều lần vào nút quay nữa mà chỉ cần ấn 1 lần là nó sẽ tự quay cho đến

Bạn ngâm cứu file của bạn này xem, có nhiều kiểu quay nhưng chắc phải chỉnh lại mới chủ động số trúng.
link: https://www.giaiphapexcel.com/diend...may-mắn-lucky-draw.159179/page-2#post-1062095

 

[Elninoo0oo]

Bạn ngâm cứu file của bạn này xem, có nhiều kiểu quay nhưng chắc phải chỉnh lại mới chủ động số trúng.
link: https://www.giaiphapexcel.com/diend...may-mắn-lucky-draw.159179/page-2#post-1062095

carm ơn bác nhưng vòng quay tên này thì đc ít người quá. của em tận 500 người lận

Bài đã được tự động gộp: 6/8/24

Bạn có làm như đã hướng dẫn không? xem lại chứ trên máy tôi chạy ngon lành mà.
Quy trình :
1/Xóa bỏ toàn bộ kết quả cũ Từ M4: Q...đi. ( dữ liệu bên cột R vẫn để nguyên nó bao gồm KK, 3,2,1,ĐB- Nếu chưa có thì thêm vào)
2/Nhập vào D2 : KK hoặc 3 hoặc 2 hoặc 1,....
3/ Click nút "click"
Rất tiếc là không gửi video cho bạn được.

em thử lại vẫn thế bác ạ. em có thể add zalo bác nhờ bác chỉ giáo ko

 

[ongke0711]

carm ơn bác nhưng vòng quay tên này thì đc ít người quá. của em tận 500 người lận

Muốn nhảy dạng số có 5 chữ số có luôn nhưng để trưa rảnh lục tìm file lại..

 

[huhumalu]

Muốn nhảy dạng số có 5 chữ số có luôn nhưng để trưa rảnh lục tìm file lại..


View attachment 302954

Này ha anh.

[Share Code] Demo Quay số trúng thưởng theo danh sách trong table

(12-07-15, 11:36 PM)tranthanhan1962 Đã viết: Vừa xử lý xong code xổ số post ngay lên để Dân và các bạn kiểm tra. 1/ Quay từ số một, từ trái qua phải (cho thêm phần hấp dẫn hơn là quay đồng loạt tất cả

thuthuataccess.com

chạy random theo mã nhân viên trong table.

Chào các bạn! mình có làm 1 form quay số, bình thường thì cho chạy random dãy số tự nhiên : Randomize nn = Int((100 * Rnd()) + 1). Nhưng vấn đề là mình muốn random theo mã nhân viê

thuthuataccess.com

 

[ongke0711]

Này ha anh.

[Share Code] Demo Quay số trúng thưởng theo danh sách trong table

(12-07-15, 11:36 PM)tranthanhan1962 Đã viết: Vừa xử lý xong code xổ số post ngay lên để Dân và các bạn kiểm tra. 1/ Quay từ số một, từ trái qua phải (cho thêm phần hấp dẫn hơn là quay đồng loạt tất cả

thuthuataccess.com

chạy random theo mã nhân viên trong table.

Chào các bạn! mình có làm 1 form quay số, bình thường thì cho chạy random dãy số tự nhiên : Randomize nn = Int((100 * Rnd()) + 1). Nhưng vấn đề là mình muốn random theo mã nhân viê

thuthuataccess.com

File 9 năm tuổi rồi...