将VBA指令应用到所有sheet怎么写？

lk710618

我在个人宏工作簿中设置了一组可以隐藏编辑栏、水平垂直滚动条、工作表标签、行列标的快捷键，但其中行列标隐藏/显示的指令，不能应用在所有sheet中，请问老师，应该加一句什么，才可以让所有sheet中行列标都同时隐藏/显示呢？

自定义的代码如下：

Sub 快速全屏显示()
'
' 快速全屏显示 宏
'' 快捷键: Ctrl+Shift+Q
'
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFullScreen = True
    Application.DisplayFormulaBar = False
End Sub

Sub 取消全屏显示()
'
' 取消全屏显示 宏
' 快捷键: Ctrl+Shift+W
'
    With ActiveWindow
        .DisplayHorizontalScrollBar = True            ' 列滚动条
        .DisplayVerticalScrollBar = True              ' 行滚动条
        .DisplayWorkbookTabs = True                   ' 工作表标签
    End With
    ActiveWindow.DisplayHeadings = True               ' 行列标
    Application.DisplayFullScreen = False             ' 菜单
    Application.DisplayFormulaBar = True              ' 编辑栏
End Sub

冰封气流

for Each wb in worksheets
  With wb
    代码
  end with
next

lk710618

冰封气流 发表于 2024-9-11 16:45
for Each wb in worksheets
  With wb
    代码

我是用录制宏慢慢修改，然后放到“个人宏工作簿”中的，看不太懂你的方法，能麻烦你帮我修改一下吗

我把附件带上来，不过个人宏工作簿上传后，表中应该没有了的吧

lss001

lk710618 发表于 2024-9-11 17:01
我是用录制宏慢慢修改，然后放到“个人宏工作簿”中的，看不太懂你的方法，能麻烦你帮我修改一下吗:h ...

'应用所有SheetViews参考以下星号范围

Sub 快速全屏显示()
   ' 快速全屏显示 宏
   ' 快捷键: Ctrl+Shift+Q

    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
   
    '**************************************
    Set win = ActiveWorkbook.Windows(1)
    For Each Shv In Win.SheetViews
       shv.DisplayHeadings = False
    Next
    '**************************************

    Application.DisplayFullScreen = True
    Application.DisplayFormulaBar = False
End Sub

tdpzby

标准的类模块问题

lk710618

lss001 发表于 2024-9-11 18:47
'应用所有SheetViews参考以下星号范围

Sub 快速全屏显示()

非常感谢，完美解决