Question

每个月我都要创建一个新的仪表板，我显示“打开”，输入信息，然后“关闭”，以便管理人员只查看总计。我在工作表“九月”中创建了以下宏，但是当我使用“移动或复制”创建十月的工作表（这是在同一个文件中）时，宏在新工作表中不起作用。这是隐藏和取消隐藏行和列的基本宏。（错误400）请帮忙;

Sub ShowClosed()
'
' ShowClosed Macro
'

'
    ActiveWindow.LargeScroll ToRight:=-1
    Columns("B:J").Select
    Selection.EntireColumn.Hidden = True
    Rows("4:10").Select
    Selection.EntireRow.Hidden = True
    Rows("12:19").Select
    Selection.EntireRow.Hidden = True
    Rows("21:28").Select
    Selection.EntireRow.Hidden = True
    Rows("30:37").Select
    Selection.EntireRow.Hidden = True
    Rows("39:46").Select
    Selection.EntireRow.Hidden = True
    Rows("48:48").Select
    Selection.EntireRow.Hidden = True
End Sub
Sub ShowOpen()
'
' ShowOpen Macro
'

'
    Columns("A:O").Select
    Selection.EntireColumn.Hidden = False
    Rows("2:53").Select
    Selection.EntireRow.Hidden = False
    Range("F10").Select
End Sub

Answer 1

Sub ShowClosed()


Columns("B:J").EntireColumn.Hidden = True
Rows("4:10").EntireRow.Hidden = True
Rows("12:19").EntireRow.Hidden = True
Rows("21:28").EntireRow.Hidden = True
Rows("30:37").EntireRow.Hidden = True
Rows("39:46").EntireRow.Hidden = True
Rows("48:48").EntireRow.Hidden = True


End Sub
Sub ShowOpen()
'
' ShowOpen Macro
'

Columns("A:O").EntireColumn.Hidden = False
Rows("2:53").EntireRow.Hidden = False

End Sub

Siddharth总是鼓吹，远离选择。录制宏总是很好。另外，如果您希望它在不同的工作表上工作，请放入模块而不是工作表。

复制工作表时，宏不起作用，错误400

1 个答案: