Tặng các bạn file "QUAY SỐ TRÚNG THƯỞNG" nhân dịp Tết cổ truyền.

[Hoàng Trọng Nghĩa]

Nhân dịp Tết cổ truyền, có thể là tất niên và cũng có thể là tân niên, một số cty tổ chức rút thăm trúng thưởng, nếu như có một chương trình như thế này để vui chơi thì tạo thêm không khí tưng bừng cho ngày xuân phải không các bạn!

Không khác gì mấy với cách thức và giao diện của bài này:

http://www.giaiphapexcel.com/forum/...N-GiaiphapExcel-Com-lần-5&p=323317#post323317

Nhưng lần cải tiến này đã thay đổi bên trong rất nhiều, cụ thể là trước đó chỉ dùng 1 UserForm để thực hiện quay số nên nhiều công đoạn rối rắm, nay dùng tới 2 UserForm cho việc này, đồng thời cải tiến code và giao diện đẹp hơn, hiệu quả hơn.

Từ bài viết này:

Bài này hay quá Thầy ơi, hôm nay em mới đọc được! Hay quá chỉ có chép về và nghiên cứu xem mình sẽ ứng dụng gì với hàm này đây!

SẼ NHANH CHÓNG CÓ MỘT ỨNG DỤNG XÀI CHO HÀM PictureFromObject NÀY!

http://www.giaiphapexcel.com/forum/...Sheet-lên-Button-của-Form&p=558617#post558617

tôi đã có cảm hứng và viết một ứng dụng dùng ngay cho hàm PictureFromObject nói trên, nó làm cho tôi khám phá nhiều hơn và tôi thật sự thích thú về điều đó.

Điểm nổi bật của chương trình lần này là người dùng không cần phải biết VBA cũng có thể đổi LOGO (hình ảnh) của công ty mình mà không phải Alt+F11 để đổi thủ công nữa! Chỉ cần bấm nút và thưởng thức!

Các bạn tải file về giải nén và trải nghiệm một ứng dụng từ hàm PictureFromObject của Thầy ndu96081631 nhé!

 

[KUMI]

Gọi là chơi vui chứ có phải quay tiền bạc tỷ, thắng ô tô đâu mà chơi trò ăn gian.

Hì, Thầy ơi! nói ăn gian chung chung vậy chứ nhưng cũng có nhiều tình huống đôi khi cũng cần lắm chứ.
Ví dụ ở cơ quan em năm vừa rồi có những người công hiến đặc biệt chẳng hạn ngoài tiêu chí xét thưởng ra thì ta cho họ thêm cơ hội chẳng hạn. Và nhất là trên diễn đàn có những nguy cơ bất cập gì ta cũng nên bàn đến phải không Thầy.

Về việc loại những "mục" đã được quay thì nếu tôi không lầm thì code của Nghĩa có loại.

Em không hiểu gì về code lắm nhưng lúc test em thấy trường hợp đã nêu ở trên là có xảy ra Thầy ạ.
Có thể Anh nghĩa chỉ áp dụng code loại trong trường hợp các số tự nhiên đưa vào tư 1 đến 999 hoặc đến n thôi ạ.
Còn khi đã nhập các số cần quay vào list danh sách trong sheets Quay_Số thì code loại số trùng này của anh Nghĩa không còn tác dụng nữa...
Hix, em không hiểu gì code chỉ đoán mò qua việc thử thôi ạ.

Mà tôi tự ý sửa tác phẩm của bạn Nghĩa mà không xin phép

Spam thêm chút ạ:
Hix,như Thầy nói chắc em cũng bị tội hihi,nếu có gì không phải Anh Nghĩa đừng giận em nhé!

Chỉ sợ gặp rồi họ xin tí tiết thì toi đời tôi.

Anh Nghĩa chỉ được cái nhiệt tình và chạy theo phong trào thôi Thầy ạ, chứ nhát lắm! Thầy thấy đấy đẹp trai và giỏi giang như vậy mà đến giờ vẫn ợ độc thân --> kiểu này chắc là gái còn không dám tán huống chi là xin tiết của người khác

Quà của bạn Nghĩa, code của bạn Nghĩa, tác phẩm của bạn Nghĩa. Ai có yêu cầu sửa thì liên hệ với Nghĩa. Tôi dừng ở đây.

Em nghĩ cái này cũng có một chút gọi là trao đổi để học hỏi và đưa ra giải pháp vì mỗi người một sở thích,Nhưng Thầy đã tôn trọng và cho vấn đề này thuộc về riêng tư nhiều hơn thì em cũng xin rút kinh nghiêm ạ!

Em cảm ơn Thầy đã giúp em!

 

[vuongtoituonglai]

Chương trình hay quá, Mình muốn sửa số người tham dự là một con số lớn hơn 999(chẳn hạn 9999 người tham dự) nhưng không biết phải làm sao. Chủ nhân của tác phẩm chỉnh dùm mình chổ này nhé!
Cảm ơn.

 

[KUMI]

Chương trình hay quá, Mình muốn sửa số người tham dự là một con số lớn hơn 999(chẳn hạn 9999 người tham dự) nhưng không biết phải làm sao. Chủ nhân của tác phẩm chỉnh dùm mình chổ này nhé!
Cảm ơn.

Hix, bạn chưa đọc các bài trước đó à!
Mình đã trả lời cho bạn trong bài câu hỏi này rồi mà:

Thầy ơi xem lại dùm em. Công ty em tới hơn 5000 nhân viên mà số phiếu chỉ cho nhập tối đa là 999 phiếu. Thầy chỉnh lại chổ này nhé. Để tiện cho người sử dụng Thầy thiết kế Form danh sách nhân viên bao gồm tên, mã nhân viên, bộ phận từ excel... sau đó sẽ import vào chương trình quay số thì sẽ tuyệt vời hơn.

Câu Trả Lời

 

[vuongtoituonglai]

Hix, bạn chưa đọc các bài trước đó à!
Mình đã trả lời cho bạn trong bài câu hỏi này rồi mà:



Câu Trả Lời

Thật sự là mình thấy bạn trả lời câu hỏi của mình rồi nhưng trong file mình tải về chỉ có một file một file duy nhất đó là file "RutThamGPE_NewVersion" cứ lay hoay tìm chổ sửa code như bạn chỉ nhưng không biết tìm chổ nào để sửa. Mình chọn phím Alt+F11 nhưng cũng không thấy code đâu cả.

 

[ma_trix]

Ai có pass cho mình xin với, mình nhắn tin cho Nghĩa không được, cám ơn rất nhiều

 

[vuongnv]

Mọi người cho em xin pass với ạ, em gửi tin nhắn cho anh Nghĩa nhưng không được. Cám ơn ạ

 

[letinnghia]

Các bạn theo đường dẫn dưới đây, tải file Rar về, giải nén, chép folder QuaySo vào ổ đĩa nào đó rồi trải nghiệm với file có âm nhạc vui tươi.



CHÚC CÁC BẠN VUI VẺ!

Anh Hoàng Trọng Nghĩa Ơi, có cách nào danh sách trúng thưởng được lấy từ file excel bao gồm MNV, họ và tên, bộ phận và hình của từng nhân viên(Mục đích là khi người trúng thưởng sẽ hiện thông tin như: MNV, tên, bộ phận và hình của nhân viên đó) rất mong nhận được sự giúp đỡ của anh. Chân Thành Cảm Ơn

 

[thang24]

Rất hay và ý nghĩa, tuy nhiên mình muốn đến lần quay thứ 10 thì fix ra một số cố định giả sử 40 được không bạn? vì có nhiều trường hợp mình cần phải tặng quà cho người kém may mắn mà ko sợ họ tự ti

 

[Minhhanh_89]

Hi anh,
Em không có mở cửa sổ VBA của file được, em muốn chỉnh sửa số phiếu quay lớn hơn ạ. Anh có thể gửi cho em xin file để em điều chỉnh form và số lượng không ạ.
Em cảm ơn

 

[Bonito89]

Dear anh Nghĩa!
Trước hết rất cảm ơn anh vì file này, tôi thấy nó rất hữu ích.
Cho tôi hỏi nếu bốc thăm trúng thưởng có 10 loại giải thưởng từ giải 10 đến giải đặc biệt (số lượng quà mỗi vòng giảm dần). Muốn quay thưởng từng vòng riêng biệt thì làm sao để loại được những số đã quay trúng rồi? Rất mong nhận được phản hồi từ anh.
Cảm ơn anh./.

 

[Nguyễn Ngọc 1988]

E thấy chương trình rất hay. Cho e hỏi e có cơ cấu là 10 giải kk, 5 giải 3, 2 giải 2 và 1 giải nhất. Sau khi quay hết 10 giải kk thì sẽ reset để quay giải tiếp theo, nhưng làm thế nào để những người đã có tên ở các giải trc thì sẽ ko xuất hiện ở những lần quay tiếp theo nữa ạ. E xin dc nhờ các anh/ chị giúp đỡ. Xin cảm ơn.

 

[Vanchung8x]

E thấy chương trình rất hay. Cho e hỏi e có cơ cấu là 10 giải kk, 5 giải 3, 2 giải 2 và 1 giải nhất. Sau khi quay hết 10 giải kk thì sẽ reset để quay giải tiếp theo, nhưng làm thế nào để những người đã có tên ở các giải trc thì sẽ ko xuất hiện ở những lần quay tiếp theo nữa ạ. E xin dc nhờ các anh/ chị giúp đỡ. Xin cảm ơn.

Share link cho mình với

Bài đã được tự động gộp: 7/12/19

Tặng thêm cho các bạn phiên bản có nhạc!

Các bạn theo đường dẫn dưới đây, tải file Rar về, giải nén, chép folder QuaySo vào ổ đĩa nào đó rồi trải nghiệm với file có âm nhạc vui tươi.

Lưu ý, file Excel luôn luôn để cạnh với folder Media nhé các bạn, nói chung là 2 mục này phải để chung trong 1 folder.

http://www.mediafire.com/download/888razkss8qrua8/QuaySo.rar

CHÚC CÁC BẠN VUI VẺ!

A Nghĩa ơi chia sẻ version mới nhất được không?

 

[bkit_spk_2012]

admin ơi, cho em hỏi là em mở file ra thì báo lỗi này là thế nào.

 

[phuoclocvl]

Nhân dịp Tết cổ truyền, có thể là tất niên và cũng có thể là tân niên, một số cty tổ chức rút thăm trúng thưởng, nếu như có một chương trình như thế này để vui chơi thì tạo thêm không khí tưng bừng cho ngày xuân phải không các bạn!

Không khác gì mấy với cách thức và giao diện của bài này:

http://www.giaiphapexcel.com/forum/showthread.php?51196-Tặng-các-bạn-file-QUAY-SỐ-TRÚNG-THƯỞNG-nhân-dịp-SN-GiaiphapExcel-Com-lần-5&p=323317#post323317

Nhưng lần cải tiến này đã thay đổi bên trong rất nhiều, cụ thể là trước đó chỉ dùng 1 UserForm để thực hiện quay số nên nhiều công đoạn rối rắm, nay dùng tới 2 UserForm cho việc này, đồng thời cải tiến code và giao diện đẹp hơn, hiệu quả hơn.

Từ bài viết này:



http://www.giaiphapexcel.com/forum/showthread.php?74484-Load-Shape-của-Sheet-lên-Button-của-Form&p=558617#post558617

tôi đã có cảm hứng và viết một ứng dụng dùng ngay cho hàm PictureFromObject nói trên, nó làm cho tôi khám phá nhiều hơn và tôi thật sự thích thú về điều đó.

Điểm nổi bật của chương trình lần này là người dùng không cần phải biết VBA cũng có thể đổi LOGO (hình ảnh) của công ty mình mà không phải Alt+F11 để đổi thủ công nữa! Chỉ cần bấm nút và thưởng thức!

Các bạn tải file về giải nén và trải nghiệm một ứng dụng từ hàm PictureFromObject của Thầy ndu96081631 nhé!

Dạ chào Anh,
Sao em dung pass minhthien321 mở vbaproject mà báo sai miết. Cho em xin lại pass với. Cảm ơn Anh