回答編集履歴
2
修正
answer
CHANGED
|
@@ -15,4 +15,3 @@
|
|
|
15
15
|
・平均値の計算をしていない
|
|
16
16
|
・ループの開始が0からになっている。Cellsの引数は1始まりです。
|
|
17
17
|
・sumを初期化していない
|
|
18
|
-
・VBAにIsTime関数はありません。
|
1
補足追記
answer
CHANGED
|
@@ -4,4 +4,15 @@
|
|
|
4
4
|
ハイフンなど気にせず、範囲指定で平均値が算出できました。
|
|
5
5
|
```
|
|
6
6
|
Application.WorksheetFunction.Average(Range("A1:J1"))
|
|
7
|
-
```
|
|
7
|
+
```
|
|
8
|
+
|
|
9
|
+
--
|
|
10
|
+
(追記)
|
|
11
|
+
セルの値が文字列の場合、提示されたコードで処理するにはいくつか問題があります。
|
|
12
|
+
・平均を求めるのに、数をカウントしていない
|
|
13
|
+
・シリアル値の算出はTimeSerial関数ではなく、TimeValue関数を使う。
|
|
14
|
+
TimeSerial関数は引数に、時・分・秒が必要です。
|
|
15
|
+
・平均値の計算をしていない
|
|
16
|
+
・ループの開始が0からになっている。Cellsの引数は1始まりです。
|
|
17
|
+
・sumを初期化していない
|
|
18
|
+
・VBAにIsTime関数はありません。
|