| 投稿日 | ： 2004/04/19(Mon) 11:56 |
| 投稿者 | ： 夢さん |
| Ｅメール | ： yumetarou@pop21.odn.ne.jp |
| ＵＲＬ | ： |
| タイトル | ： 定義エラーの直し方 |
みなさん 今日は 夢さんです
またまた基本的なことが分らなく困っています。教えてください。
以下を実行すると、”アプリケーションの定義エラー又はオブジェクト定義エラーです。”のエラーがでます。
途中まで動く時もあります。
何が悪いのでしょうか？教えてください。
前略
Ran2 = CInt(Rnd(1) * 37)
Cells(2, 30) = Ran2
If rannku = Cells(Ran2, 26) Then
For han = 4 To 21
Cells(2, 30 + han) = Cells(Ran2, han)
Cells(Ran2, han) = Cells(1, 30 + han)
Cells(RanS1, han) = Cells(2, 30 + han)
Next han
n = 0
GoTo pasu1
End If
後ろ省略
以上