如何编写VBA代码来隐藏Excel中的所有列和行标题？

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

以上是我的尝试，因为当我logging代码做到这一点时，它将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