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

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

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

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

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

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

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

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

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

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

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

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

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

[Portercat2198 B 37]

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

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

[SergioJek 2 110 545]

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

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

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

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

[Reno 1972 9]

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

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

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

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

 

[Grey Cardinal 236]

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

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

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

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

 

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

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

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

 

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

[Cage 175]

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

[wanderer375 166]

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

[Grey Cardinal 236]

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

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

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

[pisoi21 231]

          Может кто-нибудь починить эту таблицу 

BETALONE_V5.xlsm

[Albertik 5]

IncoSJ 1.2. ver3 Van Helsing 2024.xlsb

почините,пожалуйста,братцы очень выручала и экономила время таблица при поиске матчей. 

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

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

IncoSJ 1.2. ver3 Van Helsing 2024.xlsb 1.16 MB · 1 загрузка

почините,пожалуйста,братцы очень выручала и экономила время таблица при поиске матчей. 

Для поиска, можно и такой парсер написать на коленке )

[Кирилл Клейменов 400]

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

Для поиска, можно и такой парсер написать на коленке )

Какое-то нереальное количество забитых голов... как за весь прошлый сезон...

Хотелось бы за какой-то реальный период... 10 - а лучше 6 последних матчей... а ещё лучше - оба варианта...

[Cage 175]

Интересно, почему во флешскорах перестали показывать атаки/опасные атаки во многих чемпионатах?

[Lenchiko 44]

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

Программа на углы.xlsb

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

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

Какое-то нереальное количество забитых голов... как за весь прошлый сезон...

Хотелось бы за какой-то реальный период... 10 - а лучше 6 последних матчей... а ещё лучше - оба варианта...

Это уже не ко мне претензия, а сайту  ) sokkerpro что дает, парсер то и пишет )

[Elimay1998 58]

В 21.09.2024 в 21:29, Sweet Mask сказал:

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

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

какая из версий то нужна?

[Elimay1998 58]

В 23.09.2024 в 00:48, Валерий Иванович сказал:

Это уже не ко мне претензия, а сайту  ) sokkerpro что дает, парсер то и пишет )

Доброго дня. Выше на ваше сообщение , отписал ответ, что можете сказать?)

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

53 минуты назад, Elimay1998 сказал:

Доброго дня. Выше на ваше сообщение , отписал ответ, что можете сказать?)

На что конкретно ответ нужен? )