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 thân thiết
29/6/05
435
38
28
61
HCM city
#1
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

ruadangyeu

ruadangyeu

Thành viên sơ cấp
30/9/06
143
2
0
Hanoi
my.opera.com
#2
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

Thành viên sơ cấp
10/11/06
5
0
0
Sai Gòn
#3
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

Thành viên thân thiết
18/8/05
5,343
597
113
53
#5
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

Thành viên sơ cấp
22/2/05
27
3
3
Ha Noi
#6
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 thân thiết
29/6/05
435
38
28
61
HCM city
#7
: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:
 

BQT trực tuyến

  • Hien
    Hien
    WKTER
  • Lặng Yên
    Lặng Yên
    Điều hành cao cấp

Thành viên trực tuyến

  • Hien
  • daongocnam0603
  • lachongcorp123
  • phuongvt125
  • Lặng Yên
  • Tước Hữu Trần
  • homeclassic3
  • vananh181888
  • nguyenle@
  • TV.BAC NINH
  • SHIROVU
  • ACT ONE
  • notvalue
  • Phạm Hoàng Phi Yến

Xem nhiều