質問編集履歴
1
書式の改善
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -10,10 +10,8 @@
|
|
|
10
10
|
|
|
11
11
|
### 発生している問題・エラーメッセージ
|
|
12
12
|
|
|
13
|
-
```
|
|
14
|
-
エラーメッセージ
|
|
15
|
-
```
|
|
16
13
|
|
|
14
|
+
|
|
17
15
|
### 該当のソースコード
|
|
18
16
|
Sub E列の合計のみF列に移動()
|
|
19
17
|
|
|
@@ -73,9 +71,57 @@
|
|
|
73
71
|
|
|
74
72
|
|
|
75
73
|
### 試したこと
|
|
74
|
+
Sub C列に列を追加してC1のセルに作業内容D1に資料番号E1に作業時間F1に作業区分小計G1に図面区分小計と入力()
|
|
76
75
|
|
|
77
|
-
|
|
76
|
+
Columns(4).Insert 'C列に列を追加
|
|
78
77
|
|
|
78
|
+
Range("C1") = "作業内容"
|
|
79
|
+
Range("D1") = "資料番号"
|
|
80
|
+
Range("E1") = "作業時間"
|
|
81
|
+
Range("F1") = "作業区分小計"
|
|
82
|
+
Range("G1") = "図面区分小計"
|
|
83
|
+
|
|
84
|
+
End Sub
|
|
85
|
+
|
|
86
|
+
-----------------------------
|
|
87
|
+
|
|
88
|
+
Sub E列の合計のみF列に移動()
|
|
89
|
+
|
|
90
|
+
Dim r As Long
|
|
91
|
+
r = 2
|
|
92
|
+
Do While Cells(r, 5).Value <> ""
|
|
93
|
+
If Cells(r, 3).Value = "" Then
|
|
94
|
+
Cells(r, 6).Value = Cells(r, 5).Value
|
|
95
|
+
Cells(r, 5).Clear
|
|
96
|
+
End If
|
|
97
|
+
r = r + 1
|
|
98
|
+
Loop
|
|
99
|
+
|
|
100
|
+
End Sub
|
|
101
|
+
|
|
102
|
+
----------------------------------
|
|
103
|
+
|
|
104
|
+
Sub F列の合計のみG列に移動()
|
|
105
|
+
|
|
106
|
+
Dim r As Long
|
|
107
|
+
r = 2
|
|
108
|
+
Do While Cells(r, 6).Value <> ""
|
|
109
|
+
If Cells(r, 2).Value = "" Then
|
|
110
|
+
Cells(r, 7).Value = Cells(r, 6).Value
|
|
111
|
+
Cells(r, 6).Clear
|
|
112
|
+
End If
|
|
113
|
+
r = r
|
|
114
|
+
Loop
|
|
115
|
+
|
|
116
|
+
End Sub
|
|
117
|
+
|
|
118
|
+
|
|
119
|
+
|
|
120
|
+
上記の【Sub F列の合計のみG列に移動()】をマクロに追記してみましたが、
|
|
121
|
+
G列が全て結合されてしまってうまくいきませんでした。
|
|
122
|
+
|
|
123
|
+
|
|
124
|
+
|
|
79
125
|
### 補足情報（FW/ツールのバージョンなど）
|
|
80
126
|
|
|
81
127
|
ここにより詳細な情報を記載してください。
|