回答編集履歴

1

修正(元と先を取り違えていたのを修正)

2021/03/14 10:37

投稿

jinoji
jinoji

スコア4592

test CHANGED
@@ -1,12 +1,12 @@
1
- こんな感じでどうでしょうか。
1
+ こんな感じでどうでしょうか。(修正しました)
2
2
 
3
3
  ```VBA
4
4
 
5
5
  Dim moto As Worksheet, saki As Worksheet
6
6
 
7
- Set moto = Workbooks.Open("C:\Users\tkyks\Desktop\data.xlsx").Worksheets(1)
7
+ Set moto = ThisWorkbook.Worksheets(1)
8
8
 
9
- Set saki = ThisWorkbook.Worksheets(1)
9
+ Set saki = Workbooks.Open("C:\Users\tkyks\Desktop\data.xlsx").Worksheets(1)
10
10
 
11
11
 
12
12