回答編集履歴
1
コードにコメントを追加
test
CHANGED
|
@@ -28,7 +28,7 @@
|
|
|
28
28
|
|
|
29
29
|
'- 転記元のシートを前面に表示していること
|
|
30
30
|
|
|
31
|
-
'- 転記先のシートがこのマクロが書かれ
|
|
31
|
+
'- 転記先のシートがこのマクロが書かれいるブックであること
|
|
32
32
|
|
|
33
33
|
|
|
34
34
|
|
|
@@ -64,7 +64,7 @@
|
|
|
64
64
|
|
|
65
65
|
'入力する空白セルの指定
|
|
66
66
|
|
|
67
|
-
Dim pasteCell As Excel.Range
|
|
67
|
+
Dim pasteCell As Excel.Range '元の処理の`InputRow`に相当する場所のセル
|
|
68
68
|
|
|
69
69
|
Set pasteCell = pasteWs.Cells(pasteWs.Rows.Count, "A").End(xlUp).Offset(1)
|
|
70
70
|
|
|
@@ -90,12 +90,16 @@
|
|
|
90
90
|
|
|
91
91
|
'コピペは以下でも可
|
|
92
92
|
|
|
93
|
-
'pasteCell.Value = mitumoriCell.Value
|
|
93
|
+
'pasteCell.Value() = mitumoriCell.Value()
|
|
94
|
+
|
|
95
|
+
|
|
94
96
|
|
|
95
97
|
|
|
96
98
|
|
|
97
99
|
'件名'を開いている転記元からコピーして転記先にペースト
|
|
98
100
|
|
|
101
|
+
'見積もり番号とやっていることはほぼ同じ
|
|
102
|
+
|
|
99
103
|
Set pasteCell = pasteWs.Cells(pasteWs.Rows.Count, "B").End(xlUp).Offset(1)
|
|
100
104
|
|
|
101
105
|
|
|
@@ -118,12 +122,16 @@
|
|
|
118
122
|
|
|
119
123
|
'コピペは以下でも可
|
|
120
124
|
|
|
121
|
-
'pasteCell.Value = kenmeiCell.Value
|
|
125
|
+
'pasteCell.Value() = kenmeiCell.Value()
|
|
126
|
+
|
|
127
|
+
|
|
122
128
|
|
|
123
129
|
|
|
124
130
|
|
|
125
131
|
'納入期日'を開いている転記元からコピーして転記先にペースト
|
|
126
132
|
|
|
133
|
+
'見積もり番号とやっていることはほぼ同じ
|
|
134
|
+
|
|
127
135
|
Set pasteCell = pasteWs.Cells(pasteWs.Rows.Count, "C").End(xlUp).Offset(1)
|
|
128
136
|
|
|
129
137
|
|
|
@@ -146,7 +154,9 @@
|
|
|
146
154
|
|
|
147
155
|
'コピペは以下でも可
|
|
148
156
|
|
|
149
|
-
'pasteCell.Value = nonyuCell.Value
|
|
157
|
+
'pasteCell.Value() = nonyuCell.Value()
|
|
158
|
+
|
|
159
|
+
|
|
150
160
|
|
|
151
161
|
|
|
152
162
|
|
|
@@ -170,10 +180,20 @@
|
|
|
170
180
|
|
|
171
181
|
)
|
|
172
182
|
|
|
183
|
+
'以下処理で選択したセルと同じものを取得しているはずです
|
|
184
|
+
|
|
185
|
+
'Range("C18").Select
|
|
186
|
+
|
|
187
|
+
'Range(Selection, Selection.End(xlDown)).Select
|
|
188
|
+
|
|
189
|
+
|
|
190
|
+
|
|
173
191
|
End With 'copyWs
|
|
174
192
|
|
|
175
193
|
|
|
176
194
|
|
|
195
|
+
|
|
196
|
+
|
|
177
197
|
hinmeiCell.Copy
|
|
178
198
|
|
|
179
199
|
pasteCell.PasteSpecial Paste:=xlPasteValues, _
|
|
@@ -186,7 +206,9 @@
|
|
|
186
206
|
|
|
187
207
|
'コピペは以下でも可
|
|
188
208
|
|
|
189
|
-
'pasteCell.Resize(hinmeiCell.Rows.Count).Value = hinmeiCell.Value
|
|
209
|
+
'pasteCell.Resize(hinmeiCell.Rows.Count).Value() = hinmeiCell.Value()
|
|
210
|
+
|
|
211
|
+
|
|
190
212
|
|
|
191
213
|
|
|
192
214
|
|
|
@@ -210,6 +232,18 @@
|
|
|
210
232
|
|
|
211
233
|
)
|
|
212
234
|
|
|
235
|
+
'以下処理で選択したセルと同じものを取得しているはずです
|
|
236
|
+
|
|
237
|
+
'元々入っていたので`.End(xlToRight)`を入れていますが要るのでしょうか？
|
|
238
|
+
|
|
239
|
+
'Range("F18:I18").Select
|
|
240
|
+
|
|
241
|
+
'Range(Selection, Selection.End(xlToRight)).Select
|
|
242
|
+
|
|
243
|
+
'Range(Selection, Selection.End(xlDown)).Select
|
|
244
|
+
|
|
245
|
+
|
|
246
|
+
|
|
213
247
|
End With 'copyWs
|
|
214
248
|
|
|
215
249
|
|
|
@@ -228,7 +262,7 @@
|
|
|
228
262
|
|
|
229
263
|
'With suryo_kingakuCell
|
|
230
264
|
|
|
231
|
-
'pasteCell.Resize(.Rows.Count, .Columns.Count).Value = .Value
|
|
265
|
+
'pasteCell.Resize(.Rows.Count, .Columns.Count).Value() = .Value()
|
|
232
266
|
|
|
233
267
|
'End With 'suryo_kingakuCell
|
|
234
268
|
|