質問編集履歴
3
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -147,7 +147,7 @@
|
|
|
147
147
|
For i = 1 To UBound(tb)
|
|
148
148
|
|
|
149
149
|
'◆判定:合計時間(実験①～③の合計時間が12時間を超えるかどうか
|
|
150
|
-
If tb(i, 13) > TimeSerial(
|
|
150
|
+
If tb(i, 13) > TimeSerial(12, 0, 0) Then
|
|
151
151
|
|
|
152
152
|
x(i, 1) = tb(i, 13) - TimeSerial(6, 0, 0) - tb(i, 15)
|
|
153
153
|
Else
|
|
@@ -156,7 +156,7 @@
|
|
|
156
156
|
End If
|
|
157
157
|
|
|
158
158
|
'◆判定:合計時間(実験④～⑥の合計時間が12時間を超えるかどうか
|
|
159
|
-
If tb(i, 14) > TimeSerial(
|
|
159
|
+
If tb(i, 14) > TimeSerial(12, 0, 0) Then
|
|
160
160
|
|
|
161
161
|
x(i, 2) = tb(i, 14) - TimeSerial(8, 0, 0) - tb(i, 15)
|
|
162
162
|
Else
|
2
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -147,18 +147,18 @@
|
|
|
147
147
|
For i = 1 To UBound(tb)
|
|
148
148
|
|
|
149
149
|
'◆判定:合計時間(実験①～③の合計時間が12時間を超えるかどうか
|
|
150
|
-
If tb(i, 13) > TimeSerial(
|
|
150
|
+
If tb(i, 13) > TimeSerial(6, 0, 0) Then
|
|
151
151
|
|
|
152
|
-
x(i, 1) = tb(i, 13) - TimeSerial(
|
|
152
|
+
x(i, 1) = tb(i, 13) - TimeSerial(6, 0, 0) - tb(i, 15)
|
|
153
153
|
Else
|
|
154
154
|
x(i, 1) = TimeSerial(0,0,0)
|
|
155
155
|
|
|
156
156
|
End If
|
|
157
157
|
|
|
158
158
|
'◆判定:合計時間(実験④～⑥の合計時間が12時間を超えるかどうか
|
|
159
|
-
If tb(i, 14) > TimeSerial(
|
|
159
|
+
If tb(i, 14) > TimeSerial(8, 0, 0) Then
|
|
160
160
|
|
|
161
|
-
x(i, 2) = tb(i, 14) - TimeSerial(
|
|
161
|
+
x(i, 2) = tb(i, 14) - TimeSerial(8, 0, 0) - tb(i, 15)
|
|
162
162
|
Else
|
|
163
163
|
x(i, 2) = TimeSerial(0,0,0)
|
|
164
164
|
|
1
追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -139,3 +139,31 @@
|
|
|
139
139
|
End with
|
|
140
140
|
```
|
|
141
141
|
|
|
142
|
+
追記：
|
|
143
|
+
●CDate(timeserial)を使って計算を行った分を反映する処理
|
|
144
|
+
```VBA
|
|
145
|
+
tb = .Range("D4:R" & mRow)
|
|
146
|
+
ReDim x(1 To UBound(tb), 1 To 2)
|
|
147
|
+
For i = 1 To UBound(tb)
|
|
148
|
+
|
|
149
|
+
'◆判定:合計時間(実験①～③の合計時間が12時間を超えるかどうか
|
|
150
|
+
If tb(i, 13) > TimeSerial(12, 0, 0) Then
|
|
151
|
+
|
|
152
|
+
x(i, 1) = tb(i, 13) - TimeSerial(40, 0, 0) - tb(i, 15)
|
|
153
|
+
Else
|
|
154
|
+
x(i, 1) = TimeSerial(0,0,0)
|
|
155
|
+
|
|
156
|
+
End If
|
|
157
|
+
|
|
158
|
+
'◆判定:合計時間(実験④～⑥の合計時間が12時間を超えるかどうか
|
|
159
|
+
If tb(i, 14) > TimeSerial(12, 0, 0) Then
|
|
160
|
+
|
|
161
|
+
x(i, 2) = tb(i, 14) - TimeSerial(40, 0, 0) - tb(i, 15)
|
|
162
|
+
Else
|
|
163
|
+
x(i, 2) = TimeSerial(0,0,0)
|
|
164
|
+
|
|
165
|
+
End If
|
|
166
|
+
|
|
167
|
+
.Range("S4:T" & mRow) = x
|
|
168
|
+
```
|
|
169
|
+
|