VPF::Выделение текущей строки в Excel

Гость_Виталий

Дата 8.10.2004, 12:24 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Доброе время суток!
Каким образом можно сделать следующее:
есть таблица - прайс.
Необходимо чтобы при перемещении пользователя по таблице строка, в которой пользователь находится в данный момент была выделена фоном.

Заранее благодарен. Виталий

Гость_Михаил

Дата 11.10.2004, 09:35 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Входишь в события книги и вставляешь этот код.
Удачи!!!

Public LastRange As Range

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not LastRange Is Nothing Then
Rows(LastRange.Row).Interior.ColorIndex = 0
End If
ActiveSheet.Rows(Target.Row).Interior.ColorIndex = 20
Set LastRange = ActiveCell
End Sub

При необходимости сохранять прежние цвета ячеек можно этот код немного переделать.
Так же можно его оптимизтировать (закрашивать только 100-200 ячеек, а не 65536)

Staruha

Дата 12.10.2004, 13:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27

Только вместо

Код

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

надо для VBA

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

так работает

--------------------

Возмездие настигнет

Гость_Виталий

Дата 13.10.2004, 10:20 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Спасибо огромное!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »