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

[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 215]

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

ODDS_BRC_16.11.24 (3).xlsb

[Fiksar 267]

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 267]

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 1 508]

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 таким способом:


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

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

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

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

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

Да будет так 

[deshenal 215]

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

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

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

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

[Sergei2020 59]

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

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

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

[deshenal 215]

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

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

 

 

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

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

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

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

[Sergei2020 59]

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

 

 

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

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

[kovan 1 508]

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

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

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

[kovan 1 508]

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

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

И что!?

[Sergei2020 59]

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

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

 

ВЫ ПРОСТО ПОСМОТРИТЕ ИЗ КАКОЙ ЯЧЕЙКИ В СЕТИНГС У ВАС В КОДЕ БЕРУТСЯ ДАННЫЕ ДЛЯ ЧАСОВОГО ПОЯСА, А НА САМОМ ДЕЛЕ ДОЛЖНЫ БРАТЬСЯ ИЗ КАКОЙ ЯЧЕЙКИ В СЕТИНГС?

ТАМ СРАЗУ ЖЕ ВИДНО ОШИБКУ.

[Sergei2020 59]

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

И что!?

Не правильно.

[kovan 1 508]

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

ВЫ ПРОСТО ПОСМОТРИТЕ ИЗ КАКОЙ ЯЧЕЙКИ В СЕТИНГС У ВАС В КОДЕ БЕРУТСЯ ДАННЫЕ ДЛЯ ЧАСОВОГО ПОЯСА, А НА САМОМ ДЕЛЕ ДОЛЖНЫ БРАТЬСЯ ИЗ КАКОЙ ЯЧЕЙКИ В СЕТИНГС?

ТАМ СРАЗУ ЖЕ ВИДНО ОШИБКУ.

Точно! 

[deshenal 215]

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

ВЫ ПРОСТО ПОСМОТРИТЕ ИЗ КАКОЙ ЯЧЕЙКИ В СЕТИНГС У ВАС В КОДЕ БЕРУТСЯ ДАННЫЕ ДЛЯ ЧАСОВОГО ПОЯСА, А НА САМОМ ДЕЛЕ ДОЛЖНЫ БРАТЬСЯ ИЗ КАКОЙ ЯЧЕЙКИ В СЕТИНГС?

ТАМ СРАЗУ ЖЕ ВИДНО ОШИБКУ.

Берутся из В1. Туда проставляется номер строки из столбца А...

[Sergei2020 59]

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

Берутся из В1. Туда проставляется номер строки из столбца А...

ну, а в коде запрашивает из "D1", надо D поменять на В)

[deshenal 215]

Блииииииин!!! Ну Вы глазастый))) Спасибо огромное!!!

[kovan 1 508]

10 часов назад, deshenal сказал:

Блииииииин!!! Ну Вы глазастый))) Спасибо огромное!!!

 

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

[Віталік Іванець 28]

В 19.02.2025 в 19:52, vlad2017 сказал:

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

77631394_MilyonlukAriv (2).xlsb 116.02 MB · 9 загрузок

по какой бк?

[Sergei2020 59]

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

 

 

Смешно...

[VB- AS 9]

Может ли кто-нибудь мне помочь? для этого в программе есть 60 таблиц куда можно поместить данные, мне 53, хотелось бы больше, например 100 200 

NEW 80%.xlsx

[KGB 336]

34 минуты назад, VB- AS сказал:

Может ли кто-нибудь мне помочь? для этого в программе есть 60 таблиц куда можно поместить данные, мне 53, хотелось бы больше, например 100 200 

NEW 80%.xlsx 217.98 kB · 2 загрузки

создай новый лист с копированием формул. делов то

[VB- AS 9]

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

создай новый лист с копированием формул. делов то

не могли бы вы объяснить, как это сделать? 
 

[KGB 336]

8 минут назад, VB- AS сказал:

не могли бы вы объяснить, как это сделать? 
 

Пожалуйста. Лист "копия" Уже сами удалите данные, надеюсь это вы умеете делать? Раз заполняли, а значит и удалить можете.

NEW 79%.xlsx