Опубликовано 11 апреля, 20242 г. 27 минут назад, pautinovih сказал: 10 мин Странно что то запустил минут 10 прошло и она еще грузила сегодня список что то показывало судя по номеру строки 133 матча, ну может так у меня, не знаю.
Опубликовано 12 апреля, 20242 г. 15 часов назад, HukMakcuM сказал: Всем доброго времени суток. Уважаемые программисты, подскажите пожалуйста, почему табличка может неверно загружать некоторые прошедшие результаты матчей? Или может я что-то неправильно делаю? Хотя проверил на двух сайтах.. И можно ли это исправить на скорую руку? Буду искренне благодарен! nx Footbal ver-3.7 mod 2024.xlsm 3.09 MB · 6 загрузок Здравствуйте. В модуле 1 поменяйте как на скрине
Опубликовано 12 апреля, 20242 г. 2 часа назад, Андрей сказал: Здравствуйте. В модуле 1 поменяйте как на скрине Поменял. Начальный пример загрузился верно, а два последующих.. на скрине:
Опубликовано 12 апреля, 20242 г. 59 минут назад, HukMakcuM сказал: Поменял. Начальный пример загрузился верно, а два последующих.. на скрине: Проверил по этим матчам, загрузилось нормально . Попробуйте перед загрузкой матчей нажать на кнопку Очистка. Вот ваш файл, в нём я поменял так как на скрине. nx Footbal ver-3.7 mod 2024.xlsm
Опубликовано 12 апреля, 20242 г. 15 минут назад, Андрей сказал: Проверил по этим матчам, загрузилось нормально . Попробуйте перед загрузкой матчей нажать на кнопку Очистка. Вот ваш файл, в нём я поменял так как на скрине. nx Footbal ver-3.7 mod 2024.xlsm 3.05 MB · 2 загрузки Да, действительно, всё грузит верно. Очистку упустил из виду. Вам - большая от меня благодарность за помощь🙂👍
Опубликовано 12 апреля, 20242 г. Народ, всем привет! На ТГ-канале форума взял недавно очередной парсер (отдельная благодарность всем причастным), так вот - не могу найти в настройках смену часового пояса. Подскажите пожалуйста, кто в курсе вопроса, куда смотреть, что нажимать, если вообще там такая функция предусмотрена? UNIVERS_LIGA v3.xlsm
Опубликовано 12 апреля, 20242 г. 1 час назад, TOMkpy3 сказал: не могу найти в настройках смену часового пояса. Найдешь, свистни 😚
Опубликовано 14 апреля, 20242 г. В 12.04.2024 в 13:15, TOMkpy3 сказал: Народ, всем привет! На ТГ-канале форума взял недавно очередной парсер (отдельная благодарность всем причастным), так вот - не могу найти в настройках смену часового пояса. Подскажите пожалуйста, кто в курсе вопроса, куда смотреть, что нажимать, если вообще там такая функция предусмотрена? UNIVERS_LIGA v3.xlsm 15.24 MB · 39 загрузок все еще не работает :(
Опубликовано 14 апреля, 20242 г. В 12.04.2024 в 11:59, HukMakcuM сказал: Да, действительно, всё грузит верно. Очистку упустил из виду. Вам - большая от меня благодарность за помощь🙂👍 ub clearParsed() Sheets("Î÷íûå").Columns("A:F").Clear Sheets("Î÷íûåÄÃ").Columns("A:F").Clear Sheets("Äîìà").Columns("A:I").Clear Sheets("Äîìà").Range("A1").Value = "×åìïèîíàò" Sheets("Äîìà").Range("B1").Value = "Äàòà/Âðåìÿ" Sheets("Äîìà").Range("C1").Value = "Äîìà" Sheets("Äîìà").Range("D1").Value = "Ãîñòè" Sheets("Äîìà").Range("E1").Value = "Ê1 â 1Ò" Sheets("Äîìà").Range("F1").Value = "Ê2 â 1Ò" Sheets("Äîìà").Range("G1").Value = "Ê1 âî 2Ò" Sheets("Äîìà").Range("H1").Value = "Ê2 âî 2Ò" Sheets("Äîìà").Range("I1").Value = "Ãäå èãðàëè" Sheets("ÄîìàÄîìà").Columns("A:I").Clear Sheets("ÄîìàÄîìà").Range("A1").Value = "×åìïèîíàò" Sheets("ÄîìàÄîìà").Range("B1").Value = "Äàòà/Âðåìÿ" Sheets("ÄîìàÄîìà").Range("C1").Value = "Äîìà" Sheets("ÄîìàÄîìà").Range("D1").Value = "Ãîñòè" Sheets("ÄîìàÄîìà").Range("E1").Value = "Ê1 â 1Ò" Sheets("ÄîìàÄîìà").Range("F1").Value = "Ê2 â 1Ò" Sheets("ÄîìàÄîìà").Range("G1").Value = "Ê1 âî 2Ò" Sheets("ÄîìàÄîìà").Range("H1").Value = "Ê2 âî 2Ò" Sheets("ÄîìàÄîìà").Range("I1").Value = "Ãäå èãðàëè" Sheets("ÄîìàÃîñòè").Columns("A:I").Clear Sheets("ÄîìàÃîñòè").Range("A1").Value = "×åìïèîíàò" Sheets("ÄîìàÃîñòè").Range("B1").Value = "Äàòà/Âðåìÿ" Sheets("ÄîìàÃîñòè").Range("C1").Value = "Äîìà" Sheets("ÄîìàÃîñòè").Range("D1").Value = "Ãîñòè" Sheets("ÄîìàÃîñòè").Range("E1").Value = "Ê1 â 1Ò" Sheets("ÄîìàÃîñòè").Range("F1").Value = "Ê2 â 1Ò" Sheets("ÄîìàÃîñòè").Range("G1").Value = "Ê1 âî 2Ò" Sheets("ÄîìàÃîñòè").Range("H1").Value = "Ê2 âî 2Ò" Sheets("ÄîìàÃîñòè").Range("I1").Value = "Ãäå èãðàëè" Sheets("Ãîñòè").Columns("A:I").Clear Sheets("Ãîñòè").Range("A1").Value = "×åìïèîíàò" Sheets("Ãîñòè").Range("B1").Value = "Äàòà/Âðåìÿ" Sheets("Ãîñòè").Range("C1").Value = "Äîìà" Sheets("Ãîñòè").Range("D1").Value = "Ãîñòè" Sheets("Ãîñòè").Range("E1").Value = "Ê1 â 1Ò" Sheets("Ãîñòè").Range("F1").Value = "Ê2 â 1Ò" Sheets("Ãîñòè").Range("G1").Value = "Ê1 âî 2Ò" Sheets("Ãîñòè").Range("H1").Value = "Ê2 âî 2Ò" Sheets("Ãîñòè").Range("I1").Value = "Ãäå èãðàëè" Sheets("ÃîñòèÄîìà").Columns("A:I").Clear Sheets("ÃîñòèÄîìà").Range("A1").Value = "×åìïèîíàò" Sheets("ÃîñòèÄîìà").Range("B1").Value = "Äàòà/Âðåìÿ" Sheets("ÃîñòèÄîìà").Range("C1").Value = "Äîìà" Sheets("ÃîñòèÄîìà").Range("D1").Value = "Ãîñòè" Sheets("ÃîñòèÄîìà").Range("E1").Value = "Ê1 â 1Ò" Sheets("ÃîñòèÄîìà").Range("F1").Value = "Ê2 â 1Ò" Sheets("ÃîñòèÄîìà").Range("G1").Value = "Ê1 âî 2Ò" Sheets("ÃîñòèÄîìà").Range("H1").Value = "Ê2 âî 2Ò" Sheets("ÃîñòèÄîìà").Range("I1").Value = "Ãäå èãðàëè" Sheets("ÃîñòèÃîñòè").Columns("A:I").Clear Sheets("ÃîñòèÃîñòè").Range("A1").Value = "×åìïèîíàò" Sheets("ÃîñòèÃîñòè").Range("B1").Value = "Äàòà/Âðåìÿ" Sheets("ÃîñòèÃîñòè").Range("C1").Value = "Äîìà" Sheets("ÃîñòèÃîñòè").Range("D1").Value = "Ãîñòè" Sheets("ÃîñòèÃîñòè").Range("E1").Value = "Ê1 â 1Ò" Sheets("ÃîñòèÃîñòè").Range("F1").Value = "Ê2 â 1Ò" Sheets("ÃîñòèÃîñòè").Range("G1").Value = "Ê1 âî 2Ò" Sheets("ÃîñòèÃîñòè").Range("H1").Value = "Ê2 âî 2Ò" Sheets("ÃîñòèÃîñòè").Range("I1").Value = "Ãäå èãðàëè" Sheets("Òàáëèöà").Columns("A:AC").Clear Sheets("Òàáëèöà").Range("A1").Value = "Ìåñòî" Sheets("Òàáëèöà").Range("B1").Value = "Êîìàíäà" Sheets("Òàáëèöà").Range("C1").Value = "Èãð" Sheets("Òàáëèöà").Range("D1").Value = "Âûèãðàíî" Sheets("Òàáëèöà").Range("E1").Value = "Íè÷üèõ" Sheets("Òàáëèöà").Range("F1").Value = "Ïðîèãðàíî" Sheets("Òàáëèöà").Range("G1").Value = "Çàáèòî" Sheets("Òàáëèöà").Range("H1").Value = "Ïðîïóùåíî" Sheets("Òàáëèöà").Range("I1").Value = "Î÷êîâ" Sheets("Òàáëèöà").Range("K1").Value = "Ìåñòî" Sheets("Òàáëèöà").Range("L1").Value = "Êîìàíäà" Sheets("Òàáëèöà").Range("M1").Value = "Èãð" Sheets("Òàáëèöà").Range("N1").Value = "Âûèãðàíî" Sheets("Òàáëèöà").Range("O1").Value = "Íè÷üèõ" Sheets("Òàáëèöà").Range("P1").Value = "Ïðîèãðàíî" Sheets("Òàáëèöà").Range("Q1").Value = "Çàáèòî" Sheets("Òàáëèöà").Range("R1").Value = "Ïðîïóùåíî" Sheets("Òàáëèöà").Range("S1").Value = "Î÷êîâ" Sheets("Òàáëèöà").Range("U1").Value = "Ìåñòî" Sheets("Òàáëèöà").Range("V1").Value = "Êîìàíäà" Sheets("Òàáëèöà").Range("W1").Value = "Èãð" Sheets("Òàáëèöà").Range("X1").Value = "Âûèãðàíî" Sheets("Òàáëèöà").Range("Y1").Value = "Íè÷üèõ" Sheets("Òàáëèöà").Range("Z1").Value = "Ïðîèãðàíî" Sheets("Òàáëèöà").Range("AA1").Value = "Çàáèòî" Sheets("Òàáëèöà").Range("AB1").Value = "Ïðîïóùåíî" Sheets("Òàáëèöà").Range("AC1").Value = "Î÷êîâ" Sheets("Ôîðìà").Columns("A:AC").Clear Sheets("Ôîðìà").Range("A1").Value = "Ìåñòî" Sheets("Ôîðìà").Range("B1").Value = "Êîìàíäà" Sheets("Ôîðìà").Range("C1").Value = "Èãð" Sheets("Ôîðìà").Range("D1").Value = "Âûèãðàíî" Sheets("Ôîðìà").Range("E1").Value = "Íè÷üèõ" Sheets("Ôîðìà").Range("F1").Value = "Ïðîèãðàíî" Sheets("Ôîðìà").Range("G1").Value = "Çàáèòî" Sheets("Ôîðìà").Range("H1").Value = "Ïðîïóùåíî" Sheets("Ôîðìà").Range("I1").Value = "Î÷êîâ" Sheets("Ôîðìà").Range("K1").Value = "Ìåñòî" Sheets("Ôîðìà").Range("L1").Value = "Êîìàíäà" Sheets("Ôîðìà").Range("M1").Value = "Èãð" Sheets("Ôîðìà").Range("N1").Value = "Âûèãðàíî" Sheets("Ôîðìà").Range("O1").Value = "Íè÷üèõ" Sheets("Ôîðìà").Range("P1").Value = "Ïðîèãðàíî" Sheets("Ôîðìà").Range("Q1").Value = "Çàáèòî" Sheets("Ôîðìà").Range("R1").Value = "Ïðîïóùåíî" Sheets("Ôîðìà").Range("S1").Value = "Î÷êîâ" Sheets("Ôîðìà").Range("U1").Value = "Ìåñòî" Sheets("Ôîðìà").Range("V1").Value = "Êîìàíäà" Sheets("Ôîðìà").Range("W1").Value = "Èãð" Sheets("Ôîðìà").Range("X1").Value = "Âûèãðàíî" Sheets("Ôîðìà").Range("Y1").Value = "Íè÷üèõ" Sheets("Ôîðìà").Range("Z1").Value = "Ïðîèãðàíî" Sheets("Ôîðìà").Range("AA1").Value = "Çàáèòî" Sheets("Ôîðìà").Range("AB1").Value = "Ïðîïóùåíî" Sheets("Ôîðìà").Range("AC1").Value = "Î÷êîâ" Sheets("Êîýôôèöèåíòû").Columns("A:C").Clear Sheets("Êîýôôèöèåíòû").Range("A1").Value = "Èäåíòèôèêàòîð" Sheets("Êîýôôèöèåíòû").Range("B1").Value = "Ñòàðòîâûé" Sheets("Êîýôôèöèåíòû").Range("C1").Value = "Òåêóùèé" Sheets("Ñïèñîê").Select End Sub Sub clearMain() Sheets("Ñïèñîê").Columns("A:Q").ClearContents Sheets("Ñïèñîê").Range("A1").Value = "×åìïèîíàò" Sheets("Ñïèñîê").Range("B1").Value = "Äàòà/Âðåìÿ" Sheets("Ñïèñîê").Range("C1").Value = "Äîìà" Sheets("Ñïèñîê").Range("D1").Value = "Ãîñòè" Sheets("Ñïèñîê").Range("E1").Value = "Match_ID" Sheets("Ñïèñîê").Range("F1").Value = "Country_ID" Sheets("Ñïèñîê").Range("G1").Value = "home_ID" Sheets("Ñïèñîê").Range("H1").Value = "away_ID" Sheets("Ñïèñîê").Range("I1").Value = "Çàãðóçèòü" Sheets("Ñïèñîê").Range("J1").Value = "Ê1" Sheets("Ñïèñîê").Range("K1").Value = "Ê2" Sheets("Ñïèñîê").Range("L1").Value = "Ï1 òåêóùèé" Sheets("Ñïèñîê").Range("M1").Value = "Õ òåêóùèé" Sheets("Ñïèñîê").Range("N1").Value = "Ï2 òåêóùèé" Sheets("Ñïèñîê").Range("O1").Value = "Ï1 ñòàðò" Sheets("Ñïèñîê").Range("P1").Value = "Õ ñòàðò" Sheets("Ñïèñîê").Range("Q1").Value = "Ï2 ñòàðò" Sheets("Ñïèñîê").Range("R1").Value = "Ï1 ïðîãðóç" Sheets("Ñïèñîê").Range("S1").Value = "Õ ïðîãðóç" Sheets("Ñïèñîê").Range("T1").Value = "Ï2 ïðîãðóç" Sheets("Ñïèñîê").Range("A:T").Autofilter Sheets("Ñïèñîê").Select End Sub Sub clearAll() clearParsed clearMain refreshAll End Sub Sub DelDups_OneList() Dim iListCount As Integer Dim iCtr As Integer Application.ScreenUpdating = False iListCount = Sheets("Ñïèñîê").Range("E1:E1000").Rows.Count Sheets("Ñïèñîê").Range("E1").Select Do Until ActiveCell = "" For iCtr = 1 To iListCount If ActiveCell.Row <> Sheets("Ñïèñîê").Cells(iCtr, 5).Row Then If ActiveCell.Value = Sheets("Ñïèñîê").Cells(iCtr, 5).Value Then Sheets("Ñïèñîê").Cells(iCtr, 5).EntireRow.ClearContents iCtr = iCtr + 1 End If End If Next iCtr ActiveCell.Offset(1, 0).Select Loop Sheets("Ñïèñîê").Range("A:K").Sort Key1:=Sheets("Ñïèñîê").Columns("B"), Header:=xlYes, Order1:=xlAscending Sheets("Ñïèñîê").Activate DoneExInvalidateAndCalc Sheets("Ñïèñîê").UsedRange Application.ScreenUpdating = True End Sub Sub refreshAll() Dim sFolder As String, sFiles As String, li As Long sFolder = ActiveWorkbook.Path sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator) sFiles = Dir(sFolder & "*.xlsx") Do While sFiles <> "" li = li + 1 sFiles = Dir Loop Call Show_PrBar_Or_No(li, "Îáíîâëåíèå òàáëèö...") sFiles = Dir(sFolder & "*.xlsx") Do While sFiles <> "" If bShowBar Then Call MyProgresBar Workbooks.Open Filename:=sFolder & sFiles, UpdateLinks:=True ActiveWorkbook.Close False sFiles = Dir Loop If bShowBar Then Unload frmStatusBar End Sub
Опубликовано 15 апреля, 20242 г. UNIVERS_LIGA v3.xlsm UNIVERS_LIGA v4.0.xlsm Пожалуйста, может ли кто-нибудь исправить эти файлы или есть ли у кого-нибудь рабочая версия этих файлов? Я думаю, судя по всему, у этого файла есть потенциал. перейдите по ссылке выше, чтобы скачать. DropMeFiles_9GNbx.zip
Опубликовано 16 апреля, 20242 г. Модераторы 17 часов назад, Onyeka Okoye сказал: UNIVERS_LIGA v3.xlsm UNIVERS_LIGA v4.0.xlsm Пожалуйста, может ли кто-нибудь исправить эти файлы или есть ли у кого-нибудь рабочая версия этих файлов? Я думаю, судя по всему, у этого файла есть потенциал. перейдите по ссылке выше, чтобы скачать. DropMeFiles_9GNbx.zip 32.89 MB · 20 загрузок так они рабочие. Единственное, не понятно, зачем автор убрал выбор даты и можно только текущий день подгружать, а так они рабочие...А если в ячейках пустота, так это значит нет 10 игр..например, скандинавы и латиносы у них новые чемпионаты начались и там по 5- 6 матчей сыграно всего. вот прогноз на сегодня чемпионшип..все работает прекрасно. Изменено 16 апреля, 20242 г. пользователем al88sm
Опубликовано 16 апреля, 20242 г. 10 часов назад, al88sm сказал: so they are workers. The only thing that is not clear is why the author removed the date selection and you can only load the current day, otherwise they are working... And if the cells are empty, it means there are no 10 games... for example, the Scandinavians and Latinos have started new championships there too 5-6 matches played in total. Here is the forecast for today's championship... everything works great. Я использую Excel 2019, и он показывает ошибку во время выполнения. Какой Excel вы используете или что вы сделали, чтобы он работал? Спасибо.
Опубликовано 17 апреля, 20242 г. Модераторы 8 часов назад, Onyeka Okoye сказал: Я использую Excel 2019, и он показывает ошибку во время выполнения. Какой Excel вы используете или что вы сделали, чтобы он работал? Спасибо. возможно не в эксель дело, а в провайдере..некоторые сайты блочатся.
Опубликовано 17 апреля, 20242 г. Всем доброго утра возможно починить таблицу не загружает резы и не все игры качает Заранее спасибо ElizaBet-DeLuxeGold_V4(KA) (1).xlsm
Опубликовано 17 апреля, 20242 г. 2 часа назад, Gab сказал: Всем доброго утра возможно починить таблицу не загружает резы и не все игры качает Заранее спасибо ElizaBet-DeLuxeGold_V4(KA) (1).xlsm 9.5 MB · 5 загрузок почисти експлорер
Опубликовано 17 апреля, 20242 г. 2 минуты назад, alexina152 сказал: После очистки у вас грузит результаты с livescore.in/ru ?
Опубликовано 17 апреля, 20242 г. 2 минуты назад, Андрей сказал: А такой скрин можно? нет пока загружает матчи
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.
Примечание: Ваш пост будет проверен модератором, прежде чем станет видимым.