回答編集履歴
2
修正
test
CHANGED
|
@@ -32,6 +32,4 @@
|
|
|
32
32
|
|
|
33
33
|
・sumを初期化していない
|
|
34
34
|
|
|
35
|
-
・VBAにIsTime関数はありません。
|
|
36
35
|
|
|
37
|
-
|
1
補足追記
test
CHANGED
|
@@ -11,3 +11,27 @@
|
|
|
11
11
|
Application.WorksheetFunction.Average(Range("A1:J1"))
|
|
12
12
|
|
|
13
13
|
```
|
|
14
|
+
|
|
15
|
+
|
|
16
|
+
|
|
17
|
+
--
|
|
18
|
+
|
|
19
|
+
(追記)
|
|
20
|
+
|
|
21
|
+
セルの値が文字列の場合、提示されたコードで処理するにはいくつか問題があります。
|
|
22
|
+
|
|
23
|
+
・平均を求めるのに、数をカウントしていない
|
|
24
|
+
|
|
25
|
+
・シリアル値の算出はTimeSerial関数ではなく、TimeValue関数を使う。
|
|
26
|
+
|
|
27
|
+
TimeSerial関数は引数に、時・分・秒が必要です。
|
|
28
|
+
|
|
29
|
+
・平均値の計算をしていない
|
|
30
|
+
|
|
31
|
+
・ループの開始が0からになっている。Cellsの引数は1始まりです。
|
|
32
|
+
|
|
33
|
+
・sumを初期化していない
|
|
34
|
+
|
|
35
|
+
・VBAにIsTime関数はありません。
|
|
36
|
+
|
|
37
|
+
|