質問編集履歴
1
質問文、修正しました
title
CHANGED
File without changes
|
body
CHANGED
@@ -1,6 +1,22 @@
|
|
1
|
-
|
1
|
+
下記コードの内容で、Rangeの範囲が大きくなると、実行時エラーが出ます。
|
2
2
|
|
3
|
+
●エラーが出ない場合
|
4
|
+
```VBA
|
5
|
+
Sub Tenki()
|
3
6
|
|
7
|
+
Dim s01 As Worksheet
|
8
|
+
Dim s20 As Worksheet
|
9
|
+
|
10
|
+
Set s01 = Worksheets("O")
|
11
|
+
Set s20 = Worksheets("全体")
|
12
|
+
|
13
|
+
Range(s20.Cells(3, 1), s20.Cells(50000, 20)) = ClearContents
|
14
|
+
Range(s20.Cells(3, 1), s20.Cells(72, 20)).Value = Range(s01.Cells(3, 1), s01.Cells(72, 20)).Value
|
15
|
+
|
16
|
+
End Sub
|
17
|
+
```
|
18
|
+
|
19
|
+
●エラーが出る場合
|
4
20
|
```VBA
|
5
21
|
Sub Tenki()
|
6
22
|
|
@@ -11,7 +27,7 @@
|
|
11
27
|
Set s20 = Worksheets("全体")
|
12
28
|
|
13
29
|
Range(s20.Cells(3, 1), s20.Cells(50000, 20)) = ClearContents
|
14
|
-
Range(s20.Cells(3, 1), s20.Cells(
|
30
|
+
Range(s20.Cells(3, 1), s20.Cells(73, 20)).Value = Range(s01.Cells(3, 1), s01.Cells(73, 20)).Value
|
15
31
|
|
16
32
|
End Sub
|
17
33
|
```
|
@@ -21,10 +37,8 @@
|
|
21
37
|
「実行時エラー:6 オーバーフローしました。」
|
22
38
|
上記のようなエラーメッセージが出てしまいます。
|
23
39
|
エラーポイントは、
|
24
|
-
|
40
|
+
Range(s20.Cells(3, 1), s20.Cells(73, 20)).Value = Range(s01.Cells(3, 1), s01.Cells(73, 20)).Value
|
25
41
|
になります。
|
26
42
|
|
27
|
-
|
28
|
-
|
29
|
-
|
43
|
+
色々検証した結果、セルの行数が73より大きい数字のなると、上記エラーになります。
|
30
|
-
お分かりになる方いましたら、ご教授頂ければと思います。
|
44
|
+
原因がお分かりになる方いましたら、ご教授頂ければと思います。
|