Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Перебор в ячейке / 7 сообщений из 7, страница 1 из 1
12.05.2008, 10:41
    #35305760
dd44
dd44
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор в ячейке
Уважаемые гуру,
Есть ячейка, а которой переисляются номера строк через ";" (11;22;25;69). Впрос, как перебрать все эти значения строк?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2008, 10:50
    #35305786
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор в ячейке
Split
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2008, 10:58
    #35305807
dd44
dd44
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор в ячейке
AntonariySplit
Почитал про Split, но возник вопрос:
Есть ячейка А1, в ней значения строк 11;2;25;48 как сделать процедуру переборки, т.е. как определить, конец значений в ячейке?
For i = ?? to ???
a = Split(Range("A1"), ;, vbTextCompare)
Next

Науите раотать с этой функцией, а то в хелпе даже примера нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2008, 11:13
    #35305849
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор в ячейке
Split - формирует массив значений
т.е если у Вас в ячейке 11;22;25;69 , то после выполнения
Код: plaintext
a = Split(Range("A1"), ;, vbTextCompare)
массив а будет содержать
a[0] = 11
a[1] = 22
a[2] = 25
a[3] = 69

пройтись по массиву можно используя
Код: plaintext
for i =  0  to ubound(a)



I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2008, 11:17
    #35305864
ДмиДми
ДмиДми
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор в ячейке
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub dd44()
    Dim i As Long, v As Variant
    v = Split(Range("A1").Value, ";")
    For i = LBound(v) To UBound(v)
        Debug.Print v(i)
    Next
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2008, 11:19
    #35305867
ДмиДми
ДмиДми
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор в ячейке
Вдогон: значение нижнего индекса зависит от Option Base,
поэтому лучше использовать LBound().
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.05.2008, 11:21
    #35305875
dd44
dd44
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перебор в ячейке
Всем гран мерси!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Перебор в ячейке / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 406ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2162314]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 69ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 236ms
total:  406ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]