ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / For Each icel In MyRange
6 сообщений из 6, страница 1 из 1
For Each icel In MyRange
    #34515273
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Код: plaintext
For Each icel In Range ("A1:J10")
- Перебирает ячейки в диапазоне по строкам, а как сделать чтобы по столбцам??? Подскажите пожалуйста.
...
Рейтинг: 0 / 0
10.05.2007, 09:42:08
| Ответить | Цитировать | Написать  
For Each icel In MyRange
    #34515481
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Deggasad
Код: plaintext
For Each icel In Range ("A1:J10")
- Перебирает ячейки в диапазоне по строкам, а как сделать чтобы по столбцам??? Подскажите пожалуйста.

Твой код перебирает не по строкам, а по всем ячейкам.

Код: plaintext
1.
2.
3.
    Dim rngColumn As Range
    For Each rngColumn In Range("A1:J10").Columns
        MsgBox rngColumn.Cells( 1 )
    Next rngColumn


Код: plaintext
1.
2.
3.
4.
    For i =  1  To Range("A1:J10").Rows.Count
        For i = j To Range("A1:J10").Columns.Count
             MsgBox Range("A1:J10")(i, j)
        Next j
    Next i

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
10.05.2007, 10:59:18
| Ответить | Цитировать | Написать  
For Each icel In MyRange
    #34515629
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Если я правильно понял, нужно направление движение по столбцам?
Если да тогда так.
Код: plaintext
1.
2.
3.
4.
5.
    Dim rngColumn As Range, rngRows As Range
    For Each rngColumn In Range("A1:J10").Columns
        For Each rngRows In rngColumn.Rows
            MsgBox rngRows
        Next
    Next
...
Рейтинг: 0 / 0
10.05.2007, 11:35:06
| Ответить | Цитировать | Написать  
For Each icel In MyRange
    #34515654
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
KL (XL)
Твой код перебирает не по строкам, а по всем ячейкам.

Имел ввиду что вот этот код

Код: plaintext
1.
2.
3.
4.
5.
6.
Sub primer1()
Dim x, icel
For Each icel In Range("A1:D4")
 x = x & "," & icel.Address( 0 ,  0 )
Next
Debug.Print x
End Sub

Выдаст ,A1,B1,C1,D1,A2,B2,C2,D2,A3,B3,C3,D3,A4,B4,C4,D4 , т.е. сначала пробежит 1-ю строку, потом вторую ....

А нужно чтобы сначала 1-й столбец, потом второй ....
Т.е. ,A1,A2,A3,A4,B1,B2,B3,B4,C1,C2,C3,C4,D1,D2,D3,D4
Можно так, я согласен
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub primer3()
Dim x, i, j
    
    For j =  1  To Range("A1:D4").Columns.Count
        For i =  1  To Range("A1:D4").Rows.Count
             x = x & "," & Range("A1:D4")(i, j).Address( 0 ,  0 )
        Next
    Next
Debug.Print x
End Sub

Но если диапазон имеет вид
Код: plaintext
Range("A1:D4,C5:J6")
, то неправильно сработает или можно как то и этот случай учесть?
...
Рейтинг: 0 / 0
10.05.2007, 11:41:12
| Ответить | Цитировать | Написать  
For Each icel In MyRange
    #34515725
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
vkodorЕсли я правильно понял, нужно направление движение по столбцам?
Если да тогда так.
Код: plaintext
1.
2.
3.
4.
5.
    Dim rngColumn As Range, rngRows As Range
    For Each rngColumn In Range("A1:J10").Columns
        For Each rngRows In rngColumn.Rows
            MsgBox rngRows
        Next
    Next


Сразу не заметил этого поста...
Да правильно..
Спасибо
Вот так вроде всё работает

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub primer4()
Dim x, rngColumn As Range, rngRows As Range
    For Each rngColumn In Range("A1:D4,C5:J6").Columns
        For Each rngRows In rngColumn.Rows
          x = x & "," & Range("A1:D4")(rngRows.Row, rngColumn.Column).Address( 0 ,  0 )
        Next
    Next
Debug.Print x
End Sub
...
Рейтинг: 0 / 0
10.05.2007, 11:59:40
| Ответить | Цитировать | Написать  
For Each icel In MyRange
    #34515734
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Вернее так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub primer4()
Dim x, rngColumn As Range, rngRows As Range
    For Each rngColumn In Range("A1:D4,C5:J6").Columns
        For Each rngRows In rngColumn.Rows
          x = x & "," & rngRows.Address( 0 ,  0 )
        Next
    Next
Debug.Print x
End Sub
...
Рейтинг: 0 / 0
10.05.2007, 12:01:26
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / For Each icel In MyRange
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34515273&tid=2182994]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 46ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 224ms
total:  357ms
созд. / загр.: 357ms
x
x
Закрыть


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