Добрый день! Суть вопроса: Существует ячейка A1 в которой находится текст - абаывфывыя07Март2004.xlsm Нужно:
В ячейку A2 (Имя) поместить - абаывфывыя (С условием что длина этого текста будет заканчиваться перед первой попавшейся цифрой) В ячейку А3 (День) поместить - 07 (С условием что перед 0 не стоит цифра и что после 7 не стоит цифра, иначе путается с текстом 2004) В ячейку А4 (Месяц) поместить Март(РЕШЕНО) В ячейку А5 (Год) поместить 2004(РЕШЕНО) В ячейку А6 (Формат) поместить .xlsm(РЕШЕНО)
Проблема только с Именем и Днем.
Решение для Месяца, года и формата следующее:
Код
=ЕСЛИ(ЕОШ(ПОИСК("Январь";A27));"";"Январь ") На примере месяца.
Добрый день! Суть вопроса: Существует ячейка A1 в которой находится текст - абаывфывыя07Март2004.xlsm Нужно:
В ячейку A2 (Имя) поместить - абаывфывыя (С условием что длина этого текста будет заканчиваться перед первой попавшейся цифрой) В ячейку А3 (День) поместить - 07 (С условием что перед 0 не стоит цифра и что после 7 не стоит цифра, иначе путается с текстом 2004) В ячейку А4 (Месяц) поместить Март(РЕШЕНО) В ячейку А5 (Год) поместить 2004(РЕШЕНО) В ячейку А6 (Формат) поместить .xlsm(РЕШЕНО)
Проблема только с Именем и Днем.
Решение для Месяца, года и формата следующее:
Код
=ЕСЛИ(ЕОШ(ПОИСК("Январь";A27));"";"Январь ") На примере месяца.
из меня объясняльшик плохой я объясняю, но почему то никто не понимает смотрите файл. выделяйте непонятный кусок формулы и нажимайте кнопку F9 . и увидите результат действия этого куска формулы
из меня объясняльшик плохой я объясняю, но почему то никто не понимает смотрите файл. выделяйте непонятный кусок формулы и нажимайте кнопку F9 . и увидите результат действия этого куска формулыкитин
китин, Спасибо. буду думать, не получается почему-то. Убираются скобки и пишет Н/Д. Ставлю скобки, в ячейку выпадает что-то типо ЧИСЛО-... Спасибо большое.
китин, Спасибо. буду думать, не получается почему-то. Убираются скобки и пишет Н/Д. Ставлю скобки, в ячейку выпадает что-то типо ЧИСЛО-... Спасибо большое.Jelvis
Добрый день. Вариант одной пользовательской функцией разобрать на составные части [vba]
Код
Function Jelvis(t As String, c As Integer) With CreateObject("VBScript.RegExp"): .Global = True: .Pattern = "\D+|\d+": Jelvis = .Execute(t)(c): End With End Function
[/vba]
Добрый день. Вариант одной пользовательской функцией разобрать на составные части [vba]
Код
Function Jelvis(t As String, c As Integer) With CreateObject("VBScript.RegExp"): .Global = True: .Pattern = "\D+|\d+": Jelvis = .Execute(t)(c): End With End Function