Опубликовано 13 сентября, 20241 г. 45 минут назад, Василий Ярандаев сказал: Всем доброй ночи или у кого утро.Может кто возратить таблицу к работе ? Таблица отличная проход первые тайм и тотал 1,5 . Quartz CoteBet 2024.xlsb 1.22 MB · 0 загрузок Держи! Парсинг с первого сайта Quartz CoteBet (1).xlsb
Опубликовано 13 сентября, 20241 г. Постоянный 54 минуты назад, Hacker сказал: Держи! Парсинг с первого сайта Quartz CoteBet (1).xlsb 2.12 MB · 1 загрузка Странно, загрузил игры, а счета уже есть, хотя они не сыграны + архив не работает.
Опубликовано 13 сентября, 20241 г. она с ошибкой 11 минут назад, KAISER сказал: Странно, загрузил игры, а счета уже есть, хотя они не сыграны + архив не работает. она с ошибкой у меня тоже самое
Опубликовано 14 сентября, 20241 г. Quartz CoteBet; excel sekme isimlerinde hatalar mevcuttu. LISTING ve ARCHIVA gibi. Sayfaları bulamadığı için kotlar çalışmıyordu. Excel sekme isimlerini değiştirdiğiniz zaman, gidip ALT+F11 den de kot içindeki isimleri de değişmeniz gerekiyor. Şimdi düzelttim, bugünün bültenini çekip forum sayfasında paylaşacağım. Kusura bakmayın google translate kullandım. Tüm kuponlarımız yeşil olsun :)))
Опубликовано 14 сентября, 20241 г. Tüm kuponlarımız yeşil olsun :))) Fix_Quartz CoteBet_14.09.24.xlsb
Опубликовано 14 сентября, 20241 г. Ребят может кто нибудь подчинить данную табличку? Готов отблагодарить. DeluX_plus+(Mod 24.02.2024).xlsm
Опубликовано 15 сентября, 20241 г. Постоянный В 14.09.2024 в 19:21, igorek сказал: Ребят может кто нибудь подчинить данную табличку? Готов отблагодарить. DeluX_plus+(Mod 24.02.2024).xlsm 2.37 MB · 17 загрузок Что с ней не так? Вроде всё работает.
Опубликовано 16 сентября, 20241 г. 7 часов назад, KAISER сказал: Что с ней не так? Вроде всё работает. Да уже заметил, она в пятницу и в субботу не грузила матчи, но там многие таблицы не работали, походу сбой на сайте какой то был.
Опубликовано 16 сентября, 20241 г. В 14.09.2024 в 03:54, Василий Ярандаев сказал: Всем доброй ночи или у кого утро.Может кто возратить таблицу к работе ? Таблица отличная проход первые тайм и тотал 1,5 . Quartz CoteBet 2024.xlsb 1.22 MB · 11 загрузок Доброго всем денечка! Присоединяюсь к просьбе,помогите добрые люди починить,грузит матчи но почему то уже с исходами
Опубликовано 16 сентября, 20241 г. В 11.09.2024 в 20:37, Валерий Иванович сказал: Можно или нет - на это что бы ответить, нужно сначала указать какую статистику хотите там видеть? 1. Матчи 5 и 15 есть уже в программе, осталось понять, чтобы они выводились сразу в таблицу, рядом с кф *(в рассчеты). 2. Очные матчи (их в стате вообще нет , программа их не парсит ) - 2.1 отдельно очные встречи 5 минимум общие и строгое - 5 матчей очных - для тех кто дома играет. 3. Добавить функции рассчета (это уже сть формулы, если 1и 2 критерий будет, смогу вписать и показать , что получается. 4. аналогично для очных тоже сделать можно. 5. И если возможно (пока читаю, не нашел ответа - идет к примеру лайв - по лайв отбирать, от счета).
Опубликовано 16 сентября, 20241 г. !InfinityBook.xlsm Подскажите, пожалуйста, можно ли разработать эту программу?
Опубликовано 16 сентября, 20241 г. Постоянный 5 часов назад, Bahodir Quchqorov сказал: !InfinityBook.xlsm Подскажите, пожалуйста, можно ли разработать эту программу? Она есть в программе от фарела.
Опубликовано 17 сентября, 20241 г. В 13.09.2024 в 22:54, Василий Ярандаев сказал: Всем доброй ночи или у кого утро.Может кто возратить таблицу к работе ? Таблица отличная проход первые тайм и тотал 1,5 . Quartz CoteBet 2024.xlsb 1.22 MB · 11 загрузок Привет Василий. Может поделишься какими фильтрами (настройками) находишь тоталы на 1,5 ?
Опубликовано 18 сентября, 20241 г. Постоянный Кто-нибудь сталкивался с такой проблемкой? ))) Как от этого избавится? Заголовки cтолбцов C и D сменили привычное название 😆 Изменено 18 сентября, 20241 г. пользователем Валерий Иванович
Опубликовано 18 сентября, 20241 г. Постоянный Гениальные куски кода от 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 сентября, 20241 г. пользователем Валерий Иванович
Опубликовано 18 сентября, 20241 г. Добрый вечер Валерий Иванович. По моему Вы сделали в этой таблице АРХИВ рабочим. Почему-то не возможно стало архивировать отфильтрованное. А так удобно было. Конечно можно скрины делать , но уже не то. Спасибо заранее. FC+BETON 18.09.xlsb Изменено 18 сентября, 20241 г. пользователем Mayson7
Опубликовано 18 сентября, 20241 г. 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 сентября, 20241 г. пользователем SergioJek
Опубликовано 18 сентября, 20241 г. В 16.09.2024 в 20:01, KAISER сказал: Она есть в программе от фарела. а можно прогу фарела?)
Опубликовано 19 сентября, 20241 г. 14 часов назад, SergioJek сказал: ' Определяем целевой лист в зависимости от активного листа Dim ActiveSheet As Long 'Запись данных в целевой лист Ай-яй-яй🙃 Эта строчка - точно лишняя!
Опубликовано 19 сентября, 20241 г. 1 час назад, Apostroff сказал: Ай-яй-яй🙃 Эта строчка - точно лишняя! Согласен Изменено 19 сентября, 20241 г. пользователем SergioJek
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.
Примечание: Ваш пост будет проверен модератором, прежде чем станет видимым.