ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA перебор ВСЕХ выделенных строк в Excel
13 сообщений из 13, страница 1 из 1
VBA перебор ВСЕХ выделенных строк в Excel
    #34503298
VipFedor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VipFedor
Гость
Подскажите, пожалуйста, как реализовать следующий цикл.

Строка 1 (выделенная)
Строка 2 (выделенная)
Строка 3 (не выделенная)
Строка 4 (выделенная)
Строка 5 (не выделенная)

Нужно выполнить цикл только среди выделенных строк и на каждом шаге получить значения одной из ячеек.

Dim i As Integar, FirstSelectRow as Integer
FirstSelectRow = ActiveCell.Row

For i = FirstSelectRow To (последняя выделенная строка)
...
(получение значения выделенной строки с индексом i)
...
Next i

Не нашел ни одного примера.
Из того, что смог найти:
ActiveCell.Row - Даст мне первую выделенную строку (но только первую)
ActiveCell.Offset - Смещение, но относительно всех строк, а не только выделенных.

Помогите, пожалуйста.
Большое спасибо.
...
Рейтинг: 0 / 0
03.05.2007, 18:41
| Ответить | Цитировать | Написать  
VBA перебор ВСЕХ выделенных строк в Excel
    #34503317
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Код: plaintext
1.
2.
for each r in selection.rows
    debug.print r.cells( 1 , 1 ) 
next
...
Рейтинг: 0 / 0
03.05.2007, 18:50
| Ответить | Цитировать | Написать  
VBA перебор ВСЕХ выделенных строк в Excel
    #34503367
VipFedor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VipFedor
Гость
White Owl
Код: plaintext
1.
2.
for each r in selection.rows
    debug.print r.cells( 1 , 1 ) 
next


Большое спасибо. Все работат.
Казалось бы такой простой алгоритм, но с его поисками вчера я очень намучался и так ничего путнего и не нашел.
...
Рейтинг: 0 / 0
03.05.2007, 19:15
| Ответить | Цитировать | Написать  
VBA перебор ВСЕХ выделенных строк в Excel
    #34560466
Dm'B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dm'B
Гость
ламерский вопрос по этой теме.
Цикл

for each r in selection.rows
debug.print r.cells(1,1)
next

выдает значения в том порядке в котором я выделяю строки, а не по порядку как идут строки, с этим можно что то сделать?
...
Рейтинг: 0 / 0
30.05.2007, 11:34
| Ответить | Цитировать | Написать  
VBA перебор ВСЕХ выделенных строк в Excel
    #34560553
JaneDoe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JaneDoe
Участник
самое простое выделяй строки по порядку)
...
Рейтинг: 0 / 0
30.05.2007, 11:50
| Ответить | Цитировать | Написать  
VBA перебор ВСЕХ выделенных строк в Excel
    #34560583
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Загоните строки в массив и отсортируйте его
...
Рейтинг: 0 / 0
30.05.2007, 11:55
| Ответить | Цитировать | Написать  
VBA перебор ВСЕХ выделенных строк в Excel
    #34560707
Dm'B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dm'B
Гость
JaneDoeсамое простое выделяй строки по порядку)
Выделять буду не я, пользователи, они навыделяют

big-dukeЗагоните строки в массив и отсортируйте его
Т.е. использовать тот же цикл и данные в массив набирать?
отсортировать по номеру строки? А как это сделать?
Мож кусочек кода подкинете?
...
Рейтинг: 0 / 0
30.05.2007, 12:19
| Ответить | Цитировать | Написать  
VBA перебор ВСЕХ выделенных строк в Excel
    #34560836
Фотография Дадахан
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дадахан
Участник
Dm'B JaneDoeсамое простое выделяй строки по порядку)
Выделять буду не я, пользователи, они навыделяют

big-dukeЗагоните строки в массив и отсортируйте его
Т.е. использовать тот же цикл и данные в массив набирать?
отсортировать по номеру строки? А как это сделать?
Мож кусочек кода подкинете?

из мира классики

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
ReDim myrows(Selection.Areas.Count)
i =  0 
For Each MyRow In Selection.Rows
 myrows(i) = MyRow.Row
 i = i +  1 
Next MyRow

For i =  0  To Selection.Areas.Count -  1 
 If myrows(i) = Application.WorksheetFunction.Min(myrows) Then
    Debug.Print myrows(i) 'тут собственно можно rows(MyRows(i)).cells(1,1).value="Hello"
    myrows(i) = "Empty"
    i =  0 
 End If
Next
...
Рейтинг: 0 / 0
30.05.2007, 12:51
| Ответить | Цитировать | Написать  
VBA перебор ВСЕХ выделенных строк в Excel
    #34560962
Фотография Дадахан
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дадахан
Участник
Дадахан
из мира классики

Код: plaintext
1.
2.
3.
4.
5.
...
    Debug.Print myrows(i) 'тут собственно можно rows(MyRows(i)).cells(1,1).value="Hello"
    myrows(i) = "Empty"
    i =  0 
...

поспешил. тут нужно i=-1
...
Рейтинг: 0 / 0
30.05.2007, 13:20
| Ответить | Цитировать | Написать  
VBA перебор ВСЕХ выделенных строк в Excel
    #34561899
Dm'B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dm'B
Гость
Э-э-э все таки не совсем понял. В этот if попадем только один раз.
Нашли минимальное значения номера строки. Вроде ж как все равно не упорядочили.
...
Рейтинг: 0 / 0
30.05.2007, 16:30
| Ответить | Цитировать | Написать  
VBA перебор ВСЕХ выделенных строк в Excel
    #34561939
Фотография Дадахан
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дадахан
Участник
Dm'B Вроде ж как все равно не упорядочили.
эт кто вам сказал?
...
Рейтинг: 0 / 0
30.05.2007, 16:36
| Ответить | Цитировать | Написать  
VBA перебор ВСЕХ выделенных строк в Excel
    #34561954
JaneDoe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JaneDoe
Участник
один раз это если i=-1 не сделать
...
Рейтинг: 0 / 0
30.05.2007, 16:39
| Ответить | Цитировать | Написать  
VBA перебор ВСЕХ выделенных строк в Excel
    #34562014
Dm'B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dm'B
Гость
Все, разобрался, спасибо всем большое.

P.S. Стоило просто перезайти еще раз в файл, все заработало :))
...
Рейтинг: 0 / 0
30.05.2007, 16:49
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA перебор ВСЕХ выделенных строк в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=232&tid=2163933]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 49ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 268ms
total:  412ms
созд. / загр.: 412ms
x
x
Закрыть


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