0

每个月我都必须创建一个新的仪表板，显示“打开”供我输入信息，并显示“关闭”，以便经理只能看到总数。我在我的工作表“September”中创建了以下宏，但是当我使用“移动或复制”创建 10 月份的工作表（这是在同一个文件中）时，宏在新工作表中不起作用。这是隐藏和取消隐藏行和列的基本宏。（错误 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
4

1 回答 1

0 
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

正如悉达多总是宣扬的那样，远离选择。录制宏总是有好处的。此外，如果您希望它在不同的工作表上工作，请放入一个模块而不是工作表。

于 2013-09-20T17:07:42.643 回答