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

[kovan 1 516]

Сам прочитал и 

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

 1xBet у нас в России как раз не работает!

А вот Winline и 1xStavka работают неплохо, проверено.

Вот оставил только эти 2 бука:

 

 

Leon и bet365 не пашут. 

Напишите какие хотите вставить, вставлю, 3 минуты делов. 

Сам прочитал и понял, что нето сморозил Вернее так: с русскими сайтами (RU) будут работать, а 1xBet с англоязычными, как тут - один сайт представлен livesport.com

[kovan 1 516]

12 минут назад, Evgeniy PRO Better сказал:

Приветствую! Подскажите, кто знает - мне надо чтобы макрос фильтровал ДИАПАЗОН значений "от и до", а не просто "больше или равно", как в примере ниже. Допустим, чтобы фильтровал от значения 1.5 до значения 2.15 - возможно ли такое сделать в макросах, или только больше-меньше и несколько выборов один за другим по нумерации частей кода "Criterial1:=...", "Criterial2:=...", "Criterial3:=..." и так далее...?

Пример макроса дли фильтрации "больше или равно 1.53"

ActiveSheet.Range("$A$1:$AU$1200").AutoFilter Field:=36, Criteria1:=">=1.53", _
  Operator:=xlAnd

А если можно всё-таки в макросах фильтровать диапазон "от и до" определённых значений, то подскажите, какой там код нужен?..

 

Sub FilterRange() 

ActiveSheet.Range("$A$1:$AU$1200").AutoFilter Field:=36, _ Criteria1:=">=1.5", _ Criteria2:="<=2.15", _ Operator:=xlAnd

End Sub

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

[Evgeniy PRO Better 772]

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

Sub FilterRange() 

ActiveSheet.Range("$A$1:$AU$1200").AutoFilter Field:=36, _ Criteria1:=">=1.5", _ Criteria2:="<=2.15", _ Operator:=xlAnd

End Sub

Благодарю, сейчас попробую протестировать...

 

[OneCheg Channel 0]

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

 1xBet у нас в России как раз не работает!

А вот Winline и 1xStavka работают неплохо, проверено.

Вот оставил только эти 2 бука:

 

 

Leon и bet365 не пашут. 

Напишите какие хотите вставить, вставлю, 3 минуты делов. 

А какие писать? Флешскор почему то не грузит бк в окне. просто пишет кф и все... Может подскажешь, у каких бк открытый доступ

[Evgeniy PRO Better 772]

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

Sub FilterRange() 

ActiveSheet.Range("$A$1:$AU$1200").AutoFilter Field:=36, _ Criteria1:=">=1.5", _ Criteria2:="<=2.15", _ Operator:=xlAnd

End Sub

Выдавал сначала ошибку, оказалось что в коде макроса лишний знак "_" перед "Criteria2" - убрал его и всё заработало! 

 

[kovan 1 516]

10 минут назад, Evgeniy PRO Better сказал:

Благодарю, сейчас попробую протестировать...

 

Извини, если просто так запишешь, наверное не будет работать.

Запиши так:

[Evgeniy PRO Better 772]

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

Извини, если просто так запишешь, наверное не будет работать.

Запиши так:

 

Полностью макрос мне не был нужен, только часть кода для фильтрации диапазона значений "от и до".

У меня эта часть кода в макросе хорошо работает в таком виде : 

ActiveSheet.Range("$A$1:$AU$1200").AutoFilter Field:=36, Criteria1:=">=1.5", Criteria2:="<=2.15", _
  Operator:=xlAnd

 

Изменено 18 февраля пользователем Evgeniy PRO Better

[kovan 1 516]

11 минут назад, Evgeniy PRO Better сказал:

Выдавал сначала ошибку, оказалось что в коде макроса лишний знак "_" перед "Criteria2" - убрал его и всё заработало! 

 

Просто я набрал как на картинке выше (так лучше читается текст), а скопировал без табуляции, вот и получился лишний знак в строке Спешка нужна только при ловле блох 

[Dorian 153]

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

 1xBet у нас в России как раз не работает!

А вот Winline и 1xStavka работают неплохо, проверено.

Вот оставил только эти 2 бука:

 

 

Leon и bet365 не пашут. 

Напишите какие хотите вставить, вставлю, 3 минуты делов. 

Можно вставить Олимпбет.

[The Iron Wizard 1 436]

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

Можно вставить Олимпбет.

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

 

Изменено 19 февраля пользователем The Iron Wizard

[vlad2017 31]

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

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

 

Добавьте Английскую версию букмекеров сверху вниз 1.3.4.5. Было бы здорово добавить в таблицу средний кэф открытия ?

[The Iron Wizard 1 436]

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

Добавьте Английскую версию букмекеров сверху вниз 1.3.4.5. Было бы здорово добавить в таблицу средний кэф открытия ?

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

Изменено 19 февраля пользователем The Iron Wizard

[vlad2017 31]

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

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

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

[Dorian 153]

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

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

 

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

[The Iron Wizard 1 436]

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

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

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

[vlad2017 31]

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

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

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

[The Iron Wizard 1 436]

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

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

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

[vlad2017 31]

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

77631394_MilyonlukAriv (2).xlsb

[Dorian 153]

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

TOTAL-OVER .xlsm

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

[vlad2017 31]

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

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

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

NowGoalBet13122022 SJ (2).xlsm

[kovan 1 516]

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

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

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

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

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

[Dorian 153]

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

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

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

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

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

[kovan 1 516]

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 февраля пользователем kovan

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

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», топаем правой кнопкой мышки по окошку выбора сайта

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

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

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

 

 

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