Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Создание макроса отображения / скрытия значений формул - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Создание макроса отображения / скрытия значений формул
808 Дата: Пятница, 03.02.2012, 14:24 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 10 ±
Замечаний: 0% ±

Добрый день,

у меня есть периодическая необходимость просматривать не только значения, но и то как написаны формулы. При этом, такое замечательное сочетание клавишь как 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
Дата добавления - 03.02.2012 в 14:24
808 Дата: Пятница, 03.02.2012, 14:28 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 10 ±
Замечаний: 0% ±

Другие решения вопроса тоже были бы очень полезны. спс.
 
Ответить
СообщениеДругие решения вопроса тоже были бы очень полезны. спс.

Автор - 808
Дата добавления - 03.02.2012 в 14:28
Саня Дата: Пятница, 03.02.2012, 14:29 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 1068
Репутация: 560 ±
Замечаний: 0% ±

XL 2016
[vba]
Code
ActiveWindow.DisplayFormulas = Not ActiveWindow.DisplayFormulas
[/vba]
 
Ответить
Сообщение[vba]
Code
ActiveWindow.DisplayFormulas = Not ActiveWindow.DisplayFormulas
[/vba]

Автор - Саня
Дата добавления - 03.02.2012 в 14:29
_Boroda_ Дата: Пятница, 03.02.2012, 14:29 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16715
Репутация: 6504 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Да просто все
Code
ActiveWindow.DisplayFormulas = Not (ActiveWindow.DisplayFormulas)

ну да, можно без скобок


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеДа просто все
Code
ActiveWindow.DisplayFormulas = Not (ActiveWindow.DisplayFormulas)

ну да, можно без скобок

Автор - _Boroda_
Дата добавления - 03.02.2012 в 14:29
808 Дата: Пятница, 03.02.2012, 15:06 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 10 ±
Замечаний: 0% ±

Сенкс, работает :-)
 
Ответить
СообщениеСенкс, работает :-)

Автор - 808
Дата добавления - 03.02.2012 в 15:06
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!