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

  • Thread starter SA_DQ
  • Ngày gửi
S

SA_DQ

Thành viên Cố vấn - Webketoan Mentors
29/6/05
568
99
28
66
HCM city
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!
 

Đính kèm

  • XepSo24.rar
    11.1 KB · Lượt xem: 195
Khóa học Quản trị dòng tiền
ruadangyeu

ruadangyeu

Guest
30/9/06
143
1
0
Hanoi
my.opera.com
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
 
V

vanlth2203

Guest
10/11/06
5
0
0
Sai Gòn
ruadangyeu nói:
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
 
xuantham

xuantham

Cao cấp
18/8/05
5,376
652
113
58
TP. Hồ Chí Minh
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.
 
V

Vu Van Hung

Sơ cấp
22/2/05
30
4
8
Ha Noi
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
 
S

SA_DQ

Thành viên Cố vấn - Webketoan Mentors
29/6/05
568
99
28
66
HCM city
: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:
 

Xem nhiều

Webketoan Zalo OA