回答編集履歴
1
追記
test
CHANGED
|
@@ -1,6 +1,15 @@
|
|
|
1
1
|
```
|
|
2
|
+
Function oil_sum()
|
|
2
|
-
'
|
|
3
|
+
'変数
|
|
4
|
+
Dim element As Integer
|
|
5
|
+
Dim oil As Integer
|
|
6
|
+
|
|
7
|
+
With Application.ThisCell
|
|
8
|
+
oil = .Offset(-2).Value
|
|
9
|
+
element = IIf(.Offset(-1).Value = "", 0, .Offset(-3).Value)
|
|
10
|
+
End With
|
|
11
|
+
|
|
3
|
-
oil_sum =
|
|
12
|
+
oil_sum = oil + element
|
|
13
|
+
End Function
|
|
4
14
|
|
|
5
|
-
End Function
|
|
6
15
|
```
|