|
|
|
Разбить строки
|
|||
|---|---|---|---|
|
#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:27:24 |
|
||
|
Разбить строки
|
|||
|---|---|---|---|
|
#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 -номер части ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.03.2007, 09:44:53 |
|
||
|
|
start [/forum/topic.php?fid=61&fpage=291&tid=2183321]: |
0ms |
get settings: |
7ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
34ms |
get topic data: |
6ms |
get forum data: |
2ms |
get page messages: |
27ms |
get tp. blocked users: |
1ms |
| others: | 227ms |
| total: | 326ms |
| 0 / 0 |
