Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Постоянное выделение строки. / 5 сообщений из 5, страница 1 из 1
26.01.2005, 18:57
    #32885661
Exel
Exel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Постоянное выделение строки.
Подскажите, как сделать, чтобы при выделении ячейки, постоянно выделялась строка при этом только левая её часть или вся. То есть нужно, что бы при переходе на любую ячейку постоянно выделялась левая сторона строки от ячейки или вся строчка.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2005, 19:25
    #32885712
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Постоянное выделение строки.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private exitFlag As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If exitFlag Then Exit Sub
    exitFlag = True
    Range(Cells(Target.Row,  1 ), Cells(Target.Row, Target.Column)).Select
    exitFlag = False
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.01.2005, 21:43
    #32885817
Exel
Exel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Постоянное выделение строки.
Спасибо. А можно поиск вернуть, а то без него совсем грустно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.01.2005, 19:09
    #32890195
Dimakart
Dimakart
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Постоянное выделение строки.
2 big-duke
заметил одну неприятность работы Вашего кода при перемещении по листу
курсорными клавишами.
Предлагаю одну строчку исправляющую эту неприятность

Private exitFlag As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If exitFlag Then Exit Sub
exitFlag = True
Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column)).Select
'добавляю строку
Target.Activate
exitFlag = False
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.01.2005, 22:24
    #32890371
Fuzzy
Fuzzy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Постоянное выделение строки.
А зачем этот гадкий флаг exitFlag? Рекомендую вместо него применять свойство EnableEvents:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column)).Select
Target.Activate
Application.EnableEvents = True
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Постоянное выделение строки. / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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