質問編集履歴
1
コード修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -8,9 +8,9 @@
|
|
|
8
8
|
クラスにして使いまわせればと思っているのですがどのようにコードを書いたらいいでしょうか？
|
|
9
9
|
そもそもクラスを使うまでもないでしょうか？
|
|
10
10
|
以下実際に書いたコードになります。
|
|
11
|
+
```VBA
|
|
12
|
+
Sub NewForm_4() '合計時間の計算
|
|
11
13
|
|
|
12
|
-
Sub GetTotal() '合計時間の計算
|
|
13
|
-
|
|
14
14
|
Dim Total1, Total2, Total3, Total4, Total5, Total6 As Long
|
|
15
15
|
Set nws = Workbooks("実績集計表作成ver2.21").Worksheets("分析シート(作業者)")
|
|
16
16
|
LastRow = nws.Cells(Rows.Count, 1).End(xlUp).Row
|
|
@@ -45,8 +45,8 @@
|
|
|
45
45
|
Total6 = 0
|
|
46
46
|
|
|
47
47
|
End If
|
|
48
|
-
|
|
49
48
|
|
|
50
49
|
Next i
|
|
51
50
|
|
|
52
|
-
End Sub
|
|
51
|
+
End Sub
|
|
52
|
+
```
|