|
Разделение текста на части и перенос в другие ячейки
|
|
|
Kuzmich |
Дата: Суббота, 28.05.2016, 21:17 |
Сообщение № 21 |
|
|
Группа: Проверенные
Ранг: Ветеран
Сообщений: 713
Репутация:
157
±
Замечаний:
0% ±
Excel 2003 | |
Цитата заставить данный макрос работать только с одной указанной ячейкой
Для ячейки А2
[vba]Код
Sub test1()
Dim t, t1, t2, t3
With CreateObject("VBScript.RegExp")
t = Range("A2")
.Pattern = "[а-яё]+": .IgnoreCase = True
t1 = .Execute(t)(0)
.Pattern = "\d+": .Global = True
If .Execute(t).Count > 1 Then t2 = .Execute(t)(.Execute(t).Count - 2): t3 = .Execute(t)(.Execute(t).Count - 1) Else t2 = .Execute(t)(.Execute(t).Count - 1): t3 = ""
Range("A2") = Replace(Replace(Replace(t, t1, ""), t2, ""), t3, "")
Range("A2") = t1: Range("B2") = t2: Range("C2") = t3
End With
End Sub
Цитата заставить данный макрос работать только с одной указанной ячейкой
Для ячейки А2
[vba]Код
Sub test1()
Dim t, t1, t2, t3
With CreateObject("VBScript.RegExp")
t = Range("A2")
.Pattern = "[а-яё]+": .IgnoreCase = True
t1 = .Execute(t)(0)
.Pattern = "\d+": .Global = True
If .Execute(t).Count > 1 Then t2 = .Execute(t)(.Execute(t).Count - 2): t3 = .Execute(t)(.Execute(t).Count - 1) Else t2 = .Execute(t)(.Execute(t).Count - 1): t3 = ""
Range("A2") = Replace(Replace(Replace(t, t1, ""), t2, ""), t3, "")
Range("A2") = t1: Range("B2") = t2: Range("C2") = t3
End With
End Sub
|
| |
| Ответить
|
|
giovanni |
Дата: Воскресенье, 29.05.2016, 01:11 |
Сообщение № 22 |
|
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация:
0
±
Замечаний:
20% ±
Excel 2010 | |
Не хочет работать 
Выдает ошибку: invalid procedure call or argument на строке [vba][/vba]
Не хочет работать
Выдает ошибку: invalid procedure call or argument на строке [vba][/vba]giovanni |
| |
| Ответить
|
|
Kuzmich |
Дата: Воскресенье, 29.05.2016, 10:30 |
Сообщение № 23 |
|
|
Группа: Проверенные
Ранг: Ветеран
Сообщений: 713
Репутация:
157
±
Замечаний:
0% ±
Excel 2003 | |
Возможно в ячейке А2 нет русских букв.
Приведите ваш пример.
Возможно в ячейке А2 нет русских букв.
Приведите ваш пример.Kuzmich |
| |
| Ответить
|
|
giovanni |
Дата: Воскресенье, 29.05.2016, 10:39 |
Сообщение № 24 |
|
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация:
0
±
Замечаний:
20% ±
Excel 2010 | |
Возможно в ячейке А2 нет русских букв.
Приведите ваш пример.
Здравствуйте!
Вроде, текст корректный, латиницы нет.Возможно в ячейке А2 нет русских букв.
Приведите ваш пример.
Здравствуйте!
Вроде, текст корректный, латиницы нет.giovanni |
| |
| Ответить
|
|
Kuzmich |
Дата: Воскресенье, 29.05.2016, 11:22 |
Сообщение № 25 |
|
|
Группа: Проверенные
Ранг: Ветеран
Сообщений: 713
Репутация:
157
±
Замечаний:
0% ±
Excel 2003 | |
[vba]Код
t = Range("A2")
.Pattern = "[а-яё]+": .IgnoreCase = True
[vba]Код
t = Range("A2")
.Pattern = "[а-яё]+": .IgnoreCase = True
|
| |
| Ответить
|
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
