teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

2

a

2018/01/24 09:54

投稿

ryzeal
ryzeal

スコア15

answer CHANGED
@@ -1,7 +1,7 @@
1
1
  ```VBA
2
2
  Application.ScreenUpdating = False
3
3
  for i = 1 to worksheets.count
4
- sheet(i).activate
4
+ sheets(i).activate
5
5
  range("A1").select
6
6
  Next
7
7
  Application.ScreenUpdating = true

1

書式修正

2018/01/24 09:54

投稿

ryzeal
ryzeal

スコア15

answer CHANGED
@@ -1,8 +1,10 @@
1
+ ```VBA
1
2
  Application.ScreenUpdating = False
2
3
  for i = 1 to worksheets.count
3
4
  sheet(i).activate
4
5
  range("A1").select
5
6
  Next
6
7
  Application.ScreenUpdating = true
8
+ ```
7
9
 
8
10
  これはだめですか?