РЕМОНТ ТАБЛИЦ

[Konstantin Sachem Bonaparte 0]

В 13/2/2026 в 11:16 ΠΜ, Stefan9911 сказал:

Γεια σας, πού στο excel μπόρεσα να βρω αυτές τις βιολετί και κίτρινες μετρήσεις, επειδή δεν υπάρχουν εκεί... ευχαριστώ;

The yellow cell comes out after some calculation and I'm asking if anyone can fix it.

[Druskoking777 692]

В 25.01.2026 в 20:43, Druskoking777 сказал:

Я внесла небольшие изменения в файл.

Ранее окончательные результаты можно было загрузить только с листа ARCHIVE.

Теперь окончательные результаты также можно загрузить с листа LISTING.

Лист LISTING — это основной лист, с которого начинается загрузка данных.

Также были внесены изменения; расширен диапазон ячеек, в которых происходит очистка данных. Ранее существовали столбцы, в которых данные не удалялись.

Исправления диапазонов ячеек для очистки/удаления данных были внесены на листах LISTING и ARCHIVE.

Здесь вы можете скачать файл.

Необходимо выразить благодарность автору файла и человеку, который исправил и доработал его; я внес лишь незначительные, несущественные изменения.

Что мне нравится в этом файле, так это то, что он содержит очень широкий спектр прогнозов и предсказаний; теперь осталось лишь некоторое время изучить результаты и посмотреть, можно ли обнаружить какие-либо интересные закономерности в каких-либо из прогнозов.

 

 

PunterBets.xlsb 822.23 kB · 89 загрузок

Как всем известно, архив Punterbets не может загружать коэффициенты матчей.

Но я придумал трюк и стратегию, которые, кажется, пока работают.

Я создал макрос в Excel для копирования коэффициентов из файла MACBETH V3.2 (Value 1X2+Theory+Draw) в файл PUNTERBETS.

На первый взгляд это кажется сложным, поскольку в каждом файле данные для каждого матча находятся в разных строках и в разных ячейках.

Макрос Excel анализирует столбцы C и J исходного и целевого файлов, чтобы сопоставить данные.

Например, предположим, что у нас есть совпадение в 11-й строке файла MACBETH V3.2(Value 1X2+Theory+Draw), и мы хотим скопировать коэффициенты из диапазона BI:CJ в это же совпадение в файле PUNTERBETS, но это же совпадение может находиться в другой строке файла PUNTERBETS.

Макрос выполняет поиск аналогичного совпадения в соответствующей строке файла PUNTERBETS и вставляет коэффициенты в диапазон ячеек AQ:BR вместе с окончательными результатами, как показано на изображении.

Файл PUNTERBETS можно закрыть; нужно лишь открыть исходный файл с коэффициентами. Я проверил, и ставки копируются даже без открытого файла PUNTERBETS.

Я не стал делиться файлом, потому что для его работы код должен включать путь к папке, где у каждого пользователя находится файл PUNTERBETS, а это разные вещи. Поэтому я оставляю код здесь.

' FULL path of the destination workbook
    destinationPath = "C:\" 

В приведенном ниже коде вам нужно найти две строки выше и заменить C:\ на полный путь к файлу PUNTERBETS.

Приведённый выше код был протестирован, но он копирует коэффициенты из файла MACBETH V3.2(Value 1X2+Theory+Draw) в файл PUNTERBETS.
Если бы исходный файл отличался от MACBETH V3.2(Value 1X2+Theory+Draw), код, возможно, потребовал бы изменения, поскольку коэффициенты могли бы находиться в другом диапазоне ячеек.

Вот код.

 

Sub Copy_Listing_Macbeth_To_Punterbets_Match()

    Dim wbSource As Workbook
    Dim wbDestination As Workbook
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim destinationPath As String
    
    Dim sourceRow As Long
    Dim destinationRow As Long
    Dim lastSourceRow As Long
    Dim lastDestinationRow As Long
    
    Dim teamName1 As String
    Dim teamName2 As String
    
    ' Variables to search for matches in destination (using Find for speed)
    Dim searchRangeC As Range
    Dim searchRangeD As Range
    Dim foundCellC As Range
    Dim firstAddressC As String
    
    ' Source workbook (this workbook)
    Set wbSource = ThisWorkbook
    Set wsSource = wbSource.Sheets("LISTING")

    ' FULL path of the destination workbook
    destinationPath = "C:\"  

    ' Optimization before opening destination
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.Calculation = xlCalculationManual ' Avoid recalculation during process

    On Error Resume Next
    Set wbDestination = Workbooks.Open(destinationPath)
    On Error GoTo 0
    
    If wbDestination Is Nothing Then
        MsgBox "Destination file not found at path: " & destinationPath, vbCritical
        Application.ScreenUpdating = True
        Exit Sub
    End If
    
    Set wsDestination = wbDestination.Sheets("LISTING")
    
    ' Define search ranges in destination (Columns C and D)
    lastDestinationRow = wsDestination.Cells(wsDestination.Rows.Count, "C").End(xlUp).Row
    If lastDestinationRow < 2 Then lastDestinationRow = 2 ' Ensure it starts at least at row 2
    
    Set searchRangeC = wsDestination.Range("C2:C" & lastDestinationRow)
    Set searchRangeD = wsDestination.Range("D2:D" & lastDestinationRow)

    ' Define last row in source
    lastSourceRow = wsSource.Cells(wsSource.Rows.Count, "C").End(xlUp).Row
    
    ' --- START OF COPY LOOP ---
    
    ' Loop through the source file from row 4 to the last row
    For sourceRow = 4 To lastSourceRow
        
        ' 1. Get team names from current source row
        teamName1 = CStr(wsSource.Cells(sourceRow, "C").Value)
        teamName2 = CStr(wsSource.Cells(sourceRow, "D").Value)
        
        ' Skip if empty
        If teamName1 <> "" And teamName2 <> "" Then
            
            ' 2. Search for first team in destination (Column C)
            Set foundCellC = searchRangeC.Find(What:=teamName1, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
            
            ' If first team is found, verify second team in same row
            Do While Not foundCellC Is Nothing
                
                If firstAddressC = "" Then
                    firstAddressC = foundCellC.Address
                ElseIf foundCellC.Address = firstAddressC Then
                    ' Exit if full loop completed (avoid infinite loop)
                    Exit Do
                End If
                
                ' 3. Check second team match in same row (Column D)
                If wsDestination.Cells(foundCellC.Row, "D").Value = teamName2 Then
                    
                    ' --- MATCH FOUND ---
                    
                    ' Destination row is the row where match was found
                    destinationRow = foundCellC.Row
                    
                    ' Copy data range (BI:CJ) from source ? paste into destination (AQ onward)
                    ' Destination range starts at AQ and spans same width (30 columns)
                    
                    wsSource.Range("BI" & sourceRow & ":CJ" & sourceRow).Copy
                    
                    ' Paste values and formats
                    wsDestination.Range("AQ" & destinationRow).PasteSpecial Paste:=xlPasteValues
                    wsDestination.Range("AQ" & destinationRow).PasteSpecial Paste:=xlPasteFormats
                    
                    ' Exit loop assuming match is unique
                    Exit Do
                    
                End If
                
                ' If second team did not match, search next occurrence
                Set foundCellC = searchRangeC.FindNext(foundCellC)
                
            Loop
            
            ' Reset address variable for next search
            firstAddressC = ""
            
        End If
        
    Next sourceRow
    
    ' --- END OF LOOP ---

    ' Cleanup and save
    Application.CutCopyMode = False
    
    wbDestination.Save
    wbDestination.Close SaveChanges:=False ' Already saved above
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

    MsgBox "Process completed. Matching rows have been updated.", vbInformation

End Sub

 

Затем я назначаю предыдущий код синей кнопке в ячейке I2, и при нажатии на кнопку появляется сообщение с подтверждением после копирования коэффициентов в файл PUNTERBETS.

 

 

Изменено 14 февраля пользователем Druskoking777

[Vasile Marian 1]

Здравствуйте. У меня есть файл Excel с несколькими расчетами. Я не хочу в них вмешиваться, хочу брать матчи с Flashscore, как на скриншоте, и чтобы при входе в матч они рассчитывались автоматически. Может ли кто-нибудь мне помочь? Уточняю, что нужны все данные об этом матче. Спасибо

statistica.xlsm

[Tayler 20]

Помогите пжл отремонтировать таблицу, грузит и выдаёт ошибку! Заранее благодарен.

Будет гол (2) (1).xlsb

[Herbert Otto 3]

В 15/01/2026 в 08:42, Алексей Иванов сказал:

Bonjour. J'ai besoin d'aide pour résoudre ce problème. L'analyse des correspondances a cessé hier.

MANAGER CORRECT SCORE-1.xlsm 64,56 Mo · 19 téléchargements

Привет, Вот исправленный файл.

MANAGER CORRECT SCORE-1.xlsm

[kovan 1 875]

В 10.07.2025 в 08:41, kovan сказал:

Для тех кто ищет программу без заморочек

Смотрите как просто: кнопка "ТБ2.5+"

А тут результаты за 2 дня: 

 

FOOTBALL CALCULATION TABLE_Kovan.xlsb 6.94 MB · 174 загрузки

Нет НБА, решил вспомнить про футбол.

Запустил эту програмку, выдало только 3 ставки на ТМ, поставил тройничком все на ТМ2.5. Все закончились 0:1

Пререхожу я вновь на футбол Без NBA баскетбол не интересен

[Gab 37]

37 минут назад, kovan сказал:

Нет НБА, решил вспомнить про футбол.

Запустил эту програмку, выдало только 3 ставки на ТМ, поставил тройничком все на ТМ2.5. Все закончились 0:1

Пререхожу я вновь на футбол Без NBA баскетбол не интересен

Где скачать можно файл , что-то не нашел по поиску

[kovan 1 875]

2 минуты назад, Gab сказал:

Где скачать можно файл , что-то не нашел по поиску

Да, извиняюсь, там он ещё не "вылечен"

ВОт новый:

FOOTBALL CALCULATION_Kovan(2026).xlsb

[Gab 37]

Только что, kovan сказал:

Да, извиняюсь, там он ещё не "вылечен"

ВОт новый:

FOOTBALL CALCULATION_Kovan(2026).xlsb 11.57 MB · 0 загрузок

Спасибо

[Druskoking777 692]

 

Я добавил возможность загрузки коэффициентов в файл Punterbets.

Информация  отображается в ячейке AQ:BR прямо рядом с результатами загрузки.

Начальные или первоначальные квоты находятся в диапазоне ячеек AQ:BD.
Текущие или окончательные квоты находятся в диапазоне ячеек BE:BR.

Также была добавлена кнопка UPDATEODDS для обновления коэффициентов для диапазона BE:BR.

Единственное, что мне не удалось сделать, это восстановить индикатор выполнения, чтобы посмотреть, сколько времени осталось до завершения обновления, но после запуска UPDATEODDS появляется сообщение о завершении процесса.

Вот видео, демонстрирующее процесс загрузки коэффициентов, а внизу вы найдете файл Punterbets с этой модификацией для скачивания. Итальянцам следовало бы научиться делиться; здесь мы делимся. Мы не ходим вокруг да около, показывая картинки, а потом не делясь файлами. Надеюсь, они поймут это на своем форуме, где ведут себя как слюнявые младенцы в подгузниках, показывая картинки файлов, но на самом деле не делясь ими.

PunterBets.xlsb

[Sergei2020 63]

Сортировку еще надо поправить после загрузки матчей кф не совпадают

[Druskoking777 692]

50 минут назад, Sergei2020 сказал:

Сортировку еще надо поправить после загрузки матчей кф не совпадают

Я скачал данные и коэффициенты, используя файлы Macbeth и Punterbets, и не обнаружил никаких проблем или ошибок. Вот скриншот.

Возможно, для некоторых товарищеских матчей молодежных команд или команд низших дивизионов некоторые рынки могут быть недоступны, но, как вы можете видеть на скриншоте, ошибок нет. Коэффициенты могут меняться в зависимости от времени скачивания, но я не вижу проблем с некорректными коэффициентами для каждого матча.

 

[Кирилл Клейменов 396]

В 15.02.2026 в 05:12, Tayler сказал:

Помогите пжл отремонтировать таблицу, грузит и выдаёт ошибку! Заранее благодарен.

Будет гол (2) (1).xlsb 169.79 kB · 11 загрузок

Если заставить себя - немного полистать тему... то наверняка найдётся ответ..:

 

[Кирилл Клейменов 396]

В 15.02.2026 в 05:12, Tayler сказал:

Помогите пжл отремонтировать таблицу, грузит и выдаёт ошибку! Заранее благодарен.

Будет гол (2) (1).xlsb 169.79 kB · 11 загрузок

Если уж совсем лень..:

!Будет гол (2.1).xlsb

[KGB 452]

39 минут назад, Druskoking777 сказал:

Возможно, для некоторых товарищеских матчей молодежных команд или команд низших дивизионов

Было бы Идеально програмно исключить загрузку товарищеских! Они увеличивают время обработки. Если таблица грузится час, то 40 минут только эти товарняки (шлак)

[Druskoking777 692]

15 минут назад, KGB сказал:

Было бы Идеально програмно исключить загрузку товарищеских! Они увеличивают время обработки. Если таблица грузится час, то 40 минут только эти товарняки (шлак)

Я бы с удовольствием это сделал, но моих компьютерных навыков недостаточно, чтобы настроить загрузку данных чемпионата.....Мне также хотелось бы иметь возможность настраивать, какие чемпионаты следует загружать, Но я недостаточно хорошо разбираюсь в , чтобы это 

Насколько я понимаю, в файле Macbeth, созданном The Iron Wizard, есть возможность выбрать чемпионаты, которые вы хотите загрузить.

[Sergei2020 63]

1 час назад, Druskoking777 сказал:

Я скачал данные и коэффициенты, используя файлы Macbeth и Punterbets, и не обнаружил никаких проблем или ошибок. Вот скриншот.

Возможно, для некоторых товарищеских матчей молодежных команд или команд низших дивизионов некоторые рынки могут быть недоступны, но, как вы можете видеть на скриншоте, ошибок нет. Коэффициенты могут меняться в зависимости от времени скачивания, но я не вижу проблем с некорректными коэффициентами для каждого матча.

 

При загрузке матчей в конце срабатывает сортировка по времени начала матча, здесь в проге она срабатывает по столбец BR это означает что кф начиная с тб2,5 и оканчивая оз нет не сортируются и будут по окончанию загрузки в произвольном порядке.

[Druskoking777 692]

11 минут назад, Sergei2020 сказал:

При загрузке матчей в конце срабатывает сортировка по времени начала матча, здесь в проге она срабатывает по столбец BR это означает что кф начиная с тб2,5 и оканчивая оз нет не сортируются и будут по окончанию загрузки в произвольном порядке.

Я совершенно запутался, не понимаю, что вы имеете в виду.

[Druskoking777 692]

18 минут назад, Sergei2020 сказал:

При загрузке матчей в конце срабатывает сортировка по времени начала матча, здесь в проге она срабатывает по столбец BR это означает что кф начиная с тб2,5 и оканчивая оз нет не сортируются и будут по окончанию загрузки в произвольном порядке.

Спасибо, я нашел проблему. Теперь попробую загрузить исправленный файл.

[Druskoking777 692]

46 минут назад, Sergei2020 сказал:

При загрузке матчей в конце срабатывает сортировка по времени начала матча, здесь в проге она срабатывает по столбец BR это означает что кф начиная с тб2,5 и оканчивая оз нет не сортируются и будут по окончанию загрузки в произвольном порядке.

Большое спасибо за предупреждение; если бы не вы, я бы отправил файл с ошибками.

Вот файл; я исправил ошибку с квотой, на которую указал Sergei2020.
Думаю, ошибок больше нет, но если вы что-нибудь обнаружите, пожалуйста, сообщите мне. Спасибо.

Функция загрузки вероятностей UPDATEODDS работала хорошо и не требовала доработки.

 

 

PunterBets.xlsb

[Сахаров С 282]

7 минут назад, Druskoking777 сказал:

Думаю, ошибок больше нет, но если вы что-нибудь обнаружите, пожалуйста, сообщите мне. 

Добрый вечер!

У меня не грузит кф-ты, из списка сайтов работает только flashscorekz.com

[Druskoking777 692]

37 минут назад, Сахаров С сказал:

Добрый вечер!

У меня не грузит кф-ты, из списка сайтов работает только flashscorekz.com

Я не знаю, в чём может быть проблема.
У меня загрузка квоты работает со всеми вариантами в выпадающем списке.

Я только что попробовал скачать  сайта livescore.in/ru 

[pisoi21 231]

      Можно ли восстановить этот файл? В нём есть ошибки.

Punter (3).xlsm

[kovan 1 875]

ElizaBET_PRO-BET-PLUS_PRO-BETON_+RED-CARDS_KA.xlsbВот ещё поколдовал над Елизабетой.
Теперь коэффициэнты читает, товарки можно отсеять в загрузке.

 

Изменено Понедельник в 21:08 пользователем kovan

[Druskoking777 692]

11 минут назад, kovan сказал:

Вот ещё поколдовал над Елизабетой.
Теперь коэффициэнты читает, товарки можно отсеять в загрузке.

ElizaBET_PRO-BET-PLUS_PRO-BETON_+RED-CARDS_KA.xlsb 698.5 kB · 1 загрузка

Большое спасибо, Коvan  , мне очень нравится  ElizaBET. Несколько дней назад мне удалось добавить данные о коэффициентах в файл Punterbets, но я не смог добавить эти данные в Elizabet.

Изменено Понедельник в 20:50 пользователем Druskoking777