Trò chơi xếp 24 số theo 1 trật tự bạn định trước

[SA_DQ]

Cách chơi: Bấn vô ~ ô chứa giá trị kề với ô trống để dịch chuyển ô được bấm &ới ô không chứa Value!
Không quá 900 nước đi cho 1 ván!
&ui vẽ & cho ~ góp ý ~ sai sót & ~ cải tiến cần thiết!

 

[ruadangyeu]

Tro chơi khá hay.
Nhưng trong luật chơi theo em ta nên thay đổi lại 1 chút
Vì trong code chỉ cần có sự kiện ô trong vùng D5:H9 được kích hoạt là bác cho đếm ngay một lần đi không cần biết nước đi đó có thành công hay không.

Để làm điều này em đề xuất cho câu lệnh
Range("C4").Value = 1 + Range("C4").Value
lên khối if.. end if

If .Value = "" And KeNhau(iRow, iCol) Then
.Value = Target.Value: Target.Value = ""
Range("C4").Value = 1 + Range("C4").Value
61 Exit For
End If

như vậy nó chỉ đếm khi có sự thay đổi

 

[vanlth2203]

Tro chơi khá hay.
Nhưng trong luật chơi theo em ta nên thay đổi lại 1 chút
Vì trong code chỉ cần có sự kiện ô trong vùng D5:H9 được kích hoạt là bác cho đếm ngay một lần đi không cần biết nước đi đó có thành công hay không.

Để làm điều này em đề xuất cho câu lệnh
Range("C4").Value = 1 + Range("C4").Value
lên khối if.. end if

If .Value = "" And KeNhau(iRow, iCol) Then
.Value = Target.Value: Target.Value = ""
Range("C4").Value = 1 + Range("C4").Value
61 Exit For
End If

như vậy nó chỉ đếm khi có sự thay đổi

Dear ruadangyeu,

Khi ban chèn thêm đoạn nay "Range("C4").Value = 1 + Range("C4").Value" thì khi ban di chuyển 1 o no sẽ tăng lên hai bước thay vì một bước như cũ. Bạn chỉ cần chỉnh lai thêm một phần nữa là: "Range("C4").Value = Range("C4").Value" Thay vì cộng 1 thì bạn chỉ gán như vầy thôi thì nó chỉ đếm khi sự thay đổi mà thôi. Không biết là mình làm như vậy có đúng không nữa bạn cho ý kiến đi nhé!

59 If .Value = "" And KeNhau(iRow, iCol) Then
.Value = Target.Value: Target.Value = ""
Range("C4").Value = 1 + Range("C4").Value
61 Exit For
End If
63 End With
Next wRang
65 Range("C4").Value = Range("C4").Value
End If

 

[QDuc]

http://giaiphapexcel.com/forum/showthread.php?t=414
:angel:

 

[xuantham]

Bạn QDuc không cần đưa đường link, bác Sa đã attached file lên bài viết của mình rồi mà. Nếu bác Sa có cập nhật nào mới thì bác Sa sẽ cập nhật trên wkt sau. Còn như đã link rồi thì nên cho tác giả 1 lời giới thiệu về đường link, chứ link khơi khơi vậy cũng hơi giật mình.

Thân mến.

 

[Vu Van Hung]

Xin chào cả nhà, cả nhà giúp mình một việc nhé: Giả sử mình đang có một vùng dữ liệu A1:B100 bao gồm nhiều số chỉ xuất hiện một lần (không trùng nhau). Mình cần lập công thức sao cho tại cột C sẽ sắp xếp các số ở vùng dữ liệu trên theo thứ tụ tăng dần. Cả nhà giúp mình với nhé. Liên hệ: 0982152702 hoặc mail: hungconhp67@yahoo.com

 

[SA_DQ]

:dogrun:

Xin chào cả nhà, cả nhà giúp mình một việc nhé: Giả sử mình đang có một vùng dữ liệu A1:B100 bao gồm nhiều số chỉ xuất hiện một lần (không trùng nhau). Mình cần lập công thức sao cho tại cột C sẽ sắp xếp các số ở vùng dữ liệu trên theo thứ tụ tăng dần. Cả nhà giúp mình với nhé. Liên hệ: 0982152702 hoặc mail: hungconhp67@yahoo.com

Bạn xem tại đây:

http://giaiphapexcel.com/forum/showthread.php?t=11443​