2

我对 VBA 很陌生，但通过阅读这些论坛，我找到了自己的方法。我从来没有遇到过 Application.ScreenUpdating 不工作的问题，在网上研究之后，我找不到我的问题的答案。

我在 excel 中创建了一个每日检查表应用程序，该应用程序在每日检查表中提供了月份视图。任务按行排列，您只需为日历上当天的任务选择是、否或不适用。您可以保存清单并将信息复制到单独选项卡中的数据表中。一切正常，除了保存信息时 Application.Screenupdating 不起作用并且用户最终看到数据表和日历视图之间的闪烁和来回跳转。

关于为什么 Application.ScreenUpdating 不会更改为 false 的任何想法或指导？我试过在不同的区域移动它，但似乎没有任何效果。

这是保存清单子：

Sub Save_Checklist()

Dim Checklist_Date
Dim Completed As Long
Dim Left_to_Complete As Long
Dim Database_Date As Range
Dim Database_Row As Long
Dim bScrUpdate

bScrUpdate = Application.ScreenUpdating
If bScrUpdate = True Then Application.ScreenUpdating = False

Worksheets("Database").Unprotect Password:="youngC"

If MsgBox("This button will save this month's checklist data into the database. All previous information will be overwritten. Would you like to continue?", vbYesNoCancel, "Reset the Calender") = vbYes Then

Checklist_Date = Worksheets("Daily Checklist").Range("E4").Value
Add_to = Worksheets("Daily Checklist").Range("AL1").Value
Range("E55").Select
ActiveCell.Resize(2, Add_to).Select
Selection.Copy

    On Error Resume Next
    With Worksheets("Database").Activate
        Range("A1:A366").Select
        Selection.Find(What:=Checklist_Date, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
            xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
            , SearchFormat:=False).Select
    On Error GoTo 0
        If Not Database_Date Is Nothing Then Application.Goto Database_Date, True
    End With

Selection.Offset(0, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=True


Worksheets("Database").Protect Password:="youngC"

Else
    MsgBox ("Please be sure all information is correct before saving it.")
End If

If Not Application.ScreenUpdating = bScrUpdate _
    Then Application.ScreenUpdating = bScrUpdate

End Sub

这是我在打开工作簿时运行的代码（我在“将任务添加到月份的日历”表中进行了分组）：

Private Sub Workbook_Open()
    Worksheets("Main Menu").Activate
    With Worksheets("Add Tasks to Month's Calendars")
    .EnableOutlining = True
    .Protect Password:="youngC", _
    Contents:=True, UserInterfaceOnly:=True
    End With
End Sub

任何帮助都将不胜感激。

谢谢，克里斯

4

2 回答 2

5

就我个人而言，我只是将 screenupdating 属性设置为 false 而不检查它，一旦 VBA 完成运行，屏幕将正常更新。

另外我认为问题在于打开工作表时运行的第二段代码不会将 screenupdating 设置为 false，因此您将看到您描述的所有动作。Excel 不记得 screenupdating 被先前的宏设置为 false ，即使它执行了代码，您仍然可以将其重新打开。您应该可以通过在第一行将 screenupdating 设置为 false 来解决此问题，修改如下所示。

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    Worksheets("Main Menu").Activate
    With Worksheets("Add Tasks to Month's Calendars")
    .EnableOutlining = True
    .Protect Password:="youngC", _
    Contents:=True, UserInterfaceOnly:=True
    End With
End Sub
于 2013-08-25T08:54:37.903 回答
1

如果您在运行期间打印调试它的状态，它将为假，但是当您处于调试模式时，它将始终为真，因为您的代码处于暂停模式，并且它会自动切换回真，直到您再次运行它在“快速”模式下

于 2019-12-24T00:50:04.993 回答