делюкс Как добавить "автомат" в делюкс

[Anton 457]

Добрый день!

1. Заходим в макросы и добавляем этот код в любой Module:

Sub автомат()
    Columns("L:L").Select
    Selection.Autofilter
    ActiveSheet.Range("$L$1:$L$2041").Autofilter Field:=1, Criteria1:="="
    Rows("2:2041").Select
    Range("A2041").Activate
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$L$1:$L$2041").Autofilter Field:=1
    Call Повтор
End Sub

Sub m1()
Range("I2").Select
On Error GoTo eh
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp    
eh:
Exit Sub
End Sub

Sub Повтор()
Dim i&
For i = 1 To 2000
Call m1
Next
End Sub

2. В Module1 ищем макрос "Sub getGame(id As String)", мотаем в самый его конец и добавляем 2 строчки кода перед End Sub:

        Call ТоАрхив
        Sheets("Список").Select

3. В Module5 ищем макрос Sub ТоАрхив() и комментим или удаляем последнюю строку MsgBox "ДОБАВЛЕНО!.":

 

4. Добавляем кнопку и назначаем ей макрос - автомат

Конец)

p.s.

Если вы сами не изменяли названия макросов, то всё должно сработать.

Сделайте копию своей таблицы и потренируйтесь на ней.

 

 

 

 

[marsave 195]

[Anton 457]

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

ну можно и так)))

у Вас помнится товарищ есть Косовский, можете его попросить глянуть Delux, чёт опять перестал Очные листы грузить 

[marsave 195]

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

ну можно и так)))

у Вас помнится товарищ есть Косовский, можете его попросить глянуть Delux, чёт опять перестал Очные листы грузить 

Да, ок отпишу ему

[Alexey 2]

Привет..Delux не грузит очные, спасибо что сказали, не заметил.

Автомат супер было бы...выложите пожалуйста кто смог это сотворить автомат-Delux

[deshenal 199]

Пробуйте. Сюда не смогла загрузить. Качайте с файлообменника.

https://dropmefiles.com/yRT4O

[Adok 69]

В 06.08.2021 в 17:53, deshenal сказал:

Пробуйте. Сюда не смогла загрузить. Качайте с файлообменника.

https://dropmefiles.com/yRT4O

она должна долго грузить или тока у меня так?на завтра обнову делал уже 6 часов грузить и еще обнову не закончил 

[deshenal 199]

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

она должна долго грузить или тока у меня так?на завтра обнову делал уже 6 часов грузить и еще обнову не закончил 

Не знаю. Я на ночь включила, утром увидела, что загружено.

[Anton 457]

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

Не знаю. Я на ночь включила, утром увидела, что загружено.

на ночь) в обычном варианте нужно маржу побить, а тут ещё и счёт за электричество) 

[Anton 457]

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

она должна долго грузить или тока у меня так?на завтра обнову делал уже 6 часов грузить и еще обнову не закончил 

беткховин сам себя не намайнит)))

[zxxxa 75]

Вчера 3 часа сканировалось. После результат ноль.

[deshenal 199]

15 часов назад, zxxxa сказал:

Вчера 3 часа сканировалось. После результат ноль.

Попробуйте взять любой день, когда было (или будет) мало матчей. Чисто для проверки.

[Иван Петров 17]

Или после того, как матчи загрузились - уберите многие из списка и запустите автомат. Я товарняки так убираю, кубки и лиги, где сыграно мало туров.

[Adok 69]

13 часа назад, Иван Петров сказал:

Или после того, как матчи загрузились - уберите многие из списка и запустите автомат. Я товарняки так убираю, кубки и лиги, где сыграно мало туров.

странно ну так у меня не работает сбивается то что выбрал и все игры идут 

[deshenal 199]

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

странно ну так у меня не работает сбивается то что выбрал и все игры идут 

Не фильтром убирайте, а именно удаляйте.

[faer 26]

привет!  сможеш установить на эту таблу автомат 5in1_eng_FX2.xlsm

[Adok 69]

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

Не фильтром убирайте, а именно удаляйте.

аааа теперь понял спасибо

 

[Anton 457]

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

привет!  сможеш установить на эту таблу автомат 5in1_eng_FX2.xlsm

если это мне вопрос, то не вижу смысла. тут один в один макросы как у делюкса, но нет архива  и куча одинаковых вычислений с разным оформлением. проще если что-то кажется перспективным перенести в делюкс. я что-то нового не заметил

[SergioJek 2 110 442]

43 минуты назад, Anton сказал:

если это мне вопрос, то не вижу смысла. тут один в один макросы как у делюкса, но нет архива  и куча одинаковых вычислений с разным оформлением. проще если что-то кажется перспективным перенести в делюкс. я что-то нового не заметил

там сам парсер более уподобоварим. Гигс хорошо его сделал. Учитывая недочеты всех старых Инфинити

[Anton 457]

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

 

Не понимаю как можно каждый день пользоваться разными таблицами, это же рандом выходит, ни одной закономерности не проверить.

Для меня очевидно, что всё что бесплатно в открытом доступе не работает, тоесть если ставить всё что эта прога 5in1(любая другая) предлагает, то это минус бабки, нужно допиливать расчёты и искать-искать и не факт что найдётся, я до сих пор в поиске), единственное что фарель правильно говорил - нужен архив чтобы набрать дистанцию, его там нет. Надо опрос запилить: Кто какими таблицами пользуется? Я правда не знаю почти никакие, кроме пары штук) 

Изменено 9 августа, 2021 пользователем Anton

[SergioJek 2 110 442]

5 минут назад, Anton сказал:

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

 

Не понимаю как можно каждый день пользоваться разными таблицами, это же рандом выходит, ни одной закономерности не проверить.

Для меня очевидно, что всё что бесплатно в открытом доступе не работает, тоесть если ставить всё что эта прога 5in1(любая другая) предлагает, то это минус бабки, нужно допиливать расчёты и искать-искать и не факт что найдётся, я до сих пор в поиске), единственное что фарель правильно говорил - нужен архив чтобы набрать дистанцию, его там нет. Надо опрос запилить: Кто какими таблицами пользуется? Я правда не знаю почти никакие, кроме пары штук) 

Штук 10 наверное. И все никак в одну не сведу....

[Anton 457]

я сейчас тестирую больше 100 алгоритмов, точнее 140))

каждая строка - новая гипотеза

через пару месяцев видно будет)

 

Книга1.xlsx

[N.Isaev 52]

13 часа назад, Anton сказал:

я сейчас тестирую больше 100 алгоритмов, точнее 140))

каждая строка - новая гипотеза

через пару месяцев видно будет)

 

Книга1.xlsx 59 \u043a\u0411 · 10 загрузок

Ждём тему "Алгоритм Anton'а"

[Sam Dri 30]

18 часов назад, Anton сказал:

Je teste actuellement plus de 100 algorithmes, plus précisément 140))

chaque ligne est une nouvelle hypothèse

dans quelques mois on verra)

 

Livre1.xlsx 59 \ u043a \ u0411 · 13 téléchargements

你好燒焦的神經元

[deshenal 199]

Ребят, может кому понадобится NX Footbal IncoSJ 3.7. Автомат:

 

NX Footbal IncoSJ 3 автомат.xlsm