0

背景：这个项目被加载到全屏最大化。为了让它看起来不错，我拿出了标签、编辑栏、标题和状态栏。我创建了自己的从形状定制的按钮。这些确实有一些非常吸引人的颜色和 3D 视图，我想知道是我的代码或形状导致它加载缓慢。当我单击按钮更改页面时，就会发生这种情况。最初我的按钮宏只是更改页面，但我认为它很慢，因为我使用的是选择代码。worksheet.Activate 和 worksheets.range.select。并且代码在激活事件下的工作表私有子中。然后我从那里取出代码删除了选择标准，几乎感觉更慢。有什么办法可以加快速度吗？谢谢你。

此示例显示按钮如何位于每个工作表的顶部。这些按钮有 10 张，它们是形状。

顶部带有导航按钮的 1 个工作表示例 这是我现在使用的代码。此代码位于通用模块的公共子目录中。

Sub StartPg()
'ChangePagesmacro
    With wsStart.Application 'initiate page loading
        .Calculation = xlCalculationManual 'turn off calculations
        .ScreenUpdating = False 'turn off screen updates
        .EnableEvents = False 'disable events
        .Goto Reference:=wsStart.Range("A4"), Scroll:=True 'page starting point
        With .ActiveWindow
            If .FreezePanes Then .FreezePanes = False 'unfreeze panes to remove any jam up`enter code here`
            .SplitColumn = 0 'unsplit column to free up screen
            .SplitRow = 0 'unsplit row to free up screen
            .WindowState = xlMaximized 'maximize window
            .DisplayHeadings = False 'turn of page headings
            .DisplayFormulas = False ' hide formula bar
            .DisplayWorkbookTabs = False 'hide page tabs
            .DisplayGridlines = False 'hide gridlines
            .DisplayHorizontalScrollBar = True 'show scrollbar
            .DisplayVerticalScrollBar = True 'show scrollbar
            .Zoom = 81 'zoom and area
            .ScrollColumn = 1 'scroll to top
            .ScrollRow = 1 'scroll to left
            .SplitColumn = 0 'split colum to be frozen
            .SplitRow = 3 'split row to be frozen
            .FreezePanes = True 'freeze panes
        End With
    End With
    With wsStart
        .ScrollArea = "SAStart" 'set user scroll area
        With .Application
            .Calculation = xlCalculationAutomatic 'turn on calculations
            .ScreenUpdating = True ' turn on screen updates
            .EnableEvents = True ' turn on events
            .DisplayFormulaBar = False 'No formula bar
            .DisplayStatusBar = False 'No status bar
            .DisplayFullScreen = True ' show full screen
        End With
    End With

结束子

4

0 回答 0