Координатное выделение

Вам часто приходится работать с громоздкими таблицами, которые не умещаются на мониторе? Вы уменьшаете масштаб отображения, чтобы на экран вместилось больше информации и мечтаете о 22-дюймовом широкоэкранном ЖК-мониторе?

А если при движении активной ячейки по листу будет подсвечиваться текущая строка и столбец? Своего рода координатное выделение...

Хотите такое в своей таблице?

Сделать такую штуку проще простого - нам нужен макрос, который будет выделять текущую строку-столбец, причем делать это не все время (это будет мешать Вам вводить, например, формулы), а только тогда, когда мы просматриваем список в поисках нужной информации.

Откройте лист со списком, на котором хотите получить такое координатное выделение. Щелкните правой кнопкой мыши по ярлычку листа и выберите в контекстном меню команду Исходный текст (Source Code). Должно открыться окно редактора Visual Basic. Скопируйте в него этот текст макроса:

Public NoEvents As Boolean
Public Sub SelOn()
NoEvents = False
End Sub
Public Sub SelOff()
NoEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim addr As String
Dim x As Variant
Dim rng, c, r, cll As String

If NoEvents Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
addr = ActiveCell.Address()
x = Split(addr, "$")
c = x(1)
r = x(2)
rng = c & ":" & c & "," & r & ":" & r
Range(rng).Select
cll = c & r
Range(cll).Activate
End Sub

Закройте редактор Visual Basic и вернитесь в Excel. Теперь можно назначить сочетания клавиш для включения и выключения нашего режима координатного выделения. Для этого откройте меню Сервис - Макрос - Макросы (Tools - Macro - Macros). Макрос SelOn включает выделение, а макрос SelOff - выключает. Нажав кнопку Параметры (Options) в окне Макросы можно задать сочетания клавиш для запуска этих макросов.

Вот и все, собственно - наслаждайтесь!

к библиотеке 3GL к оглавлению к экономической информатике 4GL - визуальным средам

Знаете ли Вы, что, как ни тужатся релятивисты, CMB (космическое микроволновое излучение) - прямое доказательство существования эфира, системы абсолютного отсчета в космосе, и, следовательно, опровержение Пуанкаре-эйнштейновского релятивизма, утверждающего, что все ИСО равноправны, а эфира нет. Это фоновое излучение пространства имеет свою абсолютную систему отсчета, а значит никакого релятивизма быть не может. Подробнее читайте в FAQ по эфирной физике.

НОВОСТИ ФОРУМА

Рыцари теории эфира