如何编写VBA代码以隐藏Excel中的所有列标题和行标题? [英] How to write VBA code to hide all the column and row headings in Excel?

问题描述

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

End Sub

以上是我的尝试，因为当我记录执行此操作的代码时，它变为ActiveWindow.DisplayHeadings = false.但是我一定想念一些东西.请提前帮助谢谢.

The above is my attempt, as when I recorded code to do it it goes ActiveWindow.DisplayHeadings = false. But I must be missing something. Please help thanks in advance.

推荐答案

我认为除了在每个工作表上进行迭代外，您无法执行任何其他操作.我用此代码成功

I think there is nothing you can do with that except iterating on each worksheet. I succeed with this code

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

这篇关于如何编写VBA代码以隐藏Excel中的所有列标题和行标题?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！