 |
|
CHÍP CÙNG “DÂN
KẸP GIẤY” |
|
Tạo chức năng quay số ngẫu nhiên cho trò chơi “Chiếc
nón kỳ diệu trên MS Excel” |
|
Trên các số trước, e-CHÍP đã giới thiệu những bài
viết về cách tự tạo một trò chơi “Chiếc nón kỳ diệu
bằng Excel” thật hấp dẫn. Nhưng trò chơi này thiếu
cái thú vị và hồi hộp nhất là... quay số! Bài viết
này hướng dẫn bạn tự tạo cho mình một “chiếc nón” để
hai hoặc nhiều người chơi có thể lần lượt quay số.
Vì thế, trò chơi sẽ hấp dẫn và sôi nổi hơn. |
|
- Ta sẽ sử dụng hàm rand() của Excel để tạo ra số
ngẫu nhiên. Bạn chọn một ô (ví dụ như ô D2) để chứa
kết quả quay số và gõ vào đó công thức:
=round(rand()*100,0). Công thức này sẽ cho ra
một số nguyên ngẫu nhiên trong khoảng 0, 100. Bạn có
thể thay 100 bằng một số lớn hơn. Và bạn cũng chọn
một ô để chứa tổng điểm sau từng lần quay. Nếu có
nhiều người chơi, hãy chọn nhiều ô ứng với số người
chơi. |
|
- Tiếp theo, bạn sẽ tạo một macro để khi cần quay
số, chỉ cần nhấn phím tắt để chạy. Bạn vào menu
Tools\ Macro\ Record New Macro, đặt tên cho macro là
quayso, thiết lập cho macro này một phím tắt ở ô
shortcut key, sau đó nhấn OK. Vào menu Tools\ Macro\
Stop Recording. Bây giờ, một macro có tên quayso đã
được tạo. |
|
- Bạn vào lại menu Tools\ Macro\ Macros, nhấp chọn
macro quayso và nhấn Edit, sau đó nhập nội dung sau
vào giữa hai dòng Sub quayso() và End Sub mà Excel
đã tạo sẵn: |
Calculate
Range("C2").Select
If Range("d2") > 0 Then
ActiveCell.FormulaR1C1 = Range("D2") + Range("C2")
Else
MsgBox ("Ban bi mat diem")
ActiveCell.FormulaR1C1 = 0
End If |
|
Trong đó, C2 là ô mà bạn đã chọn để chứa tổng điểm,
D2 là ô mà bạn đã chọn để chứa số tạo ngẫu nhiên.
Nếu kết quả quay là 0, ta xem như người chơi quay
vào ô “Mất điểm”. Bạn cũng có thể đặt thêm những
điều kiện khác như “gấp đôi”, “chia đôi”... |
|
-
Nếu có nhiều người chơi, bạn cũng tạo ra macro
quayso2, quayso3... với nội dung tương tự như trên,
chỉ thay ô C2 bằng một ô khác để chứa điểm số của
người chơi thứ 2, thứ 3... Khi đến lượt người chơi
nào, người đó chỉ cần nhấn phím tắt để quay số cho
mình. Nhưng vì chơi trên Excel nên ta sẽ đặt điều
kiện giữa những người chơi với nhau là đoán đúng rồi
mới được “quay số”. |
|
LÊ MINH HỮU (Long An) |
|
|
|
|
|
|
