[リストへもどる]
一括表示
投稿時間：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
後ろ省略
以上

投稿時間：2004/04/19(Mon) 12:19
投稿者名：Renard
Ｅメール：
ＵＲＬ　：
タイトル：Re: 定義エラーの直し方
> Ran2 = CInt(Rnd(1) * 37)
この値が0になると、エラーになるのでは？

投稿時間：2004/04/24(Sat) 21:49
投稿者名：夢さん
Ｅメール：yumetarou@pop21.odn.ne.jp
ＵＲＬ　：
タイトル：Re^2: 定義エラーの直し方
> > Ran2 = CInt(Rnd(1) * 37)
> この値が0になると、エラーになるのでは？

Renard さん　有難う御座いました。
暫く見てなくて、今日見せて頂ました。其の通りでした。・・・の定義エラーに惑わされました。
全て解決です。
又、なんかの時、お願いします。
Ｂｙ　夢さん