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

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

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

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