Excel - анализ спинов на рулетке казино

Можно голову сломать

1. Почему "0" вообще неправильно считается? =findAllPos($A:$A;D2;1)
2. Почему "6" неправильно считается?  =findAllPos($A:$A;J2;1)
3. Немогу сделать, чтобы при изменении ячейки в заданном аргументе z as Range пересчитать все формулы на странице. Хотела обойтись без макроса к Лист1 (Worksheet_Change и .Calculate), но никакой вариант не работал. Наверное придется отказаться от динамического массива arSpins() ? Сейчас подразумевается, что история спинов будет 1 на листе (arSpins грузится 1 раз если пустой), а вдруг захочется несколько историй проанализировать и сравнить. 


Option Explicit
Dim arSpins() As Integer 
'*********************
Public Function getSpin(row As Long) As Integer
  getSpin = arSpins(row)
End Function
'*********************
Public Function findAllPos(z As Range, num As Integer, index As Integer) As Variant
 Dim arr, i&, j&, k&
 If (Not Not arSpins) = 0 Then 
     arr = z
     k = 1
      For i = 1 To UBound(arr)
       For j = 1 To UBound(arr, 2)
            If IsNumeric(arr(i, j)) Then
                ReDim Preserve arSpins(k)
                arSpins(k) = arr(i, j)
                k = k + 1
            End If
       Next
      Next
 End If
 k = 1
 j = 0
 Dim arResult() As Integer
 For i = LBound(arSpins) To UBound(arSpins)
   If arSpins(i) = num Then
                ReDim Preserve arResult(k)
                 arResult(k) = i - j  
                    j = i
                    k = k + 1
   End If
 Next
 
If (Not Not arResult) = 0 Then
            findAllPos = ""
Else
        If index <= UBound(arResult) Then
            findAllPos = arResult(index)
        Else
            findAllPos = ""
        End If
End If
End Function
'*********************



Файл Mira_macros.xlsm во вложении

Чтобы не писать отдельные макросы в Лист или Книгу, используй классы. Alt2005 как раз и написал вызов класса нужной копии листа. Через call .calculate можно будет пересчитывать. При этом не забудь отключать events, чтобы обработка событий не вошла в бесконечный цикл.