質問編集履歴
4
補足を編集しました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -21,30 +21,6 @@
|
|
21
21
|
※補足1
|
22
22
|
|
23
23
|
セルの範囲を指定する際には変数を使いたいので、Rangeとcellを組み合わせて範囲指定を行いたいです。
|
24
|
-
|
25
|
-
|
26
|
-
|
27
|
-
※補足2
|
28
|
-
|
29
|
-
記録用のエクセルファイルを開く前に
|
30
|
-
|
31
|
-
|
32
|
-
|
33
|
-
Dim ws As Worksheet
|
34
|
-
|
35
|
-
Set ws = ThisWorkbook.Worksheets("Sheet1")
|
36
|
-
|
37
|
-
|
38
|
-
|
39
|
-
というようにシートのオブジェクトを作るソースコードを追加し、
|
40
|
-
|
41
|
-
|
42
|
-
|
43
|
-
ws.Range(Cells(1, 1), Cells(3, 1)).Value = tmp
|
44
|
-
|
45
|
-
|
46
|
-
|
47
|
-
というように書き込みを行おうとしたのですが、この部分でエラーが起きてしまいます。
|
48
24
|
|
49
25
|
|
50
26
|
|
3
補足を追加しました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -44,7 +44,7 @@
|
|
44
44
|
|
45
45
|
|
46
46
|
|
47
|
-
というように書き込みを行おうとしたのですが、この部分でエラーが起きてします。
|
47
|
+
というように書き込みを行おうとしたのですが、この部分でエラーが起きてしまいます。
|
48
48
|
|
49
49
|
|
50
50
|
|
2
補足を追加しました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -12,7 +12,7 @@
|
|
12
12
|
|
13
13
|
”Worksheets("Sheet1").Range(Cells(1, 1), Cells(3, 1)).Value = tmp”
|
14
14
|
|
15
|
-
の部分で、実行する用のexcelファイルのシートの指定ができず、書き込みが行えません。
|
15
|
+
の部分で、実行する用のexcelファイル(自分自身)のシートの指定ができず、書き込みが行えません。
|
16
16
|
|
17
17
|
何かいい方法はないでしょうか?
|
18
18
|
|
@@ -26,7 +26,7 @@
|
|
26
26
|
|
27
27
|
※補足2
|
28
28
|
|
29
|
-
エクセルファイルを開く前に
|
29
|
+
記録用のエクセルファイルを開く前に
|
30
30
|
|
31
31
|
|
32
32
|
|
@@ -36,7 +36,7 @@
|
|
36
36
|
|
37
37
|
|
38
38
|
|
39
|
-
というようにシートのオブジェクトを作るコードを追加し、
|
39
|
+
というようにシートのオブジェクトを作るソースコードを追加し、
|
40
40
|
|
41
41
|
|
42
42
|
|
1
補足を追加しました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -10,7 +10,7 @@
|
|
10
10
|
|
11
11
|
両方のファイルのシートに2次元配列を用いて書き込みを行いたいのですが、
|
12
12
|
|
13
|
-
”Worksheets("Sheet1").Range(Cells(1, 1), Cells(3, 1)).Value = tmp”
|
13
|
+
”Worksheets("Sheet1").Range(Cells(1, 1), Cells(3, 1)).Value = tmp”
|
14
14
|
|
15
15
|
の部分で、実行する用のexcelファイルのシートの指定ができず、書き込みが行えません。
|
16
16
|
|
@@ -18,11 +18,33 @@
|
|
18
18
|
|
19
19
|
|
20
20
|
|
21
|
-
※補足
|
21
|
+
※補足1
|
22
22
|
|
23
23
|
セルの範囲を指定する際には変数を使いたいので、Rangeとcellを組み合わせて範囲指定を行いたいです。
|
24
24
|
|
25
25
|
|
26
|
+
|
27
|
+
※補足2
|
28
|
+
|
29
|
+
エクセルファイルを開く前に
|
30
|
+
|
31
|
+
|
32
|
+
|
33
|
+
Dim ws As Worksheet
|
34
|
+
|
35
|
+
Set ws = ThisWorkbook.Worksheets("Sheet1")
|
36
|
+
|
37
|
+
|
38
|
+
|
39
|
+
というようにシートのオブジェクトを作るコードを追加し、
|
40
|
+
|
41
|
+
|
42
|
+
|
43
|
+
ws.Range(Cells(1, 1), Cells(3, 1)).Value = tmp
|
44
|
+
|
45
|
+
|
46
|
+
|
47
|
+
というように書き込みを行おうとしたのですが、この部分でエラーが起きてします。
|
26
48
|
|
27
49
|
|
28
50
|
|