CMP - форум PRO игроков казино

Отзывы, советы экспертов и лучшие стратегии - для успешной игры в казино!

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

  • Mira
  • Mira аватар Автор темы
  • expert
  • expert
  • Сообщений: 732

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

4 года 4 мес. назад - 4 года 4 мес. назад
#13
Можно голову сломать

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 во вложении
{\__/}
( • - •) Позволь пожелать
/つ ✿ Тебе Удачи!

Вложения:

Спасибо сказали: LUCKY-13

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

  • LUCKY-13
  • LUCKY-13 аватар
  • admin
  • admin
  • Сообщений: 1579

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

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

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

 

E pluribus unum

 

Sup: admin@casino-mining.com

Copyright © 2011-2024 ESPT GO LIMITED Reg. : HE 370907

Vasili Michailidi, 9, 3026, Limassol, Cyprus, phone: +35796363497

 

Excellent Teamwork