Tự tạo - Tự chơi SODOKU! (1 người xem)

[HoaVoTuyet1980]

Chào mọi người,
Tôi tìm được cái này trên mạng muốn gửi mọi người chơi thử cho vui nha!
Đây là trò Sodoku bình thường thôi, nhưng bạn có thể tự thiết kế lấy để chơi hay gửi cho bạn bè cùng chơi.
Nhưng có một vấn đề là tôi không thể nào xem được mã nguồn của trò này được nên phiền mọi người mở mã nguồn VBA dùm được không? Nó bị khóa cách nào vậy? Và làm sao mở nó ra bây giờ?
Tôi chỉ muốn biết các viết VBA thế nào thôi!
Xin cảm ơn trước...

 

[chibi]

Bạn nào giới thiệu cách chơi SODOKU?

 

[boong]

Cái này thì em biết đó. Luật chơi rất đơn giản, bác tìm 1 số sao cho không có hàng ngang hay hàng dọc nào có số trùng với số đó là được. Tức là số đó là số duy nhất của hàng ngang và hàng dọc chứa nó. Nói thì đơn giản chứ bắt tay vào chơi thì mới biết được nỗi khổ cực của người chơi đó bác ạ! Em không bao giờ chơi qua được vòng 3 của trò này cả? Không biết mọi người thì sao.

 

[nguyentuhp]

' Module1
Sub ClearBoard()
'
' ClearBoard Macro
' Macro recorded 9/10/2006 by bstewart
'

'
Range("A1:I9").Select
Selection.ClearContents
Selection.Font.ColorIndex = 1
Range("Aa1:aI9").Select
Selection.ClearContents
Range("A1").Select
ActiveWorkbook.Save
End Sub

Sub FormatBoard()
'
' FormatBoard Macro
' Macro recorded 9/16/2006 by bstewart
'

'
For rw = 1 To 9
For cl = 1 To 9
Range(Cells(rw, cl), Cells(rw, cl)).Select

If Cells(rw, cl).Value = 0 Then
Selection.Font.ColorIndex = 3
End If

Next cl

Next rw

Range("A1").Select
End Sub



' Module2

Sub ClearBoard()
'
' ClearBoard Macro
' Macro recorded 9/10/2006 by bstewart
'

'
Range("A1:I9").Select
Selection.ClearContents
Selection.Font.ColorIndex = 1
Range("Aa1:aI9").Select
Selection.ClearContents
Range("A1").Select
ActiveWorkbook.Save
End Sub

Sub FormatBoard()
'
' FormatBoard Macro
' Macro recorded 9/16/2006 by bstewart
'

'
For rw = 1 To 9
For cl = 1 To 9
Range(Cells(rw, cl), Cells(rw, cl)).Select

If Cells(rw, cl).Value = 0 Then
Selection.Font.ColorIndex = 3
End If

Next cl

Next rw

Range("A1").Select
End Sub

 

[liuxiang0123]

Bạn nào giới thiệu cách chơi SODOKU?

Có 2 loại: SODOKU ma trận và SODOKU như ta thường thấy đó là có 9 x 9 ô.
Ta điền vào các hàng ngang, hàng dọc và trong ô 3 x 3 sao cho mỗi hàng đều có đủ các số từ 1-9( không cần theo thứ tự), không được trùng nhau trên mỗi hàng và trong ô 3 x 3
VD:
1 2 3 4 5 6 7 8 9 hàng ngang
5 4 9
6 7 8 Ô 3x3( có 9 ô 3x3)
3
2
4
7 1 2
9 5 4 Ô 3x3
8 3 6
hàng dọc
Chúc bạn thành công