ソースの書き換えに挑戦中： 「インデックスが有効範囲にありません」 でお手上げ

質問

この Q&A サイトで「Kaplan-Meyer 生存分析に便利なソフトを教えて」と質問した shuu_01 です。「Kaplan-Meyer 生存分析」の VisualBasic のソースのありかを聞き、欲しい機能を追加しようと、書き換えに挑戦しましたが、今まで　VisualBasic の経験がなく、１歩目でつまずいてます：

Sub km_test()
Dim dm As Range, nc As Integer, t() As Double, i As Integer
Set dm = Application.InputBox(prompt:="生存時間データの範囲（1列）を入力:", Title:="生存時間", Type:=8)
nc = dm.Rows.Count

For i = 1 To nc
t(i) = dm(i)
Next i
End Sub

生存時間データを入力し、変数にデータを移すだけの簡単なソースなのですが、t(i) = dm(i)　の行で、

　実行時エラー 'g'
　インデックスが有効範囲にありません

と途中でストップします。僕が書き換える前の似たようなソースではエラーなく通っており、僕にはどこが違うのかわかりません。

回答No.2

popesyu · ベストアンサー

dmの件にあわせてtも動的配列なのに、redimで初期化が行われていません。
この辺のサイトを参考に配列の基本を確認しましょう。
http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_070_07.html

ただしその辺の矛盾をなくしたとしてもそのコードではまともに動かないでしょう。とりあえずその部分を読んだだけでは意図は何となく分かりますが、作り直す必要があるかと思います。

こちらを参考に。
配列を使ったセル処理の参考
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_array.html

お礼

popesyu さん、完璧な回答ありがとうございます。
ReDim で初期化をして、そのエラーは出なくなりました。
そして popesyu さんのご明察のとおり、次のエラーにぶちあたりましたが、教えてくださったサイトに答えがありそうなので一生懸命勉強します。本当にありがとう(^_^)v

回答No.1

okormazd

Dim dm As Range
dmは配列じゃないし、
dm(i)
は配列だし、
どこが違うのだろう。

お礼

okormazd さん、とても早い回答ありがとう。