VBA

質問

次のように偏差値を求めるプログラムを書くと、アプリケーションの定義エラーと表示されます。誰か理由をお教えください。

Sub hensati()

With Worksheets("C")

For i = 2 To 43
x = Cells(G, 1)
y = Cells(G, 2)
Cells(i, 3) = (Cells(i, 2) - x) / y * 10 + 50
Next i
End With
End Sub

回答No.2

merlionXX · ベストアンサー

わたしは偏差値の求め方は存じません。
でも
x = Cells(G, 1)
y = Cells(G, 2)
は、明らかにおかしいです。
G1、G2セルの意味なら
x = Range("G1")
y = Range("G2")
です。

お礼

どうもありがとうございました。ご指摘どおりにしたら、上手くいきました。

回答No.1

keirika

変数Gに値が設定されていない為にエラーが起きています。