Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вычленить из ячейки с текстом номер договора через VBA
 
#1
30.10.2019 11:54:52
Добрый день!
Есть ячейка типа "текст цифры символы текст текст цифры-цифры текст цифры символы текст текст". (например "Оплата договора от 27.10.2019 по договору 123456-12345678 произведена").
Как через VBA можно вычленить тире и все что до следующего и до предыдущего за этим тире пробелами? Т.е. оставить только номер договора, маска у договора строго с тире, поэтому цепляюсь за него.
И, пожалуйста, не с помощью функцииа, а чтобы процедура была. :)

Спасибо.
 
 
 
#2
30.10.2019 12:19:00
Вот то, что вам нужно  https://www.planetaexcel.ru/techniques/7/4844/
 
 
 
#3
30.10.2019 12:24:48
Код
Function iDogovor(cell$)
 With CreateObject("VBScript.RegExp")
     .Pattern = "\d+-\d+"
     iDogovor = .Execute(cell)(0)
 End With
End Function

Остальное сами
 
 
 
#4
30.10.2019 13:27:28
Hellmaster , да, спасибо, это видел, не знал как это подружить с VBA просто.) Ниже кинули пример как.

Kuzmich, спасибо! А можно ведь это сделать не через Function? Чтобы на листе не делать отдельный столбец с отформатированными договорами, а в той же ячейке все манипуляции сделал макрос.
 
 
 
#5
30.10.2019 13:33:36
Можно сделать в столбце через функцию, затем скопировать и вставить значение на место исходного столбца.
Кому решение нужно - тот пример и рисует.
 
 
 
#6
30.10.2019 13:40:14
Всем спасибо, будем пробовать!
 
 
 
#7
30.10.2019 13:54:03
Цитата
а в той же ячейке все манипуляции сделал макрос
Если текст в столбце А
Код
Sub Dogovor()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
   With CreateObject("VBScript.RegExp")
     .Pattern = "\d+-\d+"
    For i = 1 To iLastRow
      If .Test(Cells(i, 1)) Then
        Cells(i, 1) = .Execute(Cells(i, 1))(0)
      End If
    Next
   End With
End Sub
 
 
 
#8
30.10.2019 14:11:49
Kuzmich, вот это вообще так как надо!
Благодарю!
 
 
 
Страницы: 1
Наверх