回答編集履歴
1
追記
test
CHANGED
@@ -6,9 +6,7 @@
|
|
6
6
|
|
7
7
|
```
|
8
8
|
|
9
|
-
ここがおかしいのですが
|
9
|
+
ここがおかしいのですが
|
10
|
-
|
11
|
-
(シート名が不明の為仮に"sheet1"としています。ActiveSheetでも可なんですがあっているかな?)
|
12
10
|
|
13
11
|
|
14
12
|
|
@@ -18,40 +16,40 @@
|
|
18
16
|
|
19
17
|
ReDim rangeList(0 To 17) As Range
|
20
18
|
|
21
|
-
Set rangeList(0) = ThisWorkbook.Worksheets("
|
19
|
+
Set rangeList(0) = ThisWorkbook.Worksheets("入力フォーム").Range("B16")
|
22
20
|
|
23
|
-
Set rangeList(1) = ThisWorkbook.Worksheets("
|
21
|
+
Set rangeList(1) = ThisWorkbook.Worksheets("入力フォーム").Range("C16")
|
24
22
|
|
25
|
-
Set rangeList(2) = ThisWorkbook.Worksheets("
|
23
|
+
Set rangeList(2) = ThisWorkbook.Worksheets("入力フォーム").Range("D16")
|
26
24
|
|
27
|
-
Set rangeList(3) = ThisWorkbook.Worksheets("
|
25
|
+
Set rangeList(3) = ThisWorkbook.Worksheets("入力フォーム").Range("E16")
|
28
26
|
|
29
|
-
Set rangeList(4) = ThisWorkbook.Worksheets("
|
27
|
+
Set rangeList(4) = ThisWorkbook.Worksheets("入力フォーム").Range("F16")
|
30
28
|
|
31
|
-
Set rangeList(5) = ThisWorkbook.Worksheets("
|
29
|
+
Set rangeList(5) = ThisWorkbook.Worksheets("入力フォーム").Range("H16")
|
32
30
|
|
33
|
-
Set rangeList(6) = ThisWorkbook.Worksheets("
|
31
|
+
Set rangeList(6) = ThisWorkbook.Worksheets("入力フォーム").Range("I16")
|
34
32
|
|
35
|
-
Set rangeList(7) = ThisWorkbook.Worksheets("
|
33
|
+
Set rangeList(7) = ThisWorkbook.Worksheets("入力フォーム").Range("J16")
|
36
34
|
|
37
|
-
Set rangeList(8) = ThisWorkbook.Worksheets("
|
35
|
+
Set rangeList(8) = ThisWorkbook.Worksheets("入力フォーム").Range("K16")
|
38
36
|
|
39
|
-
Set rangeList(9) = ThisWorkbook.Worksheets("
|
37
|
+
Set rangeList(9) = ThisWorkbook.Worksheets("入力フォーム").Range("L16")
|
40
38
|
|
41
|
-
Set rangeList(10) = ThisWorkbook.Worksheets("
|
39
|
+
Set rangeList(10) = ThisWorkbook.Worksheets("入力フォーム").Range("N16")
|
42
40
|
|
43
|
-
Set rangeList(11) = ThisWorkbook.Worksheets("
|
41
|
+
Set rangeList(11) = ThisWorkbook.Worksheets("入力フォーム").Range("O16")
|
44
42
|
|
45
|
-
Set rangeList(12) = ThisWorkbook.Worksheets("
|
43
|
+
Set rangeList(12) = ThisWorkbook.Worksheets("入力フォーム").Range("P16")
|
46
44
|
|
47
|
-
Set rangeList(13) = ThisWorkbook.Worksheets("
|
45
|
+
Set rangeList(13) = ThisWorkbook.Worksheets("入力フォーム").Range("Q16")
|
48
46
|
|
49
|
-
Set rangeList(14) = ThisWorkbook.Worksheets("
|
47
|
+
Set rangeList(14) = ThisWorkbook.Worksheets("入力フォーム").Range("R16")
|
50
48
|
|
51
|
-
Set rangeList(15) = ThisWorkbook.Worksheets("
|
49
|
+
Set rangeList(15) = ThisWorkbook.Worksheets("入力フォーム").Range("S16")
|
52
50
|
|
53
|
-
Set rangeList(16) = ThisWorkbook.Worksheets("
|
51
|
+
Set rangeList(16) = ThisWorkbook.Worksheets("入力フォーム").Range("T16")
|
54
52
|
|
55
|
-
Set rangeList(17) = ThisWorkbook.Worksheets("
|
53
|
+
Set rangeList(17) = ThisWorkbook.Worksheets("入力フォーム").Range("U16")
|
56
54
|
|
57
55
|
```
|