ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выделение определенных строк в столбце
8 сообщений из 8, страница 1 из 1
Выделение определенных строк в столбце
    #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:03
| Ответить | Цитировать | Написать  
Выделение определенных строк в столбце
    #39078223
Чип&Дейл
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чип&Дейл
Гость
Пробовал вот так, почти то что нужно но выделяются все столбцы а не 1 и в этом варианте не нужно узнавать букву по номеру столбца
Код: vbnet
1.
Range(Cells(11, x), Cells(20, x)).EntireRow.Select
...
Рейтинг: 0 / 0
16.10.2015, 07:28
| Ответить | Цитировать | Написать  
Выделение определенных строк в столбце
    #39078229
Чип&Дейл
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чип&Дейл
Гость
Разобрался)
...
Рейтинг: 0 / 0
16.10.2015, 07:56
| Ответить | Цитировать | Написать  
Выделение определенных строк в столбце
    #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, 08:14
| Ответить | Цитировать | Написать  
Выделение определенных строк в столбце
    #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:16
| Ответить | Цитировать | Написать  
Выделение определенных строк в столбце
    #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:17
| Ответить | Цитировать | Написать  
Выделение определенных строк в столбце
    #39078306
Чип&Дейл
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чип&Дейл
Гость
Поправил, но почему то если найдено совпадение то не происходит копирования. В чем ошибка?
...
Рейтинг: 0 / 0
16.10.2015, 09:59
| Ответить | Цитировать | Написать  
Выделение определенных строк в столбце
    #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
16.10.2015, 10:00
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выделение определенных строк в столбце
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39078278&tid=2155762]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 33ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 12ms
total:  122ms
созд. / загр.: 122ms
x
x
Закрыть


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