エクセルのマクロ 型が一致しません

質問

どなたか教えて下さい。

Sub 血量計算( )

Dim N As Integer
Dim TOTAL As Single
Dim BLD As Single

N = 1
TOTAL = 0
BLD = 0

While Mid(ActiveCell, N, 1) <> Error
BLD = 0.5 ^ Mid(ActiveCell, N, 1) * 100
TOTAL = TOTAL + BLD
N = N + 2
Wend

MsgBox TOTAL & " %"

End Sub

BLD = 0.5 ^ Mid(ActiveCell, N, 1) * 100
ここが黄色くなり、型が違うと出てしまいます。

わかる方いらっしゃいましたら宜しくお願いします。

回答No.7

bunjii

BLD = 0.5 ^ Mid(ActiveCell, N, 1) * 100
>ここが黄色くなり、型が違うと出てしまいます。
回答No.5で説明が不十分のようですから補完します。
Mid(ActiveCell,N,1)はアクティブセルの値の先頭からN番目の1文字を指していますので数字（文字としての数字）でなければデータの型が違うので計算できません。
アクティブセルの模擬データを提示して頂ければ更に詳しく説明できます。
例えばA1セルがアクティブで値が文字列のA123であるときはN=1のときに次の計算でエラーになります。
Mid("A123",1,1) → "A"
= 0.5 ^ "A" * 100 → "A"が数字では無いのでデータの型が違うというエラー
しかし、A1セルの値が123Aのときは次のようになり、エラーが起らない。
Mid("123A",1,1) → "1"
= 0.5 ^ "1" * 100 → "1"は数字なので暗黙の了解事項で数値化して計算できる。
∴　= 0.5 ^ 1 * 100 → 0.5 * 100 → 50
Mid("123A",3,1) → "3"では同様に
= 0.5 ^ 3 * 100 → 0.125 * 100 → 12.5
左からN番目の文字が数字でないときに起るエラーなのでエラー処理をどうするかによって対策が異なります。
尚、While ～ Wendのループは途中で抜け難いのでDo While ～ Loopを使われた方が良いでしょう。

下記のコードはNの値がActiveCellの文字列長の範囲でDoループを繰り返し、N番目が数字以外の文字のときループから抜け出すようにしてあります。
参考になれば幸いです。
Sub 血量計算()
Dim N As Integer
Dim TOTAL As Single
Dim BLD As Single
N = 1
TOTAL = 0
BLD = 0
Do While Len(ActiveCell.Value) >= N
If Asc(Mid(ActiveCell, N, 1)) < 48 Or Asc(Mid(ActiveCell, N, 1)) > 57 Then Exit Do
BLD = 0.5 ^ Mid(ActiveCell, N, 1) * 100
TOTAL = TOTAL + BLD
N = N + 2
Loop
MsgBox TOTAL & " %"
End Sub