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

[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 ?

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

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

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

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

Гениальные куски кода от 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 475]

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

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

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

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

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

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

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

[Apostroff 0]

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

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

Ай-яй-яй

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

[SergioJek 2 110 475]

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

Ай-яй-яй

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

Согласен

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

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

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 пользователем Валерий Иванович

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

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 пользователем Валерий Иванович

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

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

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

В 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 581]

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

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

[Reno 1972 7]

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

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

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

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

 

[Grey Cardinal 163]

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

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

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

Сервера флешскоре легли, и это временно.

 

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

1 час назад, Grey Cardinal сказал:

Сервера флешскоре легли, и это временно.

 

С таким количеством парсеров, да еще и такого качества - какой сервер выдержит )))

[Cage 175]

Да всё уже, заработал)

[wanderer375 150]

Да, одна из прог прогрузилась по результатам. Сначала тяжело шло, а потом норм

[Grey Cardinal 163]

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

С таким количеством парсеров, да еще и такого качества - какой сервер выдержит )))

3-4 видов парсеров не так и много, но народу реально будет много