Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
12.03.2007, 09:27:24
|
|||
|---|---|---|---|
Разбить строки |
|||
|
#18+
Народ спасайте! VBA В ячейке А1 есть текст: Надежда Вениаминовна [т] (81733)92662 [д] Снабжение Ефимов Александр Львович [т] (81733)92415 [м] 89114484450 [д] Начальник производства Малов Николай Валентинович [т] (81733)92415 [д] зам.начальника цеха Соколов Сергей Васильевич [т] (81733)92694 [д] Ком.директор Смирнов Сергей Иванович [т] (81733)92399/факс 22036 [д] Начальник отдела снабжения надо чтобы ФИО было в B1-B5, телефон в С1-C5, должность в D1-D5. Как это сделать на VBA, т.к. список очень большой. Как разделить строки? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
12.03.2007, 09:44:53
|
|||
|---|---|---|---|
|
|||
Разбить строки |
|||
|
#18+
попробуй фукнцию Function Substring(Txt, Delimiter, n) As String Dim x As Variant x = Split(Txt, Delimiter) If n > 0 And n - 1 <= UBound(x) Then Substring = x(n - 1) Else Substring = "" End If End Function Где ТХТ - текст, Delimiter делитель в кавычках, n -номер части ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=61&mobile=1&tid=2183321]: |
0ms |
get settings: |
6ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
80ms |
get topic data: |
6ms |
get forum data: |
1ms |
get page messages: |
21ms |
get tp. blocked users: |
1ms |
| others: | 230ms |
| total: | 358ms |
| 0 / 0 |
