如何编写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