| |
こんにちは。
お世話になります。
昨日EXCEL2007から2010へのバージョンアップがありました。
今朝EXCELを開いたところ『保護されたビュー』が表示され、
『編集を有効にする』と、下記のエラーメッセージが出てしまします。
<実行時エラー1004>
『WorksheetクラスのActivateメソッドが失敗しました』
このエラーを解除したいのですが、どのようにすれば良いのでしょうか。
Worksheets("ABC").Activateというコードを入れてみたのですが…
ご教授をいただければ助かります。
どうぞよろしくお願い申し上げます。
-----------------------------------------------------------
Private Sub Workbook_Open()
Dim 開始日 As String
Dim 終了日 As String
開始日 = Format(Worksheets("ABC").Range("F3"), "yyyy/mm/dd")
終了日 = Format(Worksheets("ABC").Range("G3"), "yyyy/mm/dd")
Worksheets("ABC").Activate ←これを追加
Worksheets("ABC").Range("A5:M10000").AutoFilter Field:=4, _
Criteria1:=">=" & 開始日, _
Operator:=xlAnd, _
Criteria2:="<=" & 終了日
Worksheets("ABC").Range("A5:M10000") _
.Sort Key1:=Range("D5"), order1:=xlAscending, _
Key2:=Range("F5"), order2:=xlAscending, _
Key3:=Range("B5"), order3:=xlAscending
開始日 = Format(Worksheets("XYZ").Range("F3"), "yyyy/mm/dd")
終了日 = Format(Worksheets("XYZ").Range("G3"), "yyyy/mm/dd")
Worksheets("XYZ").Activate ←これを追加
Worksheets("XYZ").Range("A5:M10000").AutoFilter Field:=4, _
Criteria1:=">=" & 開始日, _
Operator:=xlAnd, _
Criteria2:="<=" & 終了日
Worksheets("XYZ").Activate
Worksheets("XYZ").Range("A5:M10000") _
.Sort Key1:=Range("D5"), order1:=xlAscending, _
Key2:=Range("F5"), order2:=xlAscending, _
Key3:=Range("B5"), order3:=xlAscending
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
