Nâng cấp trò chơi “Chiếc nón kỳ diệu trên MS Excel”

Chương trình “Chiếc nón kỳ diệu trên MS Excel” của anh Nhan Thành Hiệp hướng dẫn trên e-CHÍP 155 rất thú vị, nhưng có cái hơi mệt là mỗi lần muốn thay đổi đáp án thì phải thay đổi tất tần tật những chữ cái mà mình đã dài hơi nhập vào ở “Bước 3”.
Tôi có chỉnh sửa một số lệnh dựa trên hướng dẫn của anh Hiệp và nhận thấy rằng chương trình đơn giản và “đã” hơn nhiều. Bây giờ, bạn không phải mất công nhập đáp án theo kiểu “rối tinh rối mù” nữa, mà chỉ đơn giản nhập đáp án một nơi, “đội nón” một nẻo. Xin hướng dẫn lại như sau:

1. Mở sheet thứ hai đặt tên là “Answer”.
- Sau đó, ở ô A1 ghi chú là “Đáp án”, từ ô B1 đến S1 (hoặc nhiều ô hơn cũng được, ở đây là 18 ô) đặt tên là ANS (vào Insert\ Name\ Define).
- Ở ô A2 ghi chú là “Số kí tự” và hãy Merge các ô từ B2 đến S2, ghi vào đó số chữ cái của đáp án.
- Ở ô A3 ghi chú là “Gợi ý” và hãy Merge các ô từ B3 đến S3, ghi vào đó nội dung của câu gợi ý cho ô chữ, đặt tên là DN.

2. Mở sheet thứ nhất, đặt tên là “Play”. Trình bày như sau (ở đây chỉ tập trung phần lệnh):
- Chừa hai dòng phía trên để viết tiêu đề cho nó màu mè một chút (Ví dụ: Chào mừng bạn đến với trò chơi Chiếc nón kỳ diệu).
- Tiếp theo, ở ô A3 ghi chữ “Gợi ý”. Ô C3 nhập vào dòng lệnh sau:
="Ô chữ có "&Answer!B2&" chữ cái, là "&DN
- Như vậy, về cơ bản bạn đã có đầy đủ những phần cần thiết cho trò chơi.

3. Phần công thức kiểm tra đáp án sử dụng lại cách của anh Hiệp, nhưng sửa lại một chút như sau:
- Ở ô C5 ghi chú là “Đoán”, ô D5 ghi chú là “Thông báo”. Đặt tên cho dãy ô từ C6 đến C23 là TL. Đặt tên cho dãy ô từ F5 đến W5 là OC. Ở ô D6, viết đoạn lệnh sau rồi cứ copy đủ 18 ô xuống phía dưới:
=IF(ISBLANK(C6),"",IF(ISNA(HLOOKUP(C6,ANS,1,0)),"KHÔNG CÓ CHỮ "&C6,"CÓ "&COUNTIF(ANS,C6)&" CHỮ "&C6))
- Ở ô F5, viết đoạn lệnh sau rồi copy sang phải cho đủ 18 ô:
=IF(ISNA(VLOOKUP(Answer!B1,TL,1,0)),"",Answer!B1)

4. Nếu bạn thấy chưa hài lòng lắm, có thể trang điểm thêm cho “chiếc nón” của mình, ví dụ như đánh thêm số thứ tự lần đoán bên cạnh mỗi dòng “Đoán”, hoặc thêm vào lệnh thông báo về trạng thái chơi như sau, tuy nhiên đoạn lệnh chưa được hoàn chỉnh lắm, chỉ để các bạn tham khảo thêm thôi:
=IF(ISBLANK(C6:C23),"Hãy đoán từ đầu tiên !",IF(EXACT(OC,ANS),"Chúc mừng bạn ! Bạn đã là người chiến thắng trong lượt chơi này ! ","Cố gắng lên ! Bạn sắp đoán ra rồi !"))
- Có lẽ vẫn còn nhiều sai sót, nhưng bây giờ “chiếc nón” có vẻ chuyên nghiệp hơn rồi đó. Chúc các bạn vui và rất cảm ơn anh Hiệp về trò chơi này.

Bạn có thể tải trò chơi chiếc nón kỳ diệu bằng Excel tại www.echip.com.vn

CHÍP CON TẬP CHÍP (Thủ Đức)