teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

1

書式の改善

2020/10/30 05:09

投稿

hana0118
hana0118

スコア8

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
  ここにより詳細な情報を記載してください。