Как написать код VBA, чтобы скрыть все заголовки столбцов и строк в Excel?

Question

Private Sub hideHeadings()
  Dim obj As Window
  For Each obj In Application.Windows
    obj.DisplayHeadings = False
  Next obj

End Sub

Выше приведена моя попытка, так как когда я записываю код, чтобы сделать это, происходит ActiveWindow.DisplayHeadings = false. Но я должен что-то упустить. Пожалуйста, помогите спасибо заранее.

Answer 1

Я думаю, что вы ничего не можете с этим поделать, кроме итерации на каждом листе.У меня получилось с этим кодом

Private Sub hideHeadings()
  Dim wrkbk As Workbook
  Dim wrksh As Worksheet
  Dim prev As Window

  Set prev = ActiveWindow

  For Each wrkbk In Workbooks
    For Each wrksh In wrkbk.Worksheets
        wrksh.Activate
        ActiveWindow.DisplayHeadings = False
    Next wrksh
  Next wrkbk

  prev.Activate

End Sub

Answer 2

Или коротко:

Sub HideShowRowColumnHeaders()
     ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings
End Sub

Answer 3

Код ниже переключает между скрытием и отображением заголовков в зависимости от их текущего статуса.Это может быть более полезным, так как иногда мы не хотим скрывать или показывать заголовки для всех листов в рабочей книге, кроме того, с которым мы сейчас работаем.

Sub HideShowRowColumnHeaders()

    Dim StatusOfHeadings As Boolean

    StatusOfHeadings = ActiveWindow.DisplayHeadings

    If StatusOfHeadings Then
            ActiveWindow.DisplayHeadings = False
        Else
        ActiveWindow.DisplayHeadings = True
    End If

End Sub