Question

我有一个按钮，它试图使用隐藏的受保护工作表中的值运行回归分析，并将信息吐出另一个隐藏的受保护工作表。我遇到的问题是，当我点击按钮时，我收到一条带有文字的消息：

因为您只选择了一个单元格而周围的单元格是空白，Microsoft Excel无法确定要应用的单元格 autoformat to。选择要格式化的单元格范围，然后单击再次使用自动套用格式。

我接收到其中三条消息，在单击“确定”之后，分析成功完成，代码按预期工作。那究竟是什么问题以及为什么我会看到它？

Sub Macro1()
' Macro1 Macro
    Dim n As Range
    Set n = Worksheets("Data Input & Summary").Range("D67")
    Application.ScreenUpdating = False
    ThisWorkbook.Unprotect Password:="PASSWORD"
    Worksheets("analysis 1").Unprotect Password:="PASSWORD"
    Worksheets("Regression").Unprotect Password:="PASSWORD"
    Worksheets("analysis 1").Visible = True
    Worksheets("analysis 1").Activate
     Application.Run "ATPVBAEN.XLAM!Regress", Worksheets("analysis 1").Range(Range("F6"), Range("F6").End(xlDown).Offset(-n)), _
        Worksheets("analysis 1").Range(Range("G6"), Range("G6").End(xlDown).Offset(-n)), False, False, 90, Worksheets("Regression").Range("$A$1") _
        , False, False, False, False, , False
    Range("K1").Select
    Worksheets("Data Input & Summary").Activate
    Worksheets("analysis 1").Protect Password:="PASSWORD"
    Worksheets("Regression").Protect Password:="PASSWORD"
    Worksheets("analysis 1").Visible = False
    Worksheets("Regression").Visible = False
    ThisWorkbook.Protect Password:="PASSWORD", Structure:=True, Windows:=False
    Application.ScreenUpdating = True
End Sub

我也对任何有关消除所有工作簿保护功能的已知建议持开放态度，我无法从主表中运行分析，其中包含另一张受保护表单上的信息，所以我认为这是唯一的解决方法。

运行分析宏时出现自动套用格式问题

0 个答案: