у меня есть периодическая необходимость просматривать не только значения, но и то как написаны формулы. При этом, такое замечательное сочетание клавишь как Ctrl + ~ у меня в Ex2007 не работает. Задумался над написанием макроса с последующей установкой на него сочетания клавишь. С помошью макрорекордера у меня получается только строчка типа
ActiveWindow.DisplayFormulas = True
я не знаком с объектами VBA .. потому прошу помощи.
Интуитивно догадываюсь, что можно присвоить к булевой переменной знчаение в зависимости от текущего значения ActiveWindow.DisplayFormulas и исходя из этого переключать в ту или иную сторону отображение, но как это написать с т.з. синтаксиса VBA не догоняю, по обрывкам прочтенного предполагаю что это выглядеть должно как то так:
Static B As boolean If (ActiveWindow.DisplayFormulas = True) Then ActiveWindow.DisplayFormulas = False and b=true If (ActiveWindow.DisplayFormulas = False) Then ActiveWindow.DisplayFormulas = True and b=false If (b = true) then ActiveWindow.DisplayFormulas = False else ActiveWindow.DisplayFormulas = True
Пардоньте, с синтаксисом VBA не знаком.. Не робит вобщем..
Добрый день,
у меня есть периодическая необходимость просматривать не только значения, но и то как написаны формулы. При этом, такое замечательное сочетание клавишь как Ctrl + ~ у меня в Ex2007 не работает. Задумался над написанием макроса с последующей установкой на него сочетания клавишь. С помошью макрорекордера у меня получается только строчка типа
ActiveWindow.DisplayFormulas = True
я не знаком с объектами VBA .. потому прошу помощи.
Интуитивно догадываюсь, что можно присвоить к булевой переменной знчаение в зависимости от текущего значения ActiveWindow.DisplayFormulas и исходя из этого переключать в ту или иную сторону отображение, но как это написать с т.з. синтаксиса VBA не догоняю, по обрывкам прочтенного предполагаю что это выглядеть должно как то так:
Static B As boolean If (ActiveWindow.DisplayFormulas = True) Then ActiveWindow.DisplayFormulas = False and b=true If (ActiveWindow.DisplayFormulas = False) Then ActiveWindow.DisplayFormulas = True and b=false If (b = true) then ActiveWindow.DisplayFormulas = False else ActiveWindow.DisplayFormulas = True
Пардоньте, с синтаксисом VBA не знаком.. Не робит вобщем..808