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

[KAISER 325]

В 14.09.2024 в 19:21, igorek сказал:

Ребят может кто нибудь подчинить данную табличку? Готов отблагодарить. 

DeluX_plus+(Mod 24.02.2024).xlsm 2.37 MB · 17 загрузок

Что с ней не так? Вроде всё работает.

[igorek 6]

7 часов назад, KAISER сказал:

Что с ней не так? Вроде всё работает.

Да уже заметил, она в пятницу и в субботу не грузила матчи, но там многие таблицы не работали, походу сбой на сайте какой то был. 

[Lenchiko 20]

В 14.09.2024 в 03:54, Василий Ярандаев сказал:

Всем доброй ночи или у кого утро.Может кто  возратить таблицу к работе ? Таблица отличная проход  первые тайм  и тотал 1,5 .

Quartz CoteBet 2024.xlsb 1.22 MB · 11 загрузок

Доброго всем денечка! Присоединяюсь к просьбе,помогите добрые люди починить,грузит матчи но почему то уже с исходами

[Elimay1998 57]

В 11.09.2024 в 20:37, Валерий Иванович сказал:

Можно или нет - на это что бы ответить, нужно сначала указать какую статистику хотите там видеть?

1. Матчи 5 и 15 есть уже в программе, осталось понять, чтобы они выводились сразу в таблицу, рядом с кф *(в рассчеты).

2. Очные матчи (их в стате вообще нет , программа их не парсит ) - 2.1 отдельно очные встречи 5 минимум общие и строгое - 5 матчей очных - для тех кто дома играет.

3. Добавить функции рассчета (это уже сть формулы, если 1и 2 критерий будет, смогу вписать и показать , что получается.

4. аналогично для очных тоже  сделать можно.

5. И если возможно (пока читаю, не нашел ответа - идет к примеру лайв - по лайв отбирать, от счета).

[Bahodir Quchqorov 0]

!InfinityBook.xlsm  Подскажите, пожалуйста, можно ли разработать эту программу?

[KAISER 325]

5 часов назад, Bahodir Quchqorov сказал:

!InfinityBook.xlsm  Подскажите, пожалуйста, можно ли разработать эту программу?

Она есть в программе от фарела.

[Mayson7 2]

В 13.09.2024 в 22:54, Василий Ярандаев сказал:

Всем доброй ночи или у кого утро.Может кто  возратить таблицу к работе ? Таблица отличная проход  первые тайм  и тотал 1,5 .

Quartz CoteBet 2024.xlsb 1.22 MB · 11 загрузок

Привет Василий. Может поделишься  какими фильтрами (настройками) находишь тоталы на 1,5 ?

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

Кто-нибудь сталкивался с такой проблемкой? ))) Как от этого избавится?
Заголовки cтолбцов C и D сменили привычное название 

Изменено 18 сентября, 2024 пользователем Валерий Иванович

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

Гениальные куски кода от GPT:

 

' Определяем целевой лист в зависимости от активного листа
If ActiveSheet.Name = "Список" Then: Set tSheet = Sheets("Список")
If ActiveSheet.Name = "Архив" Then: Set tSheet = Sheets("Архив")

'Запись данных в целевой лист
Set srchRw = tSheet.Range("Z:Z").Find(what:=match_id)
If Not srchRw Is Nothing Then
Dim rw As Long: rw = srchRw.Row
With tSheet
.Range("X" & rw).Font.Color = RGB(251, 151, 151): .Range("X" & rw).value = scores_ht
.Range("Y" & rw).Font.Color = RGB(251, 151, 151): .Range("Y" & rw).value = scores_ft
End With
End If

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

Изменено 18 сентября, 2024 пользователем Валерий Иванович

[Mayson7 2]

Добрый вечер Валерий Иванович. По моему Вы сделали в этой таблице АРХИВ рабочим.

Почему-то  не возможно стало архивировать отфильтрованное. А так удобно было.

Конечно можно скрины делать , но уже не то.

Спасибо заранее.

FC+BETON 18.09.xlsb

Изменено 18 сентября, 2024 пользователем Mayson7

[SergioJek 2 110 439]

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

Гениальные куски кода от GPT:

 

' Определяем целевой лист в зависимости от активного листа
If ActiveSheet.Name = "Список" Then: Set tSheet = Sheets("Список")
If ActiveSheet.Name = "Архив" Then: Set tSheet = Sheets("Архив")

'Запись данных в целевой лист
Set srchRw = tSheet.Range("Z:Z").Find(what:=match_id)
If Not srchRw Is Nothing Then
Dim rw As Long: rw = srchRw.Row
With tSheet
.Range("X" & rw).Font.Color = RGB(251, 151, 151): .Range("X" & rw).value = scores_ht
.Range("Y" & rw).Font.Color = RGB(251, 151, 151): .Range("Y" & rw).value = scores_ft
End With
End If

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

' Определяем целевой лист в зависимости от активного листа
Dim ActiveSheet As Long 'Запись данных в целевой лист

Set tSheet = ActiveSheet

Set srchRw = tSheet.Range("Z:Z").Find(what:=match_id)
If Not srchRw Is Nothing Then
Dim rw As Long: rw = srchRw.Row
With tSheet
   .Range("X" & rw).Font.Color = RGB(251, 151, 151): .Range("X" & rw).value = scores_ht
   .Range("Y" & rw).Font.Color = RGB(251, 151, 151): .Range("Y" & rw).value = scores_ft
End With
End If

Думаю так проще

Изменено 18 сентября, 2024 пользователем SergioJek

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

В 16.09.2024 в 20:01, KAISER сказал:

Она есть в программе от фарела.

а можно прогу фарела?)

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

скиньте пожалуйста таблицу где есть такое окошко)

[Apostroff 0]

14 часов назад, SergioJek сказал:

' Определяем целевой лист в зависимости от активного листа
Dim ActiveSheet As Long 'Запись данных в целевой лист

Ай-яй-яй

Эта строчка - точно лишняя!

[SergioJek 2 110 439]

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

Ай-яй-яй

Эта строчка - точно лишняя!

Согласен

Изменено 19 сентября, 2024 пользователем SergioJek

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

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

' Определяем целевой лист в зависимости от активного листа
Dim ActiveSheet As Long 'Запись данных в целевой лист

Set tSheet = ActiveSheet

Set srchRw = tSheet.Range("Z:Z").Find(what:=match_id)
If Not srchRw Is Nothing Then
Dim rw As Long: rw = srchRw.Row
With tSheet
   .Range("X" & rw).Font.Color = RGB(251, 151, 151): .Range("X" & rw).value = scores_ht
   .Range("Y" & rw).Font.Color = RGB(251, 151, 151): .Range("Y" & rw).value = scores_ft
End With
End If

Думаю так проще

Так тоже можно
Согласен с оратором выше, "ActiveSheet не нужно присваивать тип Long"

Изменено 19 сентября, 2024 пользователем Валерий Иванович

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

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

Согласен

Раз тема зашла о макросах, можете помочь довести до ума данный макрос?
Испробовал десяток разных вариантов, логических и не логических подходов - ни к чему адекватному так и не пришел:
 

Private Sub TextBox1_Change()
Dim inputValue As String
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Àðõèâ")
Application.ScreenUpdating = False
inputValue = Me.TextBox1.Text
If inputValue = "" Then
If ws.FilterMode Then
ws.AutoFilterMode = False
End If
Else
If ws.FilterMode Then
ws.AutoFilterMode = False
End If
ws.Range("C2:D1000").AutoFilter Field:=1, Criteria1:=inputValue, Operator:=xlOr, Criteria2:=inputValue
End If
Application.ScreenUpdating = True
End Sub

Суть: вбиваем поле input название команды и ищем ее по двум столбцам, дома или в гостях и выводим фильтром.

В первом случае, если критерий найден в столбце C - результат есть.
Если критерий найден в столбце D - инфа не выводится, т.к. фильтр присвоен к столбцу C и D.

Пробовал присваивать критерию пустое значение если в первом столбце не найдено, и делать повторный поиск уже во 2 столбце - но тут опять идет все против логики, т.к. если будет найдено в 1 столбце, не выведется 2. Умаялся короче ))

Остановился пока на таком подходе:

Изменено 19 сентября, 2024 пользователем Валерий Иванович

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

17 часов назад, Mayson7 сказал:

Добрый вечер Валерий Иванович. По моему Вы сделали в этой таблице АРХИВ рабочим.

Почему-то  не возможно стало архивировать отфильтрованное. А так удобно было.

Конечно можно скрины делать , но уже не то.

Спасибо заранее.

FC+BETON 18.09.xlsb 435.93 kB · 18 загрузок

Мне кажется эта таблица через мои руки не проходила )
Если не ошибаюсь, объединением таблиц "BET-PLUS и BETON" занимался  The Iron Wizard 

[Portercat2198 B 32]

Доброго всем дня. Вопрос такого плана: есть рабочая таблица, но грузит для меня лишние матчи, которые отнимают время. Можно как-то эти матчи убрать из загрузки?

P.S. Лишние матчи, где команды сыграли меньше 5 игр.

[SergioJek 2 110 439]

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

Раз тема зашла о макросах, можете помочь довести до ума данный макрос?
Испробовал десяток разных вариантов, логических и не логических подходов - ни к чему адекватному так и не пришел:
 

Private Sub TextBox1_Change()
Dim inputValue As String
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Àðõèâ")
Application.ScreenUpdating = False
inputValue = Me.TextBox1.Text
If inputValue = "" Then
If ws.FilterMode Then
ws.AutoFilterMode = False
End If
Else
If ws.FilterMode Then
ws.AutoFilterMode = False
End If
ws.Range("C2:D1000").AutoFilter Field:=1, Criteria1:=inputValue, Operator:=xlOr, Criteria2:=inputValue
End If
Application.ScreenUpdating = True
End Sub

Суть: вбиваем поле input название команды и ищем ее по двум столбцам, дома или в гостях и выводим фильтром.

В первом случае, если критерий найден в столбце C - результат есть.
Если критерий найден в столбце D - инфа не выводится, т.к. фильтр присвоен к столбцу C и D.

Пробовал присваивать критерию пустое значение если в первом столбце не найдено, и делать повторный поиск уже во 2 столбце - но тут опять идет все против логики, т.к. если будет найдено в 1 столбце, не выведется 2. Умаялся короче ))

Остановился пока на таком подходе:

Сам подход не правильный. хз. Я бы просто тупо просканировал оба столба в словарь. Хорошая штука. И потом просто использовал поиск по словарю. Поверьте очень быстро будет. GPT чат бывает такую ересь выдает иногда. Он хорош для конкретики

 

[The Iron Wizard 1 146]

В 18.09.2024 в 22:52, Mayson7 сказал:

Добрый вечер Валерий Иванович. По моему Вы сделали в этой таблице АРХИВ рабочим.

Почему-то  не возможно стало архивировать отфильтрованное. А так удобно было.

Конечно можно скрины делать , но уже не то.

Спасибо заранее.

FC+BETON 18.09.xlsb 435.93 kB · 27 загрузок

Все отфильтровывается и заносится в архив. Не понимаю вопроса.

[Suro Surenyan 21]

опять проблемы на сайтах flashscore (((

[Cage 175]

Угу, надо искать нормальную альтернативу флешскору)

Я так понимаю сервера не справляются по выходным

Изменено 21 сентября, 2024 пользователем Cage

[Sweet Mask 542]

Даже табличка Altadar 2023 откисла, хотя она  всегда работала несмотря на изменения на флешскоре. 

Может у кого-то есть рабочая или это временно она не грузит матчи??

[Reno 1972 6]

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

Даже табличка Altadar 2023 откисла, хотя она  всегда работала несмотря на изменения на флешскоре. 

Может у кого-то есть рабочая или это временно она не грузит матчи??

Сейчас флешкор почти не грузится тупит