[kp+]

Кто знает, как в Excel по умолчанию выключить отображение нулей в пустых ячейках? Сейчас приходится для каждого листа (даже не для каждого файла, а именно листа) снимать галочку "отображать нули в ячейках с нулевыми значениями", достаЁт. А еще периодически сбивается
Нет ли способа выключить ее для всех листов всех файлов? Может какой-то ключ в реестре Win...
Еще в голове крутится написать макрос и закинуть в автозагрузку, но с vba плохо знаком, а "запись макроса", насколько помню, такие вещи не позволяет ...

[Кулик Алексей aka kpblc]

М.б., дело в шаблоне?

[Сергей812]

Сообщение от kp+ но с vba плохо знаком

ну так пора познакомится плотнее) Пробуйте

[kopekopa]

Можно написать процедуру в ВБА

Код:

[Выделить все]

Sub Ne_nujny_mne_nuli()

On Error Resume Next

For i = 1 To Worksheets.Count
Worksheets.Select
ActiveWindow.DisplayZeros = False
Next i
  
End Sub

Она убирает нули во всех листах книги
И вывести кнопочку этой процедуры на ленту. Или назначить процедуре сочетание клавиш Ctrl+ (что-нибудь). Так будет быстрее ... Как запускать процедуру для любой открывающейся книги автоматически - не знаю

[Сергей812]

Сообщение от kopekopa For i = 1 To Worksheets.Count Worksheets.Select

зачем внутри цикла по количеству листов выделять каждый раз коллекцию листов?

----- добавлено через ~27 мин. -----

Сообщение от kopekopa Как запускать процедуру для любой открывающейся книги автоматически - не знаю

да вариантов немного в VBA - создать надстройку и там подцепиться на событие App_WorkbookOpen открытия книги.

[kopekopa]

Сообщение от Сергей812 зачем

Извиняюсь, ВБА не использовал давно. Сработало - и норм)
Действительно, команда выделяет всю коллекцию, так что можно просто выделить все листы без цикла

Worksheets.Select
ActiveWindow.DisplayZeros = False

[Сергей812]

Сообщение от kopekopa так что можно просто выделить все листы без цикла

которые потом так и останутся выделенными) Я бы по другому написал, напрямую работая с объектной моделью экселя - примерно так:

Код:

[Выделить все]

Dim lSh As Worksheet, lW As Window
  For Each lSh In ThisWorkbook.Worksheets
    For Each lW In lSh.Application.Windows
      lW.DisplayZeros = False
    Next lW
  Next lSh

[kp+]

Сергей812, kopekopa, премного благодарен!

Сообщение от Кулик Алексей aka kpblc М.б., дело в шаблоне?

Без него в свое время не обошлось, но тогда не мешало, и не обращал внимания, а теперь приходится выковыривать из всех листов...