回答編集履歴
1
回答内容の編集
answer
CHANGED
|
@@ -11,6 +11,8 @@
|
|
|
11
11
|
|
|
12
12
|
|
|
13
13
|
他のブックに書きうつすところはまだ検討していませんので、For文のところだけ書き換えてたものを記載します。
|
|
14
|
+
追記：ベストアンサーが設定されたようなので他ブックに書き写す部分の処理の検討はしません
|
|
15
|
+
|
|
14
16
|
これにより、正しいkousuの値が取得できるはずです。
|
|
15
17
|
今回は作業名を仮に`作業A`としています。
|
|
16
18
|
```VBA
|
|
@@ -37,7 +39,7 @@
|
|
|
37
39
|
MsgBox (Cells(1, j - 1).Value & "の 作業A工数は：" & kousu)
|
|
38
40
|
|
|
39
41
|
' 工数表のブックへ内容をコピーする処理
|
|
40
|
-
|
|
42
|
+
|
|
41
43
|
|
|
42
44
|
End If
|
|
43
45
|
|