Tạo trò chơi ô chữ trong excel

[cuongetb]

Em đang có 1 ô chữ, muốn tạo thành trò chơi như trò chiếc nón kỳ diệu hay đường lên đỉnh Olimpia, nhưng do còn yếu và thiếu nên em chua biết làm thế nào.Mong các bác giúp đỡ
Em có 15 từ hàng ngang và 1 từ hàng dọc, em muốn là ấn vào các số ở ban đầu thì sẽ hiện ra các từ khác ở bên trong
Em cảm ơn

Em gửi lại vì quên chua kèm file

 

[SA_DQ]

Bạn đến đây tham khảo

http://giaiphapexcel.com/forum/showthread.php?t=572
Cách làm sẽ như sau:
Từ hàng dọc sẽ là từ chuẩn & không suy suyễn.
Các từ hàng ngang bạn cho nó vô 1 cột, VD cốt 'A'
Lập 1 vòng lặp cho tất cã các từ trong cột 'A' thỏa điều kiện trùng vị trí giữa hai chữ cái Ví dụ nha:

Const Chuan As String = "ENGLISHFESTIVAL"
lRow= [A65500].End(xlup).Row
 For jJ = 1 To lRow
    If Mid$( Cells(jJ , 1),2,1 = Letf( Chuan,1) then
    For Zz = 1 To lRow
         If Mid$( Cells(Zz,1), 3)= Mid(Chuan,2,1) then 
     . . . . . 
 
          Msgbox ""
 ... . . .  .

Quan trọng bạn phải xây dựng CSDL tương đối đồ sộ & lòng kiên nhẫn vô biên để máy tính có thể khảo sát giúp bạn hơn nữa tiếng, nếu không gặp may!
Bạn sẽ có số vòng lặp đúng bằng độ dài của từ chuẩn nêu trên.

 

[nhatthai]

Em đang có 1 ô chữ, muốn tạo thành trò chơi như trò chiếc nón kỳ diệu hay đường lên đỉnh Olimpia, nhưng do còn yếu và thiếu nên em chua biết làm thế nào.Mong các bác giúp đỡ
Em có 15 từ hàng ngang và 1 từ hàng dọc, em muốn là ấn vào các số ở ban đầu thì sẽ hiện ra các từ khác ở bên trong
Em cảm ơn

BẠN HÃY THỬ VỚI PP HOẶC 1 CHƯƠNG TRÌNH KHÁC SẼ NHÀN HẠ HƠN NHIỀU. NẾU CẦN BẠN GỬI BỘ CÂU HỎI TÔI LÀM GIÚP CHO.
TÔI GỬI FILE DEMO BẠN XEM CÓ ĐƯỢC KHÔNG.
THÂN