Вывести кнопку на панель (отображение нулей)

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Вывести кнопку на панель (отображение нулей) (Формулы/Formulas)

Невилл

Дата: Четверг, 25.06.2015, 16:30 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 79

Репутация: 2 ±

Замечаний: 0% ±

Excel 2007

Добрый день всем

Очень часто приходится пользоваться функцией "Показывать нуль в ячейках, которые содержат нулевые значения" из меню "Параметры"-"Дополнительно".
Вопрос: можно эту функцию как-то вывести на панель управления (ленту или риббон) для удобства? Никак не найду способ...

ОФФТОП:
Сразу извините, если ошибся темой. Не могу прочитать правила раздела почему-то. Не открываются вложенные списки в самих правилах (те, что со значком "+ чтобы открыть"). Браузер Мозилла ФФ свежий. Не знаю, в чем проблема...

Ответить

Manyasha

Дата: Четверг, 25.06.2015, 16:51 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 902 ±

Замечаний: 0% ±

Excel 2010, 2016

Невилл, почитайте похожую тему
Кнопки такой не знаю, но можно сделать свою и повесить макроc (его можно в Personal запихать, чтобы во всех книгах работал)

можно и без кнопки в Personal скопировать и на какие-нибудь клавиши повесить

ЯД: 410013299366744 WM: R193491431804

Ответить

Nic70y

Дата: Четверг, 25.06.2015, 16:53 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 9131

Репутация: 2415 ±

Замечаний: 0% ±

Excel 2010

А если сохранить в Личной книге макросов
на сочетание клавиш например:
1:[vba]

Код

ActiveWindow.DisplayZeros = False

[/vba]
2: [vba]

Код

ActiveWindow.DisplayZeros = True

[/vba]

ЮMoney 41001841029809

Ответить

KSV

Дата: Четверг, 25.06.2015, 16:56 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

Сохраните этот код в личную книгу макросов, создайте на ленте кнопку и назначьте ей это макрос
[vba]

Код

Sub DisplayZeros()
ActiveWindow.DisplayZeros = Not ActiveWindow.DisplayZeros
End Sub

[/vba]

[p.s.]Упс. уже понаписали...

[/p.s.]

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Сообщение отредактировал KSV - Четверг, 25.06.2015, 16:57

Ответить

Невилл

Дата: Пятница, 26.06.2015, 09:59 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 79

Репутация: 2 ±

Замечаний: 0% ±

Excel 2007

Спасибо, так и думал, что через макрос как-то. Решение подходит мне полностью.
Благодарю за код макроса

Ответить

Невилл

Дата: Пятница, 26.06.2015, 10:13 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 79

Репутация: 2 ±

Замечаний: 0% ±

Excel 2007

Вот так себе сделал в итоге:

[vba]

Код

Sub Zeros_Displayer()
     If ActiveWindow.DisplayZeros = False Then
     ActiveWindow.DisplayZeros = True
     Else: ActiveWindow.DisplayZeros = False
     End If

End Sub

[/vba]

Ответить

KSV

Дата: Пятница, 26.06.2015, 10:32 | Сообщение № 7

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

то же самое, но в одно действие

[vba]

Код

ActiveWindow.DisplayZeros = Not ActiveWindow.DisplayZeros

[/vba]

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Ответить

Невилл

Дата: Пятница, 26.06.2015, 13:25 | Сообщение № 8

Группа: Пользователи

Ранг: Участник

Сообщений: 79

Репутация: 2 ±

Замечаний: 0% ±

Excel 2007

KSV, точно, спасибо. Поправил у себя. К сожалению, с VBA очень редко работаю и чистота кода страдает))

Заодно уже и вторую ежедневную проблему себе зарешал благодаря Вам:
[vba]

Код

Sub SheetTabsVisible()
ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs
ActiveWindow.TabRatio = 0.264
End Sub

[/vba]

Для тех, кто работает с xls-файлами, которые экспортированы из 1С 7.7, может пригодиться, наверное.

Сообщение отредактировал Невилл - Пятница, 26.06.2015, 13:27

Ответить

Вывести кнопку на панель (отображение нулей) (Формулы/Formulas)

Страница 1 из 1
1