0

毎月、情報を入力するために「オープン」を表示し、マネージャーが合計のみを表示するように「クローズ」を表示する新しいダッシュボードを作成する必要があります。シート「9 月」に次のマクロを作成しましたが、「移動またはコピー」を使用して 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

Siddharth が常に説教しているように、select から離れてください。マクロを記録することは常に良いことです。また、別のシートで動作させたい場合は、シートではなくモジュールに入れます。

于 2013-09-20T17:07:42.643 に答える