回答編集履歴
1
追記
answer
CHANGED
|
@@ -2,28 +2,27 @@
|
|
|
2
2
|
rangeList = ThisWorkbook.Worksheet.Array("B16", "C16", "D16", "E16", "F16", "H16", "I16", "J16", "K16", "L16", "N16", "O16", "P16", "Q16", "R16", "S16", "T16", "U16") '転記先のセル位置を指定
|
|
3
3
|
|
|
4
4
|
```
|
|
5
|
-
ここがおかしいのですが
|
|
5
|
+
ここがおかしいのですが
|
|
6
|
-
(シート名が不明の為仮に"sheet1"としています。ActiveSheetでも可なんですがあっているかな？)
|
|
7
6
|
|
|
8
7
|
```vba
|
|
9
8
|
'転記先のセル位置を指定
|
|
10
9
|
ReDim rangeList(0 To 17) As Range
|
|
11
|
-
Set rangeList(0) = ThisWorkbook.Worksheets("
|
|
10
|
+
Set rangeList(0) = ThisWorkbook.Worksheets("入力フォーム").Range("B16")
|
|
12
|
-
Set rangeList(1) = ThisWorkbook.Worksheets("
|
|
11
|
+
Set rangeList(1) = ThisWorkbook.Worksheets("入力フォーム").Range("C16")
|
|
13
|
-
Set rangeList(2) = ThisWorkbook.Worksheets("
|
|
12
|
+
Set rangeList(2) = ThisWorkbook.Worksheets("入力フォーム").Range("D16")
|
|
14
|
-
Set rangeList(3) = ThisWorkbook.Worksheets("
|
|
13
|
+
Set rangeList(3) = ThisWorkbook.Worksheets("入力フォーム").Range("E16")
|
|
15
|
-
Set rangeList(4) = ThisWorkbook.Worksheets("
|
|
14
|
+
Set rangeList(4) = ThisWorkbook.Worksheets("入力フォーム").Range("F16")
|
|
16
|
-
Set rangeList(5) = ThisWorkbook.Worksheets("
|
|
15
|
+
Set rangeList(5) = ThisWorkbook.Worksheets("入力フォーム").Range("H16")
|
|
17
|
-
Set rangeList(6) = ThisWorkbook.Worksheets("
|
|
16
|
+
Set rangeList(6) = ThisWorkbook.Worksheets("入力フォーム").Range("I16")
|
|
18
|
-
Set rangeList(7) = ThisWorkbook.Worksheets("
|
|
17
|
+
Set rangeList(7) = ThisWorkbook.Worksheets("入力フォーム").Range("J16")
|
|
19
|
-
Set rangeList(8) = ThisWorkbook.Worksheets("
|
|
18
|
+
Set rangeList(8) = ThisWorkbook.Worksheets("入力フォーム").Range("K16")
|
|
20
|
-
Set rangeList(9) = ThisWorkbook.Worksheets("
|
|
19
|
+
Set rangeList(9) = ThisWorkbook.Worksheets("入力フォーム").Range("L16")
|
|
21
|
-
Set rangeList(10) = ThisWorkbook.Worksheets("
|
|
20
|
+
Set rangeList(10) = ThisWorkbook.Worksheets("入力フォーム").Range("N16")
|
|
22
|
-
Set rangeList(11) = ThisWorkbook.Worksheets("
|
|
21
|
+
Set rangeList(11) = ThisWorkbook.Worksheets("入力フォーム").Range("O16")
|
|
23
|
-
Set rangeList(12) = ThisWorkbook.Worksheets("
|
|
22
|
+
Set rangeList(12) = ThisWorkbook.Worksheets("入力フォーム").Range("P16")
|
|
24
|
-
Set rangeList(13) = ThisWorkbook.Worksheets("
|
|
23
|
+
Set rangeList(13) = ThisWorkbook.Worksheets("入力フォーム").Range("Q16")
|
|
25
|
-
Set rangeList(14) = ThisWorkbook.Worksheets("
|
|
24
|
+
Set rangeList(14) = ThisWorkbook.Worksheets("入力フォーム").Range("R16")
|
|
26
|
-
Set rangeList(15) = ThisWorkbook.Worksheets("
|
|
25
|
+
Set rangeList(15) = ThisWorkbook.Worksheets("入力フォーム").Range("S16")
|
|
27
|
-
Set rangeList(16) = ThisWorkbook.Worksheets("
|
|
26
|
+
Set rangeList(16) = ThisWorkbook.Worksheets("入力フォーム").Range("T16")
|
|
28
|
-
Set rangeList(17) = ThisWorkbook.Worksheets("
|
|
27
|
+
Set rangeList(17) = ThisWorkbook.Worksheets("入力フォーム").Range("U16")
|
|
29
28
|
```
|