質問編集履歴
1
コードと実行結果を追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -40,13 +40,17 @@
|
|
|
40
40
|
|
|
41
41
|
Set ws1 = Worksheets("sheet1")
|
|
42
42
|
|
|
43
|
-
Set ws2 =
|
|
43
|
+
Set ws2 = ActiveSheet '追加項目
|
|
44
44
|
|
|
45
45
|
Set number = ws2.Range("C2")
|
|
46
46
|
|
|
47
47
|
Set number2 = ws2.Range("C3")
|
|
48
48
|
|
|
49
49
|
Set number3 = ws2.Range("C4")
|
|
50
|
+
|
|
51
|
+
|
|
52
|
+
|
|
53
|
+
ws2.Name = ws2.Range("C1") '追加項目
|
|
50
54
|
|
|
51
55
|
|
|
52
56
|
|
|
@@ -112,15 +116,19 @@
|
|
|
112
116
|
|
|
113
117
|
|
|
114
118
|
|
|
115
|
-
End If
|
|
119
|
+
End If
|
|
120
|
+
|
|
121
|
+
|
|
122
|
+
|
|
123
|
+
|
|
124
|
+
|
|
125
|
+
|
|
116
126
|
|
|
117
127
|
End Sub
|
|
118
128
|
|
|
119
|
-
|
|
120
|
-
|
|
121
129
|
```
|
|
122
130
|
|
|
123
|
-
|
|
131
|
+
|
|
124
132
|
|
|
125
133
|
### 試したこと
|
|
126
134
|
|