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

[vlad2017 34]

6 минут назад, The Iron Wizard сказал:

Я такой таблицы еще не встречал, чтобы парсила средний кэф несколько БК. Боюсь это не возможно. Только если в этой ODDS_BRC таблице можно что то сделать. Но с этим вопросом поможет только shurik91.

К примеру nowgoal показывает средние кэфы открытия и закрытия. Кстати можно выбирать любых интересующих буков .

[Dorian 153]

13 часов назад, The Iron Wizard сказал:

Можно вставить только те, что отображаются у вас на сайтах по типу флэшскоре. Он у вас отображается? 

 

Понял. Вопросов по этому вопросу больше не имею.

[The Iron Wizard 1 585]

27 минут назад, vlad2017 сказал:

К примеру nowgoal показывает средние кэфы открытия и закрытия. Кстати можно выбирать любых интересующих буков .

А при чем здесь сайт к таблице. Допустим и oddsportal показывает.

[vlad2017 34]

3 минуты назад, The Iron Wizard сказал:

А при чем здесь сайт к таблице. Допустим и oddsportal показывает.

Вы ответили что такого не встречал я привел пример.

[The Iron Wizard 1 585]

1 минуту назад, vlad2017 сказал:

Вы ответили что такого не встречал я привел пример.

А не чего, что я писал про таблицу.

[vlad2017 34]

Это архив кэфов . А еще была турецкая таблица не помню название парсила с nowgoal средние кэфы

77631394_MilyonlukAriv (2).xlsb

[Dorian 153]

Вопрос другой. Почему в этой таблице, в модулях кроме английских сайтов так же прописаны русскоязычные сайты ливскор и ливспорт, но в выпадающем меню выбора сайтов парсинга они отсутствуют? И ещё вопрос по данной таблице: Почему при очистке архива и добавлении туда новых матчей они в архиве не отражаются? Архив просто пуст.

TOTAL-OVER .xlsm

Изменено 19 февраля, 2025 пользователем Dorian

[vlad2017 34]

1 час назад, The Iron Wizard сказал:

А не чего, что я писал про таблицу.

Нашел эту таблицу которая парсит средние кэфы. К сожалению не работает.

NowGoalBet13122022 SJ (2).xlsm

[kovan 2 094]

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

Вопрос другой. Почему в этой таблице, в модулях кроме английских сайтов так же прописаны русскоязычные сайты ливскор и ливспорт, но в выпадающем меню выбора сайтов парсинга они отсутствуют? И ещё вопрос по данной таблице: Почему при очистке архива и добавлении туда новых матчей они в архиве не отражаются? Архив просто пуст.

TOTAL-OVER .xlsm 1.05 MB · 3 загрузки

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

Короче: порылись в ней

[Dorian 153]

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

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

Короче: порылись в ней

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

Изменено 19 февраля, 2025 пользователем Dorian

[kovan 2 094]

16 часов назад, Dorian сказал:

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

Как я делаю:

1 открыл файл, нажал alt+f11 ➔ вошли в VB

2 Щёлкаем по модулю 5, в этой программе там больший (не урезанный) список.

Тут 6 сайтов, 3 нижних с русским языком. Стрелками показано, где название сайта и расклад яз.

Если всё устраивает, то копируем весь участок выбора: от “IF source” до  “End If”.

Переходим в Module 1

Видим такой же блок, но с тремя сайтами (как видишь один русский сайт есть, только он не рабочий и ссылка ведёт на flashscorekz.com).

Выделяем блок и заменяем скопированным в 5-ом модуле.

 В 6-ом модуле тоже есть такой список, но он такой же как в 5-ом, если не менял список, то ничего не трогаем, а если что-то сменил, то и там меняй.

Далее переходим на саму программу и тыкаем на любой лист правой кнопкой мышки, в списке выбираем «показать»

Находим «Settings» ➔ «ОК», откроется лист «Settings» и там список сайтов:

 

(в колонке F указан какой сайт выбран из списка)

Меняем список:

Шлёпаем по названию (вернее по ячейке E1) текст появится в строке формул

Текст меняем именно в строке формул на первый сайт в списке, он у нас: flashscore.com,

Я запишу без расширения

Что там напишем ни на что не влияет, лишь бы самому понятно было.

Меняем так все 6 строк

Переходим в лист «List», топаем правой кнопкой мышки по окошку выбора сайта

Меняем на шестёрки (количество строк с сайтами)

Заходим в архив и там также меняем:

Всё! Можешь называть себя Хакером

 

 

Изменено 20 февраля, 2025 пользователем kovan

[Валерий Иванович 687]

3 часа назад, kovan сказал:

Как я делаю:

1 открыл файл, нажал alt+f11 ➔ вошли в VB

2 Щёлкаем по модулю 5, в этой программе там больший (не урезанный) список.

Тут 6 сайтов, 3 нижних с русским языком. Стрелками показано, где название сайта и расклад яз.

Если всё устраивает, то копируем весь участок выбора: от “IF source” до  “End If”.

Переходим в Module 1

Видим такой же блок, но с тремя сайтами (как видишь один русский сайт есть, только он не рабочий и ссылка ведёт на flashscorekz.com).

Выделяем блок и заменяем скопированным в 5-ом модуле.

 В 6-ом модуле тоже есть такой список, но он такой же как в 5-ом, если не менял список, то ничего не трогаем, а если что-то сменил, то и там меняй.

Далее переходим на саму программу и тыкаем на любой лист правой кнопкой мышки, в списке выбираем «показать»

Находим «Settings» ➔ «ОК», откроется лист «Settings» и там список сайтов:

 

(в колонке F указан какой сайт выбран из списка)

Меняем список:

Шлёпаем по названию (вернее по ячейке E1) текст появится в строке формул

Текст меняем именно в строке формул на первый сайт в списке, он у нас: flashscore.com,

Я запишу без расширения

Что там напишем ни на что не влияет, лишь бы самому понятно было.

Меняем так все 6 строк

Переходим в лист «List», топаем правой кнопкой мышки по окошку выбора сайта

Меняем на шестёрки (количество строк с сайтами)

Заходим в архив и там также меняем:

Всё! Можешь называть себя Хакером

 

 

Можете сделать проще:

Присвоить публичность ресурсу и суффиксу таким способом:
 

Public sourcer As String, suffix As String

Написать такой список, с вызовом из нужной вам ячейки:
 

Sub selectSource()
sourcer = Sheets("Settings").Range("F1").value
Select Case sourcer
Case 1: sourcer = "livescore.in/": suffix = "_en_1"
Case 2: sourcer = "livescore.in/ru/": suffix = "_ru_1"
Case 3: sourcer = "livesport.com/": suffix = "_en_1"
Case 4: sourcer = "livesport.com/ru/": suffix = "_ru_1"
Case 5: sourcer = "soccer24.com/": suffix = "_en_1"
Case 6: sourcer = "soccer24.com/ru/": suffix = "_ru_1"
Case 7: sourcer = "flashscore.com/": suffix = "_en_1"
Case 8: sourcer = "flashscorekz.com/": suffix = "_ru-kz_1"
Case 9: sourcer = "flashfootball.com/": suffix = "_en_1"
End Select
End Sub

В нужном вам макросе вызвать selectSource таким способом:


Это избавит вас от головной боли, при поиске подобных кусков кода в разнообразных макросах:
 

[Dorian 153]

4 часа назад, kovan сказал:

Как я делаю:

1 открыл файл, нажал alt+f11 ➔ вошли в VB

2 Щёлкаем по модулю 5, в этой программе там больший (не урезанный) список.

Тут 6 сайтов, 3 нижних с русским языком. Стрелками показано, где название сайта и расклад яз.

Если всё устраивает, то копируем весь участок выбора: от “IF source” до  “End If”.

Переходим в Module 1

Видим такой же блок, но с тремя сайтами (как видишь один русский сайт есть, только он не рабочий и ссылка ведёт на flashscorekz.com).

Выделяем блок и заменяем скопированным в 5-ом модуле.

 В 6-ом модуле тоже есть такой список, но он такой же как в 5-ом, если не менял список, то ничего не трогаем, а если что-то сменил, то и там меняй.

Далее переходим на саму программу и тыкаем на любой лист правой кнопкой мышки, в списке выбираем «показать»

Находим «Settings» ➔ «ОК», откроется лист «Settings» и там список сайтов:

 

(в колонке F указан какой сайт выбран из списка)

Меняем список:

Шлёпаем по названию (вернее по ячейке E1) текст появится в строке формул

Текст меняем именно в строке формул на первый сайт в списке, он у нас: flashscore.com,

Я запишу без расширения

Что там напишем ни на что не влияет, лишь бы самому понятно было.

Меняем так все 6 строк

Переходим в лист «List», топаем правой кнопкой мышки по окошку выбора сайта

Меняем на шестёрки (количество строк с сайтами)

Заходим в архив и там также меняем:

Всё! Можешь называть себя Хакером

 

 

ОГРОМНОЕ СПАСИБО, ДРУЖИЩЕ!!! Попробую сделать всё по твоему описанию. О результатах отпишусь.

[Dorian 153]

13 минут назад, Валерий Иванович сказал:

Можете сделать проще:

Присвоить публичность ресурсу и суффиксу таким способом:
 

Public sourcer As String, suffix As String

Написать такой список, с вызовом из нужной вам ячейки:
 

Sub selectSource()
sourcer = Sheets("Settings").Range("F1").value
Select Case sourcer
Case 1: sourcer = "livescore.in/": suffix = "_en_1"
Case 2: sourcer = "livescore.in/ru/": suffix = "_ru_1"
Case 3: sourcer = "livesport.com/": suffix = "_en_1"
Case 4: sourcer = "livesport.com/ru/": suffix = "_ru_1"
Case 5: sourcer = "soccer24.com/": suffix = "_en_1"
Case 6: sourcer = "soccer24.com/ru/": suffix = "_ru_1"
Case 7: sourcer = "flashscore.com/": suffix = "_en_1"
Case 8: sourcer = "flashscorekz.com/": suffix = "_ru-kz_1"
Case 9: sourcer = "flashfootball.com/": suffix = "_en_1"
End Select
End Sub

В нужном вам макросе вызвать selectSource таким способом:


Это избавит вас от головной боли, при поиске подобных кусков кода в разнообразных макросах:
 

Вам тоже спасибо за подсказку, но я не понял ничего. Только не бейте ногами. В программировании я - 0 без палочки, поэтому задам пару вопросов: 1. Где это писать, то что вы выделили коричневым? 2. Надо дописать suffix в адресах ресурсов загрузки матчей и то, что вы выделили коричневым и тогда в выпадающем меню появятся эти сайты и можно будет с них загружать матчи?

[deshenal 225]

Доброго времени суток. Ребят, в чем может быть проблема? Не реагирует на изменение часового пояса. Как не выставляла, парсит +7.

ODDS_BRC_16.11.24 (3).xlsb

[Fiksar 309]

4 часа назад, kovan сказал:

Как я делаю:

1 открыл файл, нажал alt+f11 ➔ вошли в VB

2 Щёлкаем по модулю 5, в этой программе там больший (не урезанный) список.

Тут 6 сайтов, 3 нижних с русским языком. Стрелками показано, где название сайта и расклад яз.

Если всё устраивает, то копируем весь участок выбора: от “IF source” до  “End If”.

Переходим в Module 1

Видим такой же блок, но с тремя сайтами (как видишь один русский сайт есть, только он не рабочий и ссылка ведёт на flashscorekz.com).

Выделяем блок и заменяем скопированным в 5-ом модуле.

 В 6-ом модуле тоже есть такой список, но он такой же как в 5-ом, если не менял список, то ничего не трогаем, а если что-то сменил, то и там меняй.

Далее переходим на саму программу и тыкаем на любой лист правой кнопкой мышки, в списке выбираем «показать»

Находим «Settings» ➔ «ОК», откроется лист «Settings» и там список сайтов:

 

(в колонке F указан какой сайт выбран из списка)

Меняем список:

Шлёпаем по названию (вернее по ячейке E1) текст появится в строке формул

Текст меняем именно в строке формул на первый сайт в списке, он у нас: flashscore.com,

Я запишу без расширения

Что там напишем ни на что не влияет, лишь бы самому понятно было.

Меняем так все 6 строк

Переходим в лист «List», топаем правой кнопкой мышки по окошку выбора сайта

Меняем на шестёрки (количество строк с сайтами)

Заходим в архив и там также меняем:

Всё! Можешь называть себя Хакером

 

 

Спасибо!

[Fiksar 309]

1 час назад, Валерий Иванович сказал:

Можете сделать проще:

Присвоить публичность ресурсу и суффиксу таким способом:
 

Public sourcer As String, suffix As String

Написать такой список, с вызовом из нужной вам ячейки:
 

Sub selectSource()
sourcer = Sheets("Settings").Range("F1").value
Select Case sourcer
Case 1: sourcer = "livescore.in/": suffix = "_en_1"
Case 2: sourcer = "livescore.in/ru/": suffix = "_ru_1"
Case 3: sourcer = "livesport.com/": suffix = "_en_1"
Case 4: sourcer = "livesport.com/ru/": suffix = "_ru_1"
Case 5: sourcer = "soccer24.com/": suffix = "_en_1"
Case 6: sourcer = "soccer24.com/ru/": suffix = "_ru_1"
Case 7: sourcer = "flashscore.com/": suffix = "_en_1"
Case 8: sourcer = "flashscorekz.com/": suffix = "_ru-kz_1"
Case 9: sourcer = "flashfootball.com/": suffix = "_en_1"
End Select
End Sub

В нужном вам макросе вызвать selectSource таким способом:


Это избавит вас от головной боли, при поиске подобных кусков кода в разнообразных макросах:
 

Спасибо!

[kovan 2 094]

1 час назад, Валерий Иванович сказал:

Можете сделать проще:

Присвоить публичность ресурсу и суффиксу таким способом:
 

Public sourcer As String, suffix As String

Написать такой список, с вызовом из нужной вам ячейки:
 

Sub selectSource()
sourcer = Sheets("Settings").Range("F1").value
Select Case sourcer
Case 1: sourcer = "livescore.in/": suffix = "_en_1"
Case 2: sourcer = "livescore.in/ru/": suffix = "_ru_1"
Case 3: sourcer = "livesport.com/": suffix = "_en_1"
Case 4: sourcer = "livesport.com/ru/": suffix = "_ru_1"
Case 5: sourcer = "soccer24.com/": suffix = "_en_1"
Case 6: sourcer = "soccer24.com/ru/": suffix = "_ru_1"
Case 7: sourcer = "flashscore.com/": suffix = "_en_1"
Case 8: sourcer = "flashscorekz.com/": suffix = "_ru-kz_1"
Case 9: sourcer = "flashfootball.com/": suffix = "_en_1"
End Select
End Sub

В нужном вам макросе вызвать selectSource таким способом:


Это избавит вас от головной боли, при поиске подобных кусков кода в разнообразных макросах:
 

Я как  раз описал самый простой способ с картинками, что бы и человек без опыта и знаний, просто "тыкая" отремонтировал программу (именно эту). А понравится, будет изучать и делать другие проги уже с пониманием что к чему. А потом может и твой "простой" метод понять " Просто" - это когда понимаешь, что делаешь. 

[Валерий Иванович 687]

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

Я как  раз описал самый простой способ с картинками, что бы и человек без опыта и знаний, просто "тыкая" отремонтировал программу (именно эту). А понравится, будет изучать и делать другие проги уже с пониманием что к чему. А потом может и твой "простой" метод понять " Просто" - это когда понимаешь, что делаешь. 

Да будет так 

[deshenal 225]

2 часа назад, deshenal сказал:

Доброго времени суток. Ребят, в чем может быть проблема? Не реагирует на изменение часового пояса. Как не выставляла, парсит +7.

ODDS_BRC_16.11.24 (3).xlsb 170.58 kB · 6 загрузок

Без вариантов?

[Sergei2020 63]

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

В программе замешан конвертер  VBA-Json , вот он чт-то мудрит с часовыми поясами. Выставил Московское время и русскоязычный сайт, парсит на 4 часа время больше.

О чем вы при чем здесь конвертер VBA-Json? Там элементарная ошибка в коде при чем сразу же бросается в глаза. Все там работает.

[deshenal 225]

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

В программе замешан конвертер  VBA-Json , вот он чт-то мудрит с часовыми поясами. Выставил Московское время и рускоязычный сайт, парсит на 4 часа время больше.

 

 

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

О чем вы при чем здесь конвертер VBA-Json? Там элементарная ошибка в коде при чем сразу же бросается в глаза. Все там работает.

Супер!!! Где ошибка, не подскажите?

Изменено 20 февраля, 2025 пользователем deshenal

[Sergei2020 63]

4 минуты назад, deshenal сказал:

 

 

Супер!!! Где ошибка, не подскажите?

В этом блоке смотрите внимательно! Сам бы исправил, но лучше когда люди сами учатся на подсказках!

[kovan 2 094]

36 минут назад, deshenal сказал:

Без вариантов?

Как вариант от незнающего, заменить как на картинке "-1" на "-5", время станет в норму

[kovan 2 094]

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

В этом блоке смотрите внимательно! Сам бы исправил, но лучше когда люди сами учатся на подсказках!

И что!?