VBA 行の先頭で数値判定しその列の書式を変たい

質問

エクセルVBA初心者です。
12～20行目の先頭（4列目）が数値か判定し、数値であれば、10～12列目の数式を書き換えるようにしたいのですが、IsNumeric判定がうまく機能せず、全ての行の数式を書き換えてしまいます。
どなたか理由が分かる方がおりましたらご教示頂けます様、お願い致します。

Dim myROW, m1, m2, i As Integer
Worksheets("１").Activate
For i = 12 To 20
myROW = i
m1 = 1
m2 = 2
If IsNumeric(Cells(myROW, 4)) = True Then
Cells(myROW, 10) = "=ROUND(SUM(J" & m1 & ":J" & m2 & "),0)"
Cells(myROW, 11) = "=ROUND(SUM(k" & m1 & ":k" & m2 & "),0)"
Cells(myROW, 12) = "=ROUND(SUM(l" & m1 & ":l" & m2 & "),0)"
Else
End If
Next

回答No.1

mt2008 · ベストアンサー

IsNumeric関数は、空白を数値（0）として判別しますし、「1,2,3」の様な文字列も数値と判別してしまいます。
ワークシート関数のIsNumber関数を使いましょう。

If IsNumeric(Cells(myROW, 4)) = True Then
↓
If WorksheetFunction.IsNumber(Cells(myROW, 4)) = True Then

お礼

ご回答ありがとうございます。
納得いたしました。