こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

VBA アプリケーション定義またはオブジェクト定義エラーについて

VBA アプリケーション定義またはオブジェクト定義エラーについて

VBA初心者です。
VISTA、エクセル2007を使用しています。
Private Sub printTotal1()
Cells(sRow, nPlayer + 2).Value = "Score"
Cells(sRow, nPlayer + 3).Value = "Average"
Dim score As Double
For iPlayer1 = 1 To nPlayer
score = 0
For iPlayer2 = 1 To nPlayer
score = score + Cells(sRow + iPlayer1, iPlayer2 + 1).Value
Next
Cells(sRow + iPlayer1, nPlayer + 2).Value = score
Cells(sRow + iPlayer1, nPlayer + 3).Value = score / nPlayer
Next
End Sub
このように記入しているのですがいつもエラーが出てしまいます。
どのような原因なのでしょうか?勉強不足ゆえにこんな荒い質問の仕方ですいません。

投稿日時 - 2010-07-17 12:32:43

QNo.6044403

困ってます

このQ&Aは役に立ちましたか?

26人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.3

エラーが出る原因は様々です。
また、提示されたコードではいくつかの変数の値が不明なので、動作を確認することも出来ません。

投稿日時 - 2010-07-17 13:04:33

ANo.2

sRow,
nPlayer
の値(特に初期値)はどうなってますか。
第2、3行を実行するまでに数値として決って居ないとおかしいと思うが。

投稿日時 - 2010-07-17 12:54:43

ANo.1

sRow,
nPlayer
の値(特に初期値)はどうなってますか。
第2、3行を実行するまでに決って居ないとおかしいと思うが。

投稿日時 - 2010-07-17 12:53:28

あなたにオススメの質問