「Web出版サイト」ベータ公開

Q&A集[?]

当サイトでのご質問の受付は終了しました

すべてのコンテンツを読み込み専用としたため、回答欄からも投稿できません

Apache OpenOffice/LibreOfficeのご質問はそれぞれのフォーラムへご投稿ください

質問コーナー

サイト内検索

分類メニュー

関連サイト


本日:1
昨日:0
総数:1534
現在:4


n=0でエラー発生

ページOpenOffice.org FAQの登録ページ
投稿者とくさん
分類
edit/refer
優先順位
edit/refer
状態
edit/refer
カテゴリー
edit/refer
投稿日2010-08-07 07:21:48 (土)
OSWindowsXP
依存するページ
バージョン
edit/refer

メッセージ

回答ページでは行末に「~」を付加する必要はありません

下記のコードのn=0のところで
『許可されない値またはデータ型、定義された範囲外のインデックス。』
というエラーが出ます。
なんでや!という感じでまったく原因がわかりません。
どなたかご指導をお願いいたします。

    Public Redt(15,1000) As String
    Public Kefuk(8,9) As String
    Dim i As Integer
    Dim n As Integer
    i = 0
    Do While Redt(0,i) <> ""
     n = 0
     Do While Kefuk(0,n) <> ""
       If(  Redt(4,i) = Kefuk(3,n) And Redt(8,i) = "xxx" )Then
            Redt(11,i) = Kefuk(4,n)
            Exit Do
       End If
       n = n + 1
     Loop
     i = i + 1
    Loop

無題

ike@九州 (2010-08-07 09:47:10 (土))

i、n とも配列の上限(1000 及び 9)が設定されてます

Redt(0,i) Kefuk(0,n) は超えたらエラーになりますね。

上限なしってできますか?

とくさん (2010-08-07 09:53:45 (土))

ご指摘の通り上限を超えていたようです。
Kefuk(8,10)と修正したらエラーはなくなりました。
申し訳ありません。
あと、上限なしってできるんでしょうか?

配列について

M.Kamataki (2010-08-09 15:20:03 (月))

>あと、上限なしってできるんでしょうか?

意図するところが、よくわかりませんが、下記をご覧ください。データフィールド (配列) のインデックスについて、最小値、最大値などの紹介があります。また、データフィールドのサイズの動的変更の紹介もあります。プログラミングの参考になるでしょうか。

http://wiki.services.openoffice.org/wiki/JA/Documentation/BASIC_Guide/Arrays

おそくなりました、完了です。

とくさん (2010-08-27 13:21:40 (金))

遅くなりましたが、完了にさせていただきます。

お名前:
題名: