Перебор в ячейке / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Перебор в ячейке

7 сообщений из 7, страница 1 из 1

Перебор в ячейке

#35305760

dd44

Гость

Уважаемые гуру,
Есть ячейка, а которой переисляются номера строк через ";" (11;22;25;69). Впрос, как перебрать все эти значения строк?

...

Рейтинг:

0 / 0

12.05.2008, 10:41

| Ответить | Цитировать | Написать

Перебор в ячейке

#35305786

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Split

...

Рейтинг:

0 / 0

12.05.2008, 10:50

| Ответить | Цитировать | Написать

Перебор в ячейке

#35305807

dd44

Гость

AntonariySplit
Почитал про Split, но возник вопрос:
Есть ячейка А1, в ней значения строк 11;2;25;48 как сделать процедуру переборки, т.е. как определить, конец значений в ячейке?
For i = ?? to ???
a = Split(Range("A1"), ;, vbTextCompare)
Next

Науите раотать с этой функцией, а то в хелпе даже примера нет.

...

Рейтинг:

0 / 0

12.05.2008, 10:58

| Ответить | Цитировать | Написать

Перебор в ячейке

#35305849

HandKot

Участник

Откуда: Sergiev Posad

Сообщения: 3 122

Рейтинг: 0 / 0

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:13

| Ответить | Цитировать | Написать

Перебор в ячейке

#35305864

ДмиДми

Участник

Откуда: Тушино

Сообщения: 501

Рейтинг: 0 / 0

Код: 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:17

| Ответить | Цитировать | Написать

Перебор в ячейке

#35305867

ДмиДми

Участник

Откуда: Тушино

Сообщения: 501

Рейтинг: 0 / 0

Вдогон: значение нижнего индекса зависит от Option Base,
поэтому лучше использовать LBound().

...

Рейтинг:

0 / 0

12.05.2008, 11:19

| Ответить | Цитировать | Написать

Перебор в ячейке

#35305875

dd44

Гость

Всем гран мерси!

...

Рейтинг:

0 / 0

12.05.2008, 11:21

| Ответить | Цитировать | Написать

7 сообщений из 7, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Перебор в ячейке

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=35305807&tid=2162314]:	0ms
get settings:	6ms
get forum list:	10ms
check forum access:	2ms
check topic access:	2ms
track hit:	134ms
get topic data:	9ms
get forum data:	2ms
get page messages:	52ms
get tp. blocked users:	1ms
others:	200ms

total:	418ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы