回答編集履歴

2

誤りの修正

2021/01/26 00:54

投稿

退会済みユーザー
test CHANGED
@@ -2,7 +2,7 @@
2
2
 
3
3
  ```VBA
4
4
 
5
- SourceData:=worksheets(8).range(cells(1,1),cells(i,j))"
5
+ SourceData:=worksheets(8).range(cells(1,1),cells(i,j))
6
6
 
7
7
  ```
8
8
 
@@ -40,4 +40,4 @@
40
40
 
41
41
 
42
42
 
43
- [参照コード](https://excel-ubara.com/excelvba1/EXCELVBA393.html)
43
+ [その他参照コード](https://excel-ubara.com/excelvba1/EXCELVBA393.html)

1

誤りの修正

2021/01/26 00:54

投稿

退会済みユーザー
test CHANGED
@@ -1,22 +1,32 @@
1
1
  構文エラーは文字通り構文エラーです。
2
-
3
- 正確な記述を行ってください。
4
2
 
5
3
  ```VBA
6
4
 
7
- SourceData:="worksheets(8).range(cells(1,1),cells(i,j)")
5
+ SourceData:=worksheets(8).range(cells(1,1),cells(i,j))"
8
6
 
9
7
  ```
10
8
 
11
9
  SourceDataは文字列データで指定する必要があります。
12
10
 
13
- ""で囲んでください。
11
+ ~~""で囲んでください。~~
12
+
13
+ 上記の定義が正確ではないのでオブジェクト定義エラーが返ってきていました。
14
+
15
+ ```VBA
16
+
17
+ SourceData:=worksheets(8).range(worksheets(8).cells(1,1),worksheets(8).cells(i,j))
18
+
19
+ ```
20
+
21
+ この形であれば構文エラーはなくなりますが、SourceDataの引数にエラーがでます。
22
+
23
+
14
24
 
15
25
  ```VBA
16
26
 
17
27
  dim test
18
28
 
19
- test = "worksheets(8).range(cells(1,1),cells(i,j)"
29
+ test = worksheets(8).range(worksheets(8).cells(1,1),worksheets(8).cells(i,j)).address
20
30
 
21
31
  ~略~
22
32
 
@@ -24,7 +34,9 @@
24
34
 
25
35
  ```
26
36
 
27
- のような形も通ります。
37
+ 内部データが文字列あれば変数で指定できます。
38
+
39
+ 他の回答者が.Addressでの指定方法を記載していますのでそちらを参照しました。
28
40
 
29
41
 
30
42