質問編集履歴
1
一部コードの修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -47,7 +47,7 @@
|
|
|
47
47
|
'利益管理ファイルの担当者名と案件管理ファイルの担当者名が一致する
|
|
48
48
|
And Workbooks(RiekiBook).Worksheets(RiekiSheet).Cells(i, k).Value = Workbooks(TargetBook).Worksheets("Sheet1").Cells(2, x).MergeArea(1,1).Value Then
|
|
49
49
|
'利益管理ファイルの担当コストに案件管理表の人件費を転記
|
|
50
|
-
Workbooks(RiekiBook).Worksheets(RiekiSheet).Cells(i, j).Value = Workbooks(TargetBook).Worksheets("Sheet1").Cells(1
|
|
50
|
+
Workbooks(RiekiBook).Worksheets(RiekiSheet).Cells(i, j).Value = Workbooks(TargetBook).Worksheets("Sheet1").Cells(16,x).MergeArea(1,1).Value
|
|
51
51
|
Else
|
|
52
52
|
End if
|
|
53
53
|
Next k
|