Удобный просмотр формул и результатов

Простая ситуация. Имеем таблицу с формулами:

formula-view1.png

Для удобства отладки и поиска ошибок, хотелось бы одновременно видеть и значения в ячейках, и формулы, по которым эти значения вычисляются. Например, вот так:

formula-view2.png

 

Чтобы получить такую красоту, вам нужно сделать всего несколько простых шагов:

  1. Создать копию текущего окна книги, нажав на вкладке Вид (View) кнопку Новое окно (New Window). В старых версиях Excel это можно сделать через меню Окно - Новое окно (Window - New window).
  2. Разместить оба окна сверху вниз друг под другом, нажав на той же вкладке Вид (View) кнопку Упорядочить все (Arrange all). В Excel 2003 и старше - меню Окно - Упорядочить все (Window - Arrange all).
  3. Выбрав одно из получившихся окон, перейти в режим просмотра формул, нажав на вкладке Формулы (Formulas) кнопку Показать формулы (Show Formulas). В старом Excel это меню Сервис - Зависимости формул - Режим проверки формул (Tools - Formula Auditing - Show Formulas).

Если подобный режим просмотра формул вам полезен и будет нужен часто, то можно использовать простой макрос, который проделает все вышеперечисленные действия за вас:

'макрос включения режима просмотра формул
Sub FormulaViewOn()
    ActiveWindow.NewWindow
    ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlHorizontal
    ActiveWindow.DisplayFormulas = True
End Sub

'макрос выключения режима просмотра формул
Sub FormulaViewOff()
    If ActiveWindow.WindowNumber = 2 Then
        ActiveWindow.Close
        ActiveWindow.WindowState = xlMaximized
        ActiveWindow.DisplayFormulas = False
    End If
End Sub

Нажмите сочетание клавиш ALT+F11, чтобы перейти в редактор Visual Basic. Затем создайте новый пустой модуль через меню Insert - Module и скопируйте туда текст двух вышеприведенных макросов. Первый включает, а второй отключает наш двухоконный режим просмотра формул. Для запуска макросов можно использовать сочетание клавиш ALT+F8, затем кнопка Выполнить (Run) или назначить макросам горячие клавиши в том же окне с помощью кнопки Параметры (Options).

Ссылки по теме



Дмитрий
11.11.2012 01:20:23
Пресвятые угодники.... да я же хакер!!! Спасибо, все получилось, очень полезно!
vuplermaurum
11.11.2012 01:20:55
Замечательная подсказка! ПРостые вещи иногда даже не приходят в голову!
28.10.2013 11:50:16
CTRL+~ вам в помощь!
28.10.2013 14:33:53
Не всегда работает, к сожалению (зависит от языка Windows по умолчанию). Поэтому надежнее через кнопку Показать формулы на вкладке Формулы.
05.11.2014 10:31:08
Спасибо, но так, мне кажется, удобнее:

Sub FormulaViewOnOff()
    If ActiveWindow.WindowNumber = 2 Then
           ActiveWindow.Close
          ActiveWindow.WindowState = xlMaximized
          ActiveWindow.DisplayFormulas = False
     Else
          ActiveWindow.NewWindow
          ActiveWorkbook.Windows.Arrange ArrangeStyle:=xlHorizontal
          ActiveWindow.DisplayFormulas = True
     End If
End Sub 
Наверх