質問編集履歴
1
書式の改善
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -22,11 +22,7 @@
|
|
|
22
22
|
|
|
23
23
|
|
|
24
24
|
|
|
25
|
-
|
|
25
|
+
|
|
26
|
-
|
|
27
|
-
エラーメッセージ
|
|
28
|
-
|
|
29
|
-
```
|
|
30
26
|
|
|
31
27
|
|
|
32
28
|
|
|
@@ -148,9 +144,105 @@
|
|
|
148
144
|
|
|
149
145
|
### 試したこと
|
|
150
146
|
|
|
151
|
-
|
|
147
|
+
Sub C列に列を追加してC1のセルに作業内容D1に資料番号E1に作業時間F1に作業区分小計G1に図面区分小計と入力()
|
|
148
|
+
|
|
149
|
+
|
|
150
|
+
|
|
152
|
-
|
|
151
|
+
Columns(4).Insert 'C列に列を追加
|
|
152
|
+
|
|
153
|
+
|
|
154
|
+
|
|
155
|
+
Range("C1") = "作業内容"
|
|
156
|
+
|
|
157
|
+
Range("D1") = "資料番号"
|
|
158
|
+
|
|
159
|
+
Range("E1") = "作業時間"
|
|
160
|
+
|
|
161
|
+
Range("F1") = "作業区分小計"
|
|
162
|
+
|
|
163
|
+
Range("G1") = "図面区分小計"
|
|
164
|
+
|
|
165
|
+
|
|
166
|
+
|
|
167
|
+
End Sub
|
|
168
|
+
|
|
169
|
+
|
|
170
|
+
|
|
171
|
+
-----------------------------
|
|
172
|
+
|
|
173
|
+
|
|
174
|
+
|
|
175
|
+
Sub E列の合計のみF列に移動()
|
|
176
|
+
|
|
177
|
+
|
|
178
|
+
|
|
179
|
+
Dim r As Long
|
|
180
|
+
|
|
181
|
+
r = 2
|
|
182
|
+
|
|
183
|
+
Do While Cells(r, 5).Value <> ""
|
|
184
|
+
|
|
185
|
+
If Cells(r, 3).Value = "" Then
|
|
186
|
+
|
|
187
|
+
Cells(r, 6).Value = Cells(r, 5).Value
|
|
188
|
+
|
|
189
|
+
Cells(r, 5).Clear
|
|
190
|
+
|
|
191
|
+
End If
|
|
192
|
+
|
|
193
|
+
r = r + 1
|
|
194
|
+
|
|
195
|
+
Loop
|
|
196
|
+
|
|
197
|
+
|
|
198
|
+
|
|
199
|
+
End Sub
|
|
200
|
+
|
|
201
|
+
|
|
202
|
+
|
|
203
|
+
----------------------------------
|
|
204
|
+
|
|
205
|
+
|
|
206
|
+
|
|
207
|
+
Sub F列の合計のみG列に移動()
|
|
208
|
+
|
|
209
|
+
|
|
210
|
+
|
|
211
|
+
Dim r As Long
|
|
212
|
+
|
|
213
|
+
r = 2
|
|
214
|
+
|
|
215
|
+
Do While Cells(r, 6).Value <> ""
|
|
216
|
+
|
|
217
|
+
If Cells(r, 2).Value = "" Then
|
|
218
|
+
|
|
219
|
+
Cells(r, 7).Value = Cells(r, 6).Value
|
|
220
|
+
|
|
221
|
+
Cells(r, 6).Clear
|
|
222
|
+
|
|
223
|
+
End If
|
|
224
|
+
|
|
225
|
+
r = r
|
|
226
|
+
|
|
227
|
+
Loop
|
|
228
|
+
|
|
229
|
+
|
|
230
|
+
|
|
231
|
+
End Sub
|
|
232
|
+
|
|
233
|
+
|
|
234
|
+
|
|
235
|
+
|
|
236
|
+
|
|
237
|
+
|
|
238
|
+
|
|
239
|
+
上記の【Sub F列の合計のみG列に移動()】をマクロに追記してみましたが、
|
|
240
|
+
|
|
153
|
-
|
|
241
|
+
G列が全て結合されてしまってうまくいきませんでした。
|
|
242
|
+
|
|
243
|
+
|
|
244
|
+
|
|
245
|
+
|
|
154
246
|
|
|
155
247
|
|
|
156
248
|
|