質問編集履歴
1
'On Error Resume Nextのコードを削除した際のエラーメッセージの内容を追記しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -10,7 +10,9 @@
|
|
|
10
10
|
### 発生している問題・エラーメッセージ
|
|
11
11
|
|
|
12
12
|
```
|
|
13
|
-
エラーメッセージが表示され
|
|
13
|
+
下記のコードを削除することでエラーメッセージが表示されます。
|
|
14
|
+
なお、エラー内容は｢実行エラー13 型が一致しません｣です。
|
|
15
|
+
'On Error Resume Next
|
|
14
16
|
```
|
|
15
17
|
|
|
16
18
|
### 該当のソースコード
|
|
@@ -33,12 +35,16 @@
|
|
|
33
35
|
|
|
34
36
|
|
|
35
37
|
### 試したこと
|
|
36
|
-
下記の通り別シートの選択を行った後に、配列を格納しようとしました。
|
|
38
|
+
１， 下記の通り別シートの選択を行った後に、配列を格納しようとしました。
|
|
37
39
|
結果としては、「入力」Sheetのデータが格納されてしまいました。
|
|
38
40
|
|
|
39
41
|
Worksheets("コードマスタ").Select
|
|
40
42
|
MasterDatas = Range("A1").CurrentRegion
|
|
41
43
|
|
|
44
|
+
２， 下記のコードを削除することでエラーメッセージが表示されます。
|
|
45
|
+
エラー内容は｢実行エラー13 型が一致しません｣です。
|
|
46
|
+
'On Error Resume Next
|
|
42
47
|
|
|
43
48
|
|
|
44
49
|
|
|
50
|
+
|