Опубликовано 15 января15 янв 21 минуту назад, Statiko сказал: Добрый день. помогите с починкой пожалуйста. сам чет там наделал щяс ваще серая табличка вылазит HOCKEY form_poison.xlsm 929.22 kB · 3 загрузки
Опубликовано 15 января15 янв Здравствуйте отремонтируйте пожалуйста эту таблу FOOTBALL_ElizaBET_PRO_BET_PLUS_PRO_BETON_обн_от_10_01_2025.xlsb
Опубликовано 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
Опубликовано 15 января15 янв 3 минуты назад, darkmen сказал: Здравствуйте отремонтируйте пожалуйста эту таблу FOOTBALL_ElizaBET_PRO_BET_PLUS_PRO_BETON_обн_от_10_01_2025.xlsb 769.52 kB · 0 загрузок Дак вот же она рабочая человек починил Изменено 15 января15 янв пользователем Statiko
Опубликовано 15 января15 янв 5 минут назад, Statiko сказал: Дак вот же она рабочая человек починил спасибо Изменено 15 января15 янв пользователем darkmen
Опубликовано 15 января15 янв 6 минут назад, Statiko сказал: Дак вот же она рабочая человек починил все равно у меня не работает,чуть подумает и пишет готово а матчи не загружает
Опубликовано 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
Опубликовано 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.
Опубликовано 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" )
Опубликовано 15 января15 янв а где найти то это что бы поменять,сорян я не такой уж и продвинутый пользователь
Опубликовано 15 января15 янв 16 часов назад, SergioJek сказал: The fix there is extremely simple. 1️⃣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
Опубликовано 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 января15 янв пользователем Валерий Иванович
Опубликовано 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. Выйдет окно сколько ссылок было заменено. Дальше сохраняете изменения и пользуйтесь таблицей как обычно. спасибо огромное!!!!!
Опубликовано 15 января15 янв Извиняюсь может не по теме ,а кто сможет починить Катана баскет,тоже перестала работать
Опубликовано 15 января15 янв 1 час назад, darkmen сказал: Ребята помогите пожалуйста таблица не работает! 15012026.xlsm
Опубликовано 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.
Опубликовано 15 января15 янв Постоянный 2 минуты назад, Stanila Sorin Daniel сказал: Сочетание клавиш Alt+F11 у меня не работает. У меня Windows 11 и Excel 2021. В интернете есть решения данной проблемы. Google не блокирует никого из-за таких вопросов.
Опубликовано 15 января15 янв 1 час назад, Alsah сказал: 15012026.xlsm 60.59 MB · 8 загрузок Пробуй 15012026.xlsm
Опубликовано 15 января15 янв 55 минут назад, Diclinion сказал: Пробуй 15012026.xlsm 60.62 MB · 15 загрузок можна фильтр поставить сюда
Опубликовано 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 загрузки Спасибо!
Опубликовано 15 января15 янв 1 час назад, Diclinion сказал: Try it 15012026.xlsm 60.62 MB · 19 downloads Какие изменения можно внести в разделы кода "Таблица" и "Форма"? NORAM_CASPER_2024_V1.1 FINAL 23.xlsb
Опубликовано 15 января15 янв Будет гол (2).xlsb Поремонтируйте пожалуйста таблицу на инд. тотал. С сегодняшнего дня перестала загружать матчи.
Опубликовано 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
Опубликовано 15 января15 янв Привет, это тоже не работает, можешь починить? MACBETH_BET-PLUS 2026 PRO.xlsb
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.
Примечание: Ваш пост будет проверен модератором, прежде чем станет видимым.