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

解決済みの質問

VBAのこの実行時エラーは何故起きる?

ExcelVBAで次の大変簡単なコードを書いてみました。
シート上の行列(100*100)の範囲にランダムに☆印を100個表示するというものです。sheet1にコマンドボタンを貼り付け押すと実行します。ところが実行時エラーが起きて止まります。(メッセージ:”アプリケーション定義またはオブジェクト定義のエラーです”)原因はなんでしょうか?6行目が問題なようです。うまく動く時もあるので不思議です。
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For n = 1 To 100
R = Int(Rnd * 100)
C = Int(Rnd * 100)
Sheet1.Cells(R, C).Value = "☆"
Next
Application.ScreenUpdating = True
End Sub

投稿日時 - 2001-07-18 21:37:43

QNo.106223

暇なときに回答ください

質問者が選んだベストアンサー

R,Cに0が設定されるからではないでしょか?
EXCELのセルは1,1から始まったと思いますが。

R = Int((Rnd * 100) +1)
C = Int((Rnd * 100) +1)

投稿日時 - 2001-07-18 22:11:30

お礼

なるほど!そういうことですね。
ありがとうございます。

投稿日時 - 2001-07-18 22:39:43

ANo.1

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

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

回答(1)

あなたにオススメの質問