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

Вам часто приходится работать с громоздкими таблицами, которые не умещаются на мониторе? Вы уменьшаете масштаб отображения, чтобы на экран вместилось больше информации и мечтаете о 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 - визуальным средам

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

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

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