質問編集履歴
4
補足を編集しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -11,18 +11,6 @@
|
|
|
11
11
|
※補足1
|
|
12
12
|
セルの範囲を指定する際には変数を使いたいので、Rangeとcellを組み合わせて範囲指定を行いたいです。
|
|
13
13
|
|
|
14
|
-
※補足2
|
|
15
|
-
記録用のエクセルファイルを開く前に
|
|
16
|
-
|
|
17
|
-
Dim ws As Worksheet
|
|
18
|
-
Set ws = ThisWorkbook.Worksheets("Sheet1")
|
|
19
|
-
|
|
20
|
-
というようにシートのオブジェクトを作るソースコードを追加し、
|
|
21
|
-
|
|
22
|
-
ws.Range(Cells(1, 1), Cells(3, 1)).Value = tmp
|
|
23
|
-
|
|
24
|
-
というように書き込みを行おうとしたのですが、この部分でエラーが起きてしまいます。
|
|
25
|
-
|
|
26
14
|
### 該当のソースコード
|
|
27
15
|
|
|
28
16
|
```VBA
|
3
補足を追加しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -21,7 +21,7 @@
|
|
|
21
21
|
|
|
22
22
|
ws.Range(Cells(1, 1), Cells(3, 1)).Value = tmp
|
|
23
23
|
|
|
24
|
-
というように書き込みを行おうとしたのですが、この部分でエラーが起きてします。
|
|
24
|
+
というように書き込みを行おうとしたのですが、この部分でエラーが起きてしまいます。
|
|
25
25
|
|
|
26
26
|
### 該当のソースコード
|
|
27
27
|
|
2
補足を追加しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -5,19 +5,19 @@
|
|
|
5
5
|
VBAが書き込まれている実行する用のexcelファイルと、記録用のexcelファイルの二つがあり、
|
|
6
6
|
両方のファイルのシートに2次元配列を用いて書き込みを行いたいのですが、
|
|
7
7
|
”Worksheets("Sheet1").Range(Cells(1, 1), Cells(3, 1)).Value = tmp”
|
|
8
|
-
の部分で、実行する用のexcelファイルのシートの指定ができず、書き込みが行えません。
|
|
8
|
+
の部分で、実行する用のexcelファイル（自分自身）のシートの指定ができず、書き込みが行えません。
|
|
9
9
|
何かいい方法はないでしょうか？
|
|
10
10
|
|
|
11
11
|
※補足1
|
|
12
12
|
セルの範囲を指定する際には変数を使いたいので、Rangeとcellを組み合わせて範囲指定を行いたいです。
|
|
13
13
|
|
|
14
14
|
※補足2
|
|
15
|
-
エクセルファイルを開く前に
|
|
15
|
+
記録用のエクセルファイルを開く前に
|
|
16
16
|
|
|
17
17
|
Dim ws As Worksheet
|
|
18
18
|
Set ws = ThisWorkbook.Worksheets("Sheet1")
|
|
19
19
|
|
|
20
|
-
というようにシートのオブジェクトを作るコードを追加し、
|
|
20
|
+
というようにシートのオブジェクトを作るソースコードを追加し、
|
|
21
21
|
|
|
22
22
|
ws.Range(Cells(1, 1), Cells(3, 1)).Value = tmp
|
|
23
23
|
|
1
補足を追加しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -4,14 +4,25 @@
|
|
|
4
4
|
|
|
5
5
|
VBAが書き込まれている実行する用のexcelファイルと、記録用のexcelファイルの二つがあり、
|
|
6
6
|
両方のファイルのシートに2次元配列を用いて書き込みを行いたいのですが、
|
|
7
|
-
”Worksheets("Sheet1").Range(Cells(1, 1), Cells(3, 1)).Value = tmp”
|
|
7
|
+
”Worksheets("Sheet1").Range(Cells(1, 1), Cells(3, 1)).Value = tmp”
|
|
8
8
|
の部分で、実行する用のexcelファイルのシートの指定ができず、書き込みが行えません。
|
|
9
9
|
何かいい方法はないでしょうか？
|
|
10
10
|
|
|
11
|
-
※補足
|
|
11
|
+
※補足1
|
|
12
12
|
セルの範囲を指定する際には変数を使いたいので、Rangeとcellを組み合わせて範囲指定を行いたいです。
|
|
13
13
|
|
|
14
|
+
※補足2
|
|
15
|
+
エクセルファイルを開く前に
|
|
14
16
|
|
|
17
|
+
Dim ws As Worksheet
|
|
18
|
+
Set ws = ThisWorkbook.Worksheets("Sheet1")
|
|
19
|
+
|
|
20
|
+
というようにシートのオブジェクトを作るコードを追加し、
|
|
21
|
+
|
|
22
|
+
ws.Range(Cells(1, 1), Cells(3, 1)).Value = tmp
|
|
23
|
+
|
|
24
|
+
というように書き込みを行おうとしたのですが、この部分でエラーが起きてします。
|
|
25
|
+
|
|
15
26
|
### 該当のソースコード
|
|
16
27
|
|
|
17
28
|
```VBA
|