Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выделение определенных строк в столбце / 8 сообщений из 8, страница 1 из 1
16.10.2015, 07:03
    #39078212
Чип&Дейл
Чип&Дейл
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделение определенных строк в столбце
Добрый день.
Подскажите пожалуйста, как выделить несколько строк столбца?
Сначала получаю, буквенный эквивалент столбца вот так
Код: vbnet
1.
2.
x = 5
 j = Replace(Cells(1, x).Address(0, 0), 1, "")


Как правильно будет выглядеть Range().select чтобы выделял 5 столбец ( он же "E") с 11 по 120 строку?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2015, 07:28
    #39078223
Чип&Дейл
Чип&Дейл
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделение определенных строк в столбце
Пробовал вот так, почти то что нужно но выделяются все столбцы а не 1 и в этом варианте не нужно узнавать букву по номеру столбца
Код: vbnet
1.
Range(Cells(11, x), Cells(20, x)).EntireRow.Select
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2015, 07:56
    #39078229
Чип&Дейл
Чип&Дейл
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделение определенных строк в столбце
Разобрался)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2015, 08:14
    #39078236
Чип&Дейл
Чип&Дейл
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделение определенных строк в столбце
Поправьте пожалуйста, не понятно почему выходит ошибка else without if
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Do While j <= lrow
    Do While c <= lcel
        If sh.Cells(j, 8).Value = sh2.Cells(8, c).Value Then Range(Cells(8, &#241;), Cells(196, &#241;)).Select
        Selection.Copy
        Sheets(7).Select Cells(8, a).Select
        Selection.Paste a = a + 1
        Else: c = c + 1
        End If
            Loop
            j = j + 1
            Loop
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2015, 09:16
    #39078277
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделение определенных строк в столбце
Чип&Дейл, потому что если в операторе If что-то написано после Then, то это однострочная форма оператора, и последующие строки к нему уже не относятся.
Do While j <= lrow
Do While c <= lcel
If sh.Cells(j, 8).Value = sh2.Cells(8, c).Value Then
Range(Cells(8, ñ), Cells(196, ñ)).Select
Selection.Copy
Sheets(7).Select Cells(8, a).Select
Selection.Paste a = a + 1
Else: c = c + 1
End If
Loop
j = j + 1
Loop
[SRC vba][/SRC]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2015, 09:17
    #39078278
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделение определенных строк в столбце
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
  Do While j <= lrow
    Do While c <= lcel
      If sh.Cells(j, 8).Value = sh2.Cells(8, c).Value Then
        Range(Cells(8, &#241;), Cells(196, &#241;)).Select
        Selection.Copy
        Sheets(7).Select Cells(8, a).Select
        Selection.Paste a = a + 1
      Else: c = c + 1
      End If
    Loop
    j = j + 1
  Loop
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2015, 09:59
    #39078306
Чип&Дейл
Чип&Дейл
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделение определенных строк в столбце
Поправил, но почему то если найдено совпадение то не происходит копирования. В чем ошибка?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2015, 10:00
    #39078307
Чип&Дейл
Чип&Дейл
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выделение определенных строк в столбце
Количество ячеек и столбцов получаю вот так
Код: vbnet
1.
2.
3.
4.
lrow = sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
'lcel = sh2.Cells(sh2.Cells.Count, "A").End
sh1.Select
lcel = Application.CountA(Rows(5))


Дальше идут два цикла представленных выше
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выделение определенных строк в столбце / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 431ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2155762]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 41ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 313ms
total:  431ms
x
x
Закрыть


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