Tìm giá trị trả về ô khi click chuột

[NH_DK]

Em có bài toán này nhờ các anh chị xem giúp cho em. Em loay hoay mãi cách giải nhưng chưa biết giải cách nào cả.

Download

 

[ptm0412]

Tạo 6 biến hoặc 1 biến mảng 6 phần tử, gán sẵn 6 giá trị tương ứng
Tạo 1 biến đếm public hoặc dùng 1 ô ghi giá trị từ 1 đến 6
Sự kiện click:
Tăng giá trị biến đếm lên 1, nếu là 6 thì quay về 1. Nếu là ô, thì ghi giá trị mới vào ô.
Đọc biến đếm hoặc đọc ô chứa biến đếm
Ghi giá trị phần tử thứ <biến đếm> vào ô kết quả

Hết.

 

[NH_DK]

Tạo 6 biến hoặc 1 biến mảng 6 phần tử, gán sẵn 6 giá trị tương ứng
Tạo 1 biến đếm public hoặc dùng 1 ô ghi giá trị từ 1 đến 6
Sự kiện click:
Tăng giá trị biến đếm lên 1, nếu là 6 thì quay về 1. Nếu là ô, thì ghi giá trị mới vào ô.
Đọc biến đếm hoặc đọc ô chứa biến đếm
Ghi giá trị phần tử thứ <biến đếm> vào ô kết quả

Hết.

Cám ơn sư phụ nhiều! Em đã làm theo gợi ý của sư phụ nhưng vẫn chưa Ok. Chán quá!

 

[ThuNghi]

Cám ơn sư phụ nhiều! Em đã làm theo gợi ý của sư phụ nhưng vẫn chưa Ok. Chán quá!

Không phải sư phụ thì trả lời có được không.

Sub Update()
Dim i&, Arr
Arr = Array("5647", "8289", "1621", "5685", "6846", "9246")
With Sheets("DK")
If .[A1] >= 6 Then .[A1] = 0
  .[A1] = .[A1] + 1
  i = .[A1]
  .[E7] = Arr(i - 1)
End With
Erase Arr
End Sub

 

[ptm0412]

Sub GetNum()
Dim Arr(1 To 6)
With Sheet2
    Arr(1) = (.[K7] & .[L8] & .[M9] & .[N10])
    Arr(2) = (.[K10] & .[L9] & .[M8] & .[N7])
    Arr(3) = (.[L7] & .[L8] & .[L9] & .[L10])
    Arr(4) = (.[K8] & .[L8] & .[M8] & .[N8])
    Arr(5) = (.[M7] & .[M8] & .[M9] & .[M10])
    Arr(6) = (.[K9] & .[L9] & .[M9] & .[N9])
End With
With Sheet1
    icount = IIf(.[A1] = 6, 1, .[A1] + 1)
    .[A1] = icount
    .[E7] = Arr(icount)
End With
End Sub