Statiko 0 Опубликовано 15 января Поделиться Опубликовано 15 января 21 минуту назад, Statiko сказал: Добрый день. помогите с починкой пожалуйста. сам чет там наделал щяс ваще серая табличка вылазит HOCKEY form_poison.xlsm 929.22 kB · 3 загрузки Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519142 Поделиться на другие сайты Поделиться
darkmen 0 Опубликовано 15 января Поделиться Опубликовано 15 января Здравствуйте отремонтируйте пожалуйста эту таблу FOOTBALL_ElizaBET_PRO_BET_PLUS_PRO_BETON_обн_от_10_01_2025.xlsb Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519143 Поделиться на другие сайты Поделиться
climionutz 0 Опубликовано 15 января Поделиться Опубликовано 15 января Только что, darkmen сказал: Salut, te rog să repari această placă. FOTBAL_ElizaBET_PRO_BET_PLUS_PRO_BETON_actualizat_din_10_01_2025.xlsb 769,52 kB · 0 descărcări ElizaBet-DeLuxeGold_V4.xlsm Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519144 Поделиться на другие сайты Поделиться
Statiko 0 Опубликовано 15 января Поделиться Опубликовано 15 января (изменено) 3 минуты назад, darkmen сказал: Здравствуйте отремонтируйте пожалуйста эту таблу FOOTBALL_ElizaBET_PRO_BET_PLUS_PRO_BETON_обн_от_10_01_2025.xlsb 769.52 kB · 0 загрузок Дак вот же она рабочая человек починил Изменено 15 января пользователем Statiko Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519145 Поделиться на другие сайты Поделиться
darkmen 0 Опубликовано 15 января Поделиться Опубликовано 15 января (изменено) 5 минут назад, Statiko сказал: Дак вот же она рабочая человек починил спасибо Изменено 15 января пользователем darkmen Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519146 Поделиться на другие сайты Поделиться
darkmen 0 Опубликовано 15 января Поделиться Опубликовано 15 января 6 минут назад, Statiko сказал: Дак вот же она рабочая человек починил все равно у меня не работает,чуть подумает и пишет готово а матчи не загружает Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519147 Поделиться на другие сайты Поделиться
Onyeka Okoye 3 Опубликовано 15 января Поделиться Опубликовано 15 января 1 час назад, Nazarnineangels сказал: Everyone wants everything for free. If you were more active on the forum, you would have been helped long ago. Well thank you for your reply God bless you Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519149 Поделиться на другие сайты Поделиться
Onyeka Okoye 3 Опубликовано 15 января Поделиться Опубликовано 15 января 1 час назад, Валерий Иванович сказал: I apologize, of course, but I’m not a personal repeater to show everyone something in your tables that needs to be done. Video will not help you in any way if you have a different table. The instructions will be one, you will do the other - you won’t figure it out again, and questions will remain again. I showed the general instructions on how to quickly solve this problem regarding parser querying a site, that’s all. Although the tables are all different, in all they have the same request, so the general instruction will work. Thank you so much but i tried mine with the exact instruction you gave but it didnt work. But thank you for your time and effort. Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519150 Поделиться на другие сайты Поделиться
Валерий Иванович 682 Опубликовано 15 января Поделиться Опубликовано 15 января 12 часов назад, Валерий Иванович сказал: Старый тип ссылок типо этого: https://d." & sourcer & "x/feed/ Замените на такой: https://2002.flashscore.ninja/2002/x/feed/ Цифры (2002) в ссылке определяют домен сайта и его язык. Посмотреть можно на самом сайте (откуда парсите данные), в вкладке Network -> Fetch\XHR. Вот примеры: Case 5: sourcer = "soccer24.com/": suffix = "_en_2": fid = "100": sid = "100" Case 6: sourcer = "soccer24.com/ru/": suffix = "_ru_2": fid = "100": sid = "1023" Полный вид готовой ссылки: Call Download_site("https://" & fid & ".flashscore.ninja/" & sid & "/x/feed/f_1_" & dayzone & "_" & timezone & suffix, fs_input) Нашелся еще 1 альтернативный вариант починить таблицы: Старый тип ссылок типо этого: https://d." & sourcer & "x/feed/ Заменить на такой: https://www." & sourcer & "x/feed/ Суть в том, что бы заменить "d" на "www" ) 1 Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519151 Поделиться на другие сайты Поделиться
darkmen 0 Опубликовано 15 января Поделиться Опубликовано 15 января а где найти то это что бы поменять,сорян я не такой уж и продвинутый пользователь Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519152 Поделиться на другие сайты Поделиться
Onyeka Okoye 3 Опубликовано 15 января Поделиться Опубликовано 15 января 16 часов назад, SergioJek сказал: The fix there is extremely simple. Remove d. Was: "https://d." & sourcer & "x/feed/f_3_" & dayzone & "_" & timezone & suffix Must be: "https://www." & sourcer & "feed/f_3_" & dayzone & "_" & timezone & suffix Sub getMS() Application.ScreenUpdating = False Application.Calculation = xlManual Application.EnableEvents = False Application.StatusBar = False clearParsed clearMain Worksheets("Accueil").Range("v5:v3000") = "" Call Settings a = 2 'Get Matches Set http = CreateObject("MSXML2.XMLHTTP") "https://d." & sourcer & "x/feed/f_3_" & dayzone & "_" & timezone & suffix http.setRequestHeader "X-Fsign", "SW9D1eZo" http.send fs_input = http.responseText fs_rows = Split(fs_input, "~") fs_rows_length = UBound(fs_rows) - LBound(fs_rows) Call Show_PrBar_Or_No(fs_rows_length, "Get Matches...") For i = 0 To fs_rows_length - 4 If bShowBar Then Call MyProgresBar fs_row = Split(fs_rows(i), "¬") fs_row_length = UBound(fs_row) - LBound(fs_row) fs_index = Split(fs_row(0), ChrW(&HF7)) If IsArray(fs_index) Then fs_index_name = fs_index(0) fs_index_value = fs_index(1) End If If fs_index_name = "SA" Then sport_id = fs_index_value ElseIf fs_index_name = "ZA" Then tour_name = "" home_name = "" For j = 0 To fs_row_length - 1 fs_row_parts = Split(fs_row(j), ChrW(&HF7)) If fs_row_parts(0) = "ZA" Then tour_name = fs_row_parts(1) If fs_row_parts(0) = "ZB" Then country_id = fs_row_parts(1) If fs_row_parts(0) = "ZC" Then tour_id = fs_row_parts(1) Next j ElseIf fs_index_name = "AA" Then home_name = "": home_scored_first = "": away_scored_first = "": home_scored_second = "": away_scored_second = "" For j = 0 To fs_row_length - 1 fs_row_parts = Split(fs_row(j), ChrW(&HF7)) If fs_row_parts(0) = "AA" Then match_id = fs_row_parts(1) If fs_row_parts(0) = "AD" Then date_match = DateAdd("s", fs_row_parts(1), "01/01/1970") date_match = DateAdd("h", timezone, date_match) date_match = Format(date_match, "yyyy.mm.dd hh:mm") End If If fs_row_parts(0) = "AE" Then home_name = fs_row_parts(1) If fs_row_parts(0) = "AF" Then away_name = fs_row_parts(1) If fs_row_parts(0) = "AB" Then status_game = fs_row_parts(1) If fs_row_parts(0) = "AC" Then status_game_code = fs_row_parts(1) If fs_row_parts(0) = "AT" Then home_scored_first = fs_row_parts(1) If fs_row_parts(0) = "AU" Then away_scored_first = fs_row_parts(1) If fs_row_parts(0) = "BC" Then home_scored_second = fs_row_parts(1) If fs_row_parts(0) = "BD" Then away_scored_second = fs_row_parts(1) Next j Call getScoreHT(home_scored_first, away_scored_first, home_scored_second, away_scored_second) If tour_name = "" Or home_name = "" Then Else Set objRegExp = CreateObject("VBScript.RegExp") objRegExp.Pattern = "\s\(...\)" home_name = objRegExp.Replace(home_name, "") away_name = objRegExp.Replace(away_name, "") Sheets("Accueil").Range("A" & a).Value = tour_name Sheets("Accueil").Range("B" & a).Value = date_match Sheets("Accueil").Range("C" & a).Value = home_name Sheets("Accueil").Range("D" & a).Value = away_name Sheets("Accueil").Range("E" & a).Value = match_id Sheets("Accueil").Range("F" & a).Value = country_id If status_game = 3 And (status_game_code = 3 Or status_game_code = 10 Or status_game_code = 11) Then Sheets("Accueil").Range("J" & a).NumberFormat = "@": Sheets("Accueil").Range("J" & a).Font.Bold = True Sheets("Accueil").Range("J" & a).Value = (Val(home_scored_first) + Val(home_scored_second)) & " : " & (Val(away_scored_first) + Val(away_scored_second)) Sheets("Accueil").Range("K" & a).NumberFormat = "@" Sheets("Accueil").Range("K" & a).Value = home_scored_first & " : " & away_scored_first End If Sheets("Accueil").Hyperlinks.Add Anchor:=Sheets("Accueil").Range("I" & a), Address:="", TextToDisplay:="Analyse Match" Sheets("Accueil").Range("U" & a).Value = tour_id a = a + 1 End If End If Next i If bShowBar Then Unload frmStatusBar Sheets("Accueil").Range("A:U").Sort Key1:=Sheets("Accueil").Columns("B"), Header:=xlYes, Order1:=xlAscending 'Get Odds Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", "http://d." & sourcer & "x/feed/fo_1_" & dayzone & "_" & timezone & suffix & "_0", False http.setRequestHeader "X-Fsign", "SW9D1eZo" http.send fs_input = http.responseText fs_rows = Split(fs_input, "~") fs_rows_length = UBound(fs_rows) - LBound(fs_rows) Call Show_PrBar_Or_No(fs_rows_length, "Get Odds...") For i = 0 To fs_rows_length - 4 If bShowBar Then Call MyProgresBar fs_row = Split(fs_rows(i), "¬") fs_row_length = UBound(fs_row) - LBound(fs_row) fs_index = Split(fs_row(0), ChrW(&HF7)) If IsArray(fs_index) Then fs_index_name = fs_index(0) fs_index_value = fs_index(1) End If If fs_index_name = "AA" Then home_name = "": start_home = 0: start_draw = 0: start_away = 0: current_home = 0: current_draw = 0: current_away = 0 For j = 0 To fs_row_length - 1 fs_row_parts = Split(fs_row(j), ChrW(&HF7)) If fs_row_parts(0) = "AA" Then match_id = fs_row_parts(1) If fs_row_parts(0) = "XA" Then start_home = fs_row_parts(1) If fs_row_parts(0) = "XB" Then start_draw = fs_row_parts(1) If fs_row_parts(0) = "XC" Then start_away = fs_row_parts(1) If fs_row_parts(0) = "YA" Then current_home = fs_row_parts(1) If fs_row_parts(0) = "YB" Then current_draw = fs_row_parts(1) If fs_row_parts(0) = "YC" Then current_away = fs_row_parts(1) Next j If match_id = "" Then Else If start_home > 0 Then On Error Resume Next Set rFndRng = Sheets("Accueil").Columns("E").Find(match_id, , xlValues, xlWhole) rFndRng.Offset(, 7).Value = start_home rFndRng.Offset(, 8).Value = start_draw rFndRng.Offset(, 9).Value = start_away rFndRng.Offset(, 10).Value = current_home rFndRng.Offset(, 11).Value = current_draw rFndRng.Offset(, 12).Value = current_away End If End If End If Next i If bShowBar Then Unload frmStatusBar Application.ScreenUpdating = True Application.Calculation = xlAutomatic Application.EnableEvents = True Application.StatusBar = True Range("i1").Select Worksheets("Accueil").Range("v2:v2000") = Range("i2:i2000").Value Sheets("Accueil").Select End Sub Sub getGame(id As String) Application.ScreenUpdating = False Application.Calculation = xlManual Application.EnableEvents = False Application.StatusBar = False Sheets("Accueil").Range("Y1").Value = id numberS = Sheets("Accueil").Range("R2").Value Call Settings clearParsed 'Get Teams ID Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP") oXMLHTTP.Open "GET", "https://www." & sourcer & "match/" & id & "/", False oXMLHTTP.send response = oXMLHTTP.responseText Set oRegExp = CreateObject("VBScript.RegExp"): oRegExp.Global = True: oRegExp.MultiLine = True 'oRegExp.Pattern = "participantEncodedIds = \[\'(.*)\',\'(.*)\'\]" oRegExp.Pattern = """id"":\""(\w\w\w\w\w\w\w\w)\""" If oRegExp.Test(response) = True Then Set oMatches = oRegExp.Execute(response) ActiveCell.Offset(, -2).Value = oMatches.Item(0).submatches(0) ActiveCell.Offset(, -1).Value = oMatches.Item(1).submatches(0) participantEncodedIds1 = oMatches.Item(0).submatches(0) participantEncodedIds2 = oMatches.Item(1).submatches(0) country_id = ActiveCell.Offset(, -3).Value End If 'oRegExp.Pattern = "tournamentStageEncodedId = \'(.*?)\'" oRegExp.Pattern = """tournamentStage"":\""(\w\w\w\w\w\w\w\w)\""" If oRegExp.Test(response) = True Then Set oMatches = oRegExp.Execute(response) tournamentStageEncodedId = oMatches.Item(0).submatches(0) End If 'oRegExp.Pattern = "tournamentEncodedId = \'(.*?)\'" oRegExp.Pattern = """tournament"":\""(\w\w\w\w\w\w\w\w)\""" If oRegExp.Test(response) = True Then Set oMatches = oRegExp.Execute(response) tournamentEncodedId = oMatches.Item(0).submatches(0) End If rowindx = 2 'Get H2H temp_hh = 0: temp_hh1 = 0 Sheets("Totalconfrontation").Range("A1").Value = ActiveCell.Offset(, -6).Value Sheets("Totalconfrontation").Range("B1").Value = ActiveCell.Offset(, -5).Value Sheets("confrontation").Range("A1").Value = ActiveCell.Offset(, -6).Value Sheets("confrontation").Range("B1").Value = ActiveCell.Offset(, -5).Value Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP") oXMLHTTP.Open "GET", "https://d." & sourcer & "x/feed/df_hh_1_" & id & suffix, False oXMLHTTP.setRequestHeader "X-Fsign", "SW9D1eZo" oXMLHTTP.send response = oXMLHTTP.responseText Set objRegExp = CreateObject("VBScript.RegExp") fs_rows = Split(response, "~"): fs_rows_length = UBound(fs_rows) - LBound(fs_rows) Call Show_PrBar_Or_No(fs_rows_length, "Get H2H...") For i = 0 To fs_rows_length - 3 If bShowBar Then Call MyProgresBar fs_row = Split(fs_rows(i), "¬"): fs_row_length = UBound(fs_row) - LBound(fs_row): fs_index = Split(fs_row(0), ChrW(&HF7)) If IsArray(fs_index) Then: fs_index_name = fs_index(0): fs_index_value = fs_index(1) If fs_index_name = "KA" Then temp_hh = temp_hh + 1 ElseIf fs_index_name = "KB" Then temp_hh1 = temp_hh1 + 1 ElseIf temp_hh = 1 And temp_hh1 = 3 Then For j = 0 To fs_row_length - 1 fs_row_parts = Split(fs_row(j), ChrW(&HF7)) Select Case fs_row_parts(0) Case "KP": match_id = fs_row_parts(1) Case "KH": tour_name1 = fs_row_parts(1) Case "KF": tour_name2 = fs_row_parts(1) Case "KC": date_match = DateAdd("s", fs_row_parts(1), "01/01/1970") date_match = DateAdd("h", timezone, date_match) date_match = Format(date_match, "yyyy.mm.dd hh:mm") Case "KJ": home_name = fs_row_parts(1) Case "KK": away_name = fs_row_parts(1) Case "KU": home_score = fs_row_parts(1) Case "KT": away_score = fs_row_parts(1) End Select Next j If match_id <> id Then tour_name = tour_name1 & ": " & tour_name2 home_name = Replace(home_name, "*", "") away_name = Replace(away_name, "*", "") hh_m = Array(tour_name, date_match, home_name, away_name, home_score, away_score) Sheets("Totalconfrontation").Range("A" & rowindx & ":F" & rowindx).Value = hh_m If home_name = Sheets("Totalconfrontation").Range("A1").Value Then: Sheets("confrontation").Range("A" & rowindx & ":F" & rowindx).Value = hh_m rowindx = rowindx + 1 End If End If Next i If bShowBar Then Unload frmStatusBar Sheets("Totalconfrontation").Range("A:F").Sort Key1:=Sheets("Totalconfrontation").Columns("B"), Header:=xlYes, Order1:=xlDescending Sheets("confrontation").Range("A:F").Sort Key1:=Sheets("confrontation").Columns("B"), Header:=xlYes, Order1:=xlDescending rowindx = 2 'Get Home Matches Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP") oXMLHTTP.Open "GET", "https://d." & sourcer & "x/feed/pr_1_" & country_id & "_" & participantEncodedIds1 & "_0_0" & suffix, False oXMLHTTP.setRequestHeader "X-Fsign", "SW9D1eZo" oXMLHTTP.send response = oXMLHTTP.responseText fs_rows = Split(response, "~") fs_rows_length = UBound(fs_rows) - LBound(fs_rows) Call Show_PrBar_Or_No(fs_rows_length, "Get Home Matches...") For i = 0 To fs_rows_length - 4 If bShowBar Then Call MyProgresBar fs_row = Split(fs_rows(i), "¬") fs_row_length = UBound(fs_row) - LBound(fs_row) fs_index = Split(fs_row(0), ChrW(&HF7)) If IsArray(fs_index) Then fs_index_name = fs_index(0) fs_index_value = fs_index(1) End If If fs_index_name = "SA" Then sport_id = fs_index_value ElseIf fs_index_name = "ZA" Then tour_name = "" home_name = "" For j = 0 To fs_row_length - 1 fs_row_parts = Split(fs_row(j), ChrW(&HF7)) If fs_row_parts(0) = "ZA" Then tour_name = fs_row_parts(1) If fs_row_parts(0) = "ZB" Then country_id = fs_row_parts(1) If fs_row_parts(0) = "ZC" Then tour_id = fs_row_parts(1) Next j ElseIf fs_index_name = "AA" Then home_name = "" For j = 0 To fs_row_length - 1 fs_row_parts = Split(fs_row(j), ChrW(&HF7)) If fs_row_parts(0) = "AA" Then match_id = fs_row_parts(1) If fs_row_parts(0) = "AD" Then date_match = DateAdd("s", fs_row_parts(1), "01/01/1970") date_match = DateAdd("h", timezone, date_match) date_match = Format(date_match, "yyyy.mm.dd hh:mm") End If If fs_row_parts(0) = "AA" Then idios = fs_row_parts(1) If fs_row_parts(0) = "AE" Then home_name = fs_row_parts(1) If fs_row_parts(0) = "AF" Then away_name = fs_row_parts(1) If fs_row_parts(0) = "AT" Then home_first = fs_row_parts(1) If fs_row_parts(0) = "AU" Then away_first = fs_row_parts(1) If fs_row_parts(0) = "BC" Then home_second = fs_row_parts(1) If fs_row_parts(0) = "BD" Then away_second = fs_row_parts(1) If fs_row_parts(0) = "PX" Then participantEncodedIds12 = fs_row_parts(1) Next j Call getScoreHT(home_first, away_first, home_second, away_second) If fs_index_value = id Then home_name = "" If tour_name = "" Or home_name = "" Then Else Set oRegExp = CreateObject("VBScript.RegExp") oRegExp.Pattern = "\s\(...\)" home_name = oRegExp.Replace(home_name, "") away_name = oRegExp.Replace(away_name, "") Sheets("Home").Range("A" & rowindx).Value = tour_name Sheets("Home").Range("B" & rowindx).Value = date_match Sheets("Home").Range("C" & rowindx).Value = home_name Sheets("Home").Range("D" & rowindx).Value = away_name Sheets("Home").Range("E" & rowindx).Value = home_first Sheets("Home").Range("F" & rowindx).Value = away_first Sheets("Home").Range("G" & rowindx).Value = home_second Sheets("Home").Range("H" & rowindx).Value = away_second If participantEncodedIds12 = participantEncodedIds1 Then Sheets("Home").Range("I" & rowindx).Value = "Äîìà" Sheets("HomeHome").Range("A" & rowindx).Value = tour_name Sheets("HomeHome").Range("B" & rowindx).Value = date_match Sheets("HomeHome").Range("C" & rowindx).Value = home_name Sheets("HomeHome").Range("D" & rowindx).Value = away_name Sheets("HomeHome").Range("E" & rowindx).Value = home_first Sheets("HomeHome").Range("F" & rowindx).Value = away_first Sheets("HomeHome").Range("G" & rowindx).Value = home_second Sheets("HomeHome").Range("H" & rowindx).Value = away_second Sheets("HomeHome").Range("I" & rowindx).Value = "Äîìà" Else Sheets("Home").Range("I" & rowindx).Value = "Ãîñòè" Sheets("HomeAway").Range("A" & rowindx).Value = tour_name Sheets("HomeAway").Range("B" & rowindx).Value = date_match Sheets("HomeAway").Range("C" & rowindx).Value = home_name Sheets("HomeAway").Range("D" & rowindx).Value = away_name Sheets("HomeAway").Range("E" & rowindx).Value = home_first Sheets("HomeAway").Range("F" & rowindx).Value = away_first Sheets("HomeAway").Range("G" & rowindx).Value = home_second Sheets("HomeAway").Range("H" & rowindx).Value = away_second Sheets("HomeAway").Range("I" & rowindx).Value = "Ãîñòè" End If rowindx = rowindx + 1 End If End If Next i If bShowBar Then Unload frmStatusBar Sheets("Home").Range("A:I").Sort Key1:=Sheets("Home").Columns("B"), Header:=xlYes, Order1:=xlDescending Sheets("HomeHome").Range("A:I").Sort Key1:=Sheets("HomeHome").Columns("B"), Header:=xlYes, Order1:=xlDescending Sheets("HomeAway").Range("A:I").Sort Key1:=Sheets("HomeAway").Columns("B"), Header:=xlYes, Order1:=xlDescending rowindx = 2 'Get Away Macthes Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP") oXMLHTTP.Open "GET", "https://d." & sourcer & "x/feed/pr_1_" & country_id & "_" & participantEncodedIds2 & "_0_0" & suffix, False oXMLHTTP.setRequestHeader "X-Fsign", "SW9D1eZo" oXMLHTTP.send response = oXMLHTTP.responseText fs_rows = Split(response, "~") fs_rows_length = UBound(fs_rows) - LBound(fs_rows) Call Show_PrBar_Or_No(fs_rows_length, "Get Away Macthes...") For i = 0 To fs_rows_length - 4 If bShowBar Then Call MyProgresBar fs_row = Split(fs_rows(i), "¬") fs_row_length = UBound(fs_row) - LBound(fs_row) fs_index = Split(fs_row(0), ChrW(&HF7)) If IsArray(fs_index) Then fs_index_name = fs_index(0) fs_index_value = fs_index(1) End If If fs_index_name = "SA" Then sport_id = fs_index_value ElseIf fs_index_name = "ZA" Then tour_name = "" home_name = "" For j = 0 To fs_row_length - 1 fs_row_parts = Split(fs_row(j), ChrW(&HF7)) If fs_row_parts(0) = "ZA" Then tour_name = fs_row_parts(1) If fs_row_parts(0) = "ZB" Then country_id = fs_row_parts(1) If fs_row_parts(0) = "ZC" Then tour_id = fs_row_parts(1) Next j ElseIf fs_index_name = "AA" Then home_name = "" For j = 0 To fs_row_length - 1 fs_row_parts = Split(fs_row(j), ChrW(&HF7)) If fs_row_parts(0) = "AA" Then match_id = fs_row_parts(1) If fs_row_parts(0) = "AD" Then date_match = DateAdd("s", fs_row_parts(1), "01/01/1970") date_match = DateAdd("h", timezone, date_match) date_match = Format(date_match, "yyyy.mm.dd hh:mm") End If If fs_row_parts(0) = "AA" Then idios = fs_row_parts(1) If fs_row_parts(0) = "AE" Then home_name = fs_row_parts(1) If fs_row_parts(0) = "AF" Then away_name = fs_row_parts(1) If fs_row_parts(0) = "AT" Then home_first = fs_row_parts(1) If fs_row_parts(0) = "AU" Then away_first = fs_row_parts(1) If fs_row_parts(0) = "BC" Then home_second = fs_row_parts(1) If fs_row_parts(0) = "BD" Then away_second = fs_row_parts(1) If fs_row_parts(0) = "PY" Then participantEncodedIds22 = fs_row_parts(1) Next j Call getScoreHT(home_first, away_first, home_second, away_second) If fs_index_value = id Then home_name = "" If tour_name = "" Or home_name = "" Then Else Set oRegExp = CreateObject("VBScript.RegExp") oRegExp.Pattern = "\s\(...\)" home_name = oRegExp.Replace(home_name, "") away_name = oRegExp.Replace(away_name, "") Sheets("Away").Range("A" & rowindx).Value = tour_name Sheets("Away").Range("B" & rowindx).Value = date_match Sheets("Away").Range("C" & rowindx).Value = home_name Sheets("Away").Range("D" & rowindx).Value = away_name Sheets("Away").Range("E" & rowindx).Value = home_first Sheets("Away").Range("F" & rowindx).Value = away_first Sheets("Away").Range("G" & rowindx).Value = home_second Sheets("Away").Range("H" & rowindx).Value = away_second If participantEncodedIds22 = participantEncodedIds2 Then Sheets("Away").Range("I" & rowindx).Value = "Ãîñòè" Sheets("AwayAway").Range("A" & rowindx).Value = tour_name Sheets("AwayAway").Range("B" & rowindx).Value = date_match Sheets("AwayAway").Range("C" & rowindx).Value = home_name Sheets("AwayAway").Range("D" & rowindx).Value = away_name Sheets("AwayAway").Range("E" & rowindx).Value = home_first Sheets("AwayAway").Range("F" & rowindx).Value = away_first Sheets("AwayAway").Range("G" & rowindx).Value = home_second Sheets("AwayAway").Range("H" & rowindx).Value = away_second Sheets("AwayAway").Range("I" & rowindx).Value = "Ãîñòè" Else Sheets("Away").Range("I" & rowindx).Value = "Äîìà" Sheets("AwayHome").Range("A" & rowindx).Value = tour_name Sheets("AwayHome").Range("B" & rowindx).Value = date_match Sheets("AwayHome").Range("C" & rowindx).Value = home_name Sheets("AwayHome").Range("D" & rowindx).Value = away_name Sheets("AwayHome").Range("E" & rowindx).Value = home_first Sheets("AwayHome").Range("F" & rowindx).Value = away_first Sheets("AwayHome").Range("G" & rowindx).Value = home_second Sheets("AwayHome").Range("H" & rowindx).Value = away_second Sheets("AwayHome").Range("I" & rowindx).Value = "Äîìà" End If rowindx = rowindx + 1 End If End If Next i If bShowBar Then Unload frmStatusBar Sheets("Away").Range("A:I").Sort Key1:=Sheets("Away").Columns("B"), Header:=xlYes, Order1:=xlDescending Sheets("AwayHome").Range("A:I").Sort Key1:=Sheets("AwayHome").Columns("B"), Header:=xlYes, Order1:=xlDescending Sheets("AwayAway").Range("A:I").Sort Key1:=Sheets("AwayAway").Columns("B"), Header:=xlYes, Order1:=xlDescending b1 = 2 standings = getTable(id, sourcer, "table_overall") For Each submatches In standings If IsEmpty(submatches) Then Exit For ThisWorkbook.Sheets("Table").Range("A" & b1).Value = submatches(0) ThisWorkbook.Sheets("Table").Range("B" & b1).Value = submatches(3) ThisWorkbook.Sheets("Table").Range("C" & b1).Value = submatches(6) ThisWorkbook.Sheets("Table").Range("D" & b1).Value = submatches(9) ThisWorkbook.Sheets("Table").Range("E" & b1).Value = submatches(12) ThisWorkbook.Sheets("Table").Range("F" & b1).Value = submatches(15) ThisWorkbook.Sheets("Table").Range("G" & b1).Value = submatches(18) ThisWorkbook.Sheets("Table").Range("H" & b1).Value = submatches(19) ThisWorkbook.Sheets("Table").Range("I" & b1).Value = submatches(25) b1 = b1 + 1 Next submatches b1 = 2 standings = getTable(id, sourcer, "table_home") For Each submatches In standings If IsEmpty(submatches) Then Exit For ThisWorkbook.Sheets("Table").Range("K" & b1).Value = submatches(0) ThisWorkbook.Sheets("Table").Range("L" & b1).Value = submatches(3) ThisWorkbook.Sheets("Table").Range("M" & b1).Value = submatches(6) ThisWorkbook.Sheets("Table").Range("N" & b1).Value = submatches(9) ThisWorkbook.Sheets("Table").Range("O" & b1).Value = submatches(12) ThisWorkbook.Sheets("Table").Range("P" & b1).Value = submatches(15) ThisWorkbook.Sheets("Table").Range("Q" & b1).Value = submatches(18) ThisWorkbook.Sheets("Table").Range("R" & b1).Value = submatches(19) ThisWorkbook.Sheets("Table").Range("S" & b1).Value = submatches(25) b1 = b1 + 1 Next submatches b1 = 2 standings = getTable(id, sourcer, "table_away") For Each submatches In standings If IsEmpty(submatches) Then Exit For ThisWorkbook.Sheets("Table").Range("U" & b1).Value = submatches(0) ThisWorkbook.Sheets("Table").Range("V" & b1).Value = submatches(3) ThisWorkbook.Sheets("Table").Range("W" & b1).Value = submatches(6) ThisWorkbook.Sheets("Table").Range("X" & b1).Value = submatches(9) ThisWorkbook.Sheets("Table").Range("Y" & b1).Value = submatches(12) ThisWorkbook.Sheets("Table").Range("Z" & b1).Value = submatches(15) ThisWorkbook.Sheets("Table").Range("AA" & b1).Value = submatches(18) ThisWorkbook.Sheets("Table").Range("AB" & b1).Value = submatches(19) ThisWorkbook.Sheets("Table").Range("AC" & b1).Value = submatches(25) b1 = b1 + 1 Next submatches Application.ScreenUpdating = True Application.Calculation = xlAutomatic Application.EnableEvents = True Application.StatusBar = True Call getOdds(id) Sheets("Mill(Base)").Select Application.ScreenUpdating = True End Sub. This is my own code please can you take a look at it. Thank you Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519153 Поделиться на другие сайты Поделиться
Валерий Иванович 682 Опубликовано 15 января Поделиться Опубликовано 15 января (изменено) 34 минуты назад, darkmen сказал: а где найти то это что бы поменять,сорян я не такой уж и продвинутый пользователь Откройте свой файл excel -> Нажмите alt+F11 (откроется режим разработчика) -> После открытия режима, нажмите на любой файл в категории Module и нажмите ctrl+f (откроется окно поиска\замены текста) -> В этом окне нажмите кнопку "Replace" -> В этом окне установить галочку на Current Project В поле Find What: напишите https://d." & sourcer & "x/feed/ Во втором поле Replace With: напишите https://www." & sourcer & "x/feed/ Нажмите кнопку Replace All. Выйдет окно сколько ссылок было заменено. Дальше сохраняете изменения и пользуйтесь таблицей как обычно. Пошаговое видео прилагаю: Video_2026-01-15_142547.wmv Current Project забыл выделить, выделяйте что бы каждый модуль отдельно так не щелкать. Video_2026-01-15_142547.wmv Изменено 15 января пользователем Валерий Иванович 14 Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519154 Поделиться на другие сайты Поделиться
darkmen 0 Опубликовано 15 января Поделиться Опубликовано 15 января 1 минуту назад, Валерий Иванович сказал: Откройте свой файл excel -> Нажмите alt+F11 (откроется режим разработчика) -> После открытия режим, нажмите на любой файл в категории Module и нажмите ctrl+f (откроется окно поиска\замены текста) -> В этом окне нажмите кнопку "Replace" -> В поле Find What: напишите https://d." & sourcer & "x/feed/ Во втором поле Replace With: напишите https://www." & sourcer & "x/feed/ Нажмите кнопку Replace All. Выйдет окно сколько ссылок было заменено. Дальше сохраняете изменения и пользуйтесь таблицей как обычно. спасибо огромное!!!!! Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519155 Поделиться на другие сайты Поделиться
darkmen 0 Опубликовано 15 января Поделиться Опубликовано 15 января Извиняюсь может не по теме ,а кто сможет починить Катана баскет,тоже перестала работать 1 Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519166 Поделиться на другие сайты Поделиться
Alsah 0 Опубликовано 15 января Поделиться Опубликовано 15 января 1 час назад, darkmen сказал: Ребята помогите пожалуйста таблица не работает! 15012026.xlsm Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519167 Поделиться на другие сайты Поделиться
Stanila Sorin Daniel 28 Опубликовано 15 января Поделиться Опубликовано 15 января 3 часа назад, Валерий Иванович сказал: Deschide fișierul tău Excel -> Apasă alt+F11 (modul dezvoltator se va deschide) -> După ce deschizi modulul, apasă pe orice fișier din categoria Modul și apasă ctrl+f (fereastra de căutare/înlocuire a textului se va deschide) -> În această fereastră, apasă butonul "Înlocuiește" -> În această fereastră, bifează căsuța Proiect curent În câmpul Find What: scrie https://d." & sourcer & "x/feed/ În al doilea câmp, Înlocuiește cu: scrie https://www." & sourcer & "x/feed/ apasă butonul Înlocuiește Toate. Va apărea o fereastră care arată câte linkuri au fost înlocuite. Apoi salvează modificările și folosește tabelul ca de obicei. Video pas cu pas atașat: Video_2026-01-15_142547.wmvObținerea informațiilor... Proiectul curent a uitat să evidențieze și să selecteze, astfel încât fiecare modul să nu fie apăsat separat așa. Video_2026-01-15_142547.wmvObținerea informațiilor... Сочетание клавиш Alt+F11 у меня не работает. У меня Windows 11 и Excel 2021. Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519170 Поделиться на другие сайты Поделиться
Валерий Иванович 682 Опубликовано 15 января Поделиться Опубликовано 15 января 2 минуты назад, Stanila Sorin Daniel сказал: Сочетание клавиш Alt+F11 у меня не работает. У меня Windows 11 и Excel 2021. В интернете есть решения данной проблемы. Google не блокирует никого из-за таких вопросов. 1 Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519172 Поделиться на другие сайты Поделиться
Diclinion 24 Опубликовано 15 января Поделиться Опубликовано 15 января 1 час назад, Alsah сказал: 15012026.xlsm 60.59 MB · 8 загрузок Пробуй 15012026.xlsm Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519176 Поделиться на другие сайты Поделиться
ramzes 2 Опубликовано 15 января Поделиться Опубликовано 15 января 55 минут назад, Diclinion сказал: Пробуй 15012026.xlsm 60.62 MB · 15 загрузок можна фильтр поставить сюда Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519180 Поделиться на другие сайты Поделиться
Fiksar 309 Опубликовано 15 января Поделиться Опубликовано 15 января 5 часов назад, Валерий Иванович сказал: Откройте свой файл excel -> Нажмите alt+F11 (откроется режим разработчика) -> После открытия режима, нажмите на любой файл в категории Module и нажмите ctrl+f (откроется окно поиска\замены текста) -> В этом окне нажмите кнопку "Replace" -> В этом окне установить галочку на Current Project В поле Find What: напишите https://d." & sourcer & "x/feed/ Во втором поле Replace With: напишите https://www." & sourcer & "x/feed/ Нажмите кнопку Replace All. Выйдет окно сколько ссылок было заменено. Дальше сохраняете изменения и пользуйтесь таблицей как обычно. Пошаговое видео прилагаю: Video_2026-01-15_142547.wmv 12.63 MB · 23 загрузки Current Project забыл выделить, выделяйте что бы каждый модуль отдельно так не щелкать. Video_2026-01-15_142547.wmv 12.63 MB · 23 загрузки Спасибо! 1 Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519183 Поделиться на другие сайты Поделиться
Stanila Sorin Daniel 28 Опубликовано 15 января Поделиться Опубликовано 15 января Проблема решена. Спасибо. Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519184 Поделиться на другие сайты Поделиться
vadavada 7 Опубликовано 15 января Поделиться Опубликовано 15 января 1 час назад, Diclinion сказал: Try it 15012026.xlsm 60.62 MB · 19 downloads Какие изменения можно внести в разделы кода "Таблица" и "Форма"? NORAM_CASPER_2024_V1.1 FINAL 23.xlsb Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519185 Поделиться на другие сайты Поделиться
Mike 1 Опубликовано 15 января Поделиться Опубликовано 15 января Будет гол (2).xlsb Поремонтируйте пожалуйста таблицу на инд. тотал. С сегодняшнего дня перестала загружать матчи. Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519187 Поделиться на другие сайты Поделиться
Роман .Пшерадзский 100 Опубликовано 15 января Поделиться Опубликовано 15 января 5 часов назад, Валерий Иванович сказал: Откройте свой файл excel -> Нажмите alt+F11 (откроется режим разработчика) -> После открытия режима, нажмите на любой файл в категории Module и нажмите ctrl+f (откроется окно поиска\замены текста) -> В этом окне нажмите кнопку "Replace" -> В этом окне установить галочку на Current Project В поле Find What: напишите https://d." & sourcer & "x/feed/ Во втором поле Replace With: напишите https://www." & sourcer & "x/feed/ Нажмите кнопку Replace All. Выйдет окно сколько ссылок было заменено. Дальше сохраняете изменения и пользуйтесь таблицей как обычно. Пошаговое видео прилагаю: Video_2026-01-15_142547.wmv 12.63 MB · 28 загрузок Current Project забыл выделить, выделяйте что бы каждый модуль отдельно так не щелкать. Video_2026-01-15_142547.wmv 12.63 MB · 28 загрузок вот в обеих таблицах сделал всё, как на видео, всё равно не грузит Auto_Totalbomb-L10_FX24.01.25-завтра.xlsm Будет гол (2).xlsb Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519188 Поделиться на другие сайты Поделиться
Blueaslan 5 Опубликовано 15 января Поделиться Опубликовано 15 января Привет, это тоже не работает, можешь починить? MACBETH_BET-PLUS 2026 PRO.xlsb Цитата Ссылка на комментарий https://brcbet.com/topic/68703-remont-tablits/page/178/#findComment-519190 Поделиться на другие сайты Поделиться
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.