Добрый вечер! Помогите пожалуйста, есть таблица, в ней есть текстовая ячейка в который в скобках есть три числа, я хотел бы как нибудь каждое из чисел вынести в свою отдельную ячейку. Из ячейки В3 вытащить соответственно в F3 число 2416, в G3 число 182, в H3 число 19. И т.д.
Добрый вечер! Помогите пожалуйста, есть таблица, в ней есть текстовая ячейка в который в скобках есть три числа, я хотел бы как нибудь каждое из чисел вынести в свою отдельную ячейку. Из ячейки В3 вытащить соответственно в F3 число 2416, в G3 число 182, в H3 число 19. И т.д.DeiP
UDF: 1-й аргумент - ссылка на ячейку, второй - какое по счету число надо вытащить (на всякий случай что такое UDF) [vba]
Код
Function tt(Text As String, IDX As Integer) Dim Obj As Object With CreateObject("VBScript.Regexp") .Pattern = "\((\d+).(\d+).(\d+)\)" Set Obj = .Execute(Text) If Obj.Count = 0 Or IDX = 0 Then Exit Function If IDX > Obj(0).submatches.Count Then Exit Function tt = Val(Obj(0).submatches(IDX - 1)) End With End Function
[/vba]
UDF: 1-й аргумент - ссылка на ячейку, второй - какое по счету число надо вытащить (на всякий случай что такое UDF) [vba]
Код
Function tt(Text As String, IDX As Integer) Dim Obj As Object With CreateObject("VBScript.Regexp") .Pattern = "\((\d+).(\d+).(\d+)\)" Set Obj = .Execute(Text) If Obj.Count = 0 Or IDX = 0 Then Exit Function If IDX > Obj(0).submatches.Count Then Exit Function tt = Val(Obj(0).submatches(IDX - 1)) End With End Function
Либо я совсем не понимаю как это работает или иные какие траблы, но при добавлении в последующие строки и растяжки формулы уже ничего не происходит, а пишет просто в ячейке #ЗНАЧ! [moder]Показывайте. И не нужно цитировать весь пост. Это запрещено Правилами форума. Удалил
Либо я совсем не понимаю как это работает или иные какие траблы, но при добавлении в последующие строки и растяжки формулы уже ничего не происходит, а пишет просто в ячейке #ЗНАЧ! [moder]Показывайте. И не нужно цитировать весь пост. Это запрещено Правилами форума. УдалилDeiP
Сообщение отредактировал _Boroda_ - Понедельник, 14.03.2016, 22:07