将选择的不连续单元格值组成一个数组

buxiaodea

论坛里的大神，小弟又来麻烦大家了：
想实现的功能：1、点击开始计时后，要求在规定时间内，比如10秒钟依次点击数字方阵中的数字
                         2、鼠标依次点击数字方阵中的值，组成一个数组，与目标数组进行核对，如果在规定时间内且点击的数字与目标一致，则弹出对话框“正确”，否则对话框“错误”                        3、能否在旁边加个时间进度条，显示时间进度

这个该怎么做，麻烦各位啦！！

buxiaodea

求大神相助

一把小刀闯天下

Option Explicit

Const DELAY = 10

Dim tm, arr, brr, crr, cnt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Intersect([c7:e9], Target) Is Nothing Then Exit Sub
  If Not IsArray(arr) Then MsgBox "先点击开始": Exit Sub
  If Target.Count > 1 Or cnt = UBound(arr) Then Exit Sub
  cnt = cnt + 1
  arr(cnt) = Target.Value
  If cnt = UBound(arr) Then
    Dim i
    For i = 1 To cnt
      If arr(i) <> brr(1, i) Then Exit For
    Next
    MsgBox IIf(i = cnt + 1, "正确", "错误:" & Join(arr)) & vbNewLine & Format(Timer - tm, "用时0s")
    Exit Sub
  End If
  If Timer - tm >= DELAY Then MsgBox "超时"
End Sub

Private Sub CommandButton1_Click()
  brr = [c2:f2].Value: tm = Timer: cnt = 0
  ReDim arr(1 To UBound(brr, 2))
End Sub

buxiaodea

一把小刀闯天下 发表于 2019-10-20 08:23
Option Explicit

Const DELAY = 10

谢谢，研究一下

ning84

1.          Set Rng = Sht.Range("$AV$429:$AV$460,$BD$429:$BD$460,$BL$429:$BL$460")
   
2.          Rr = 1
   
3.          For Each oRng In Rng
   
4.              Debug.Print Rr, oRng.Address
   
5.              Rr = Rr + 1
   
6.          Next oRng
   
7.          Stop
   
8.          
   
9.          

复制代码

For each 能遍历不连续单元格中的每个单元格。