Excel（エクセル）活用コミュのSheet名を得られない

現在、Bookの中に、0.1～0.9と言う名前のシートが９枚あります。
For　j=1 Ro 9
s = 0.1 * j
For k = 1 To 320
Mesh(k) = Worksheets("s").Cells(k + 2, 2).Value
Next
Next
と言う風にシートの名前を、0.1*jで表現したのですが、
「インデックスが有効範囲にありません、とエラーが出てしまいます。どうしたらいいのでしょうか。お願いします。

コメント(13)

最初
全て
最新の40件

[3] mixiユーザー 03月02日 10:41

>Worksheets("s")・・・

インデックス番号で取得するなら、""は不要
シート名で取得するなら""は要りますが、その場合、「S」という名前のシートは存在しないという意味ではないでしょうか？

>0.1～0.9と言う名前のシート・・・
sが、変数であるのはわかるのですが、Str関数で文字型に置き換えて代入するというのはいかがですか。

[5] mixiユーザー 03月02日 10:54

あれ、Meshに保存するのは最後のシートの値でいいのかな?

[7] mixiユーザー 03月02日 12:23

For j = 1 To 9
　s = "0." & Trim(Str(j))
　For k = 1 To 320
　　mesh(k) = Worksheets(s).Cells(k + 2, 2).Value
　Next k
Next j

という感じです

尚これでは1.0は対応できないので、適用範囲限定です。

ちなみに
For j=0.1 to 0.9 step 0.1
のように書くと、ちょっとだけ簡略化できるかな。

[9] mixiユーザー 03月02日 12:59

こんにちは、トビ主です。解決しました。ありがとうございます。

[11] mixiユーザー 03月02日 13:09

For j = 1 To 9
　s = 0.1 * j
　s = "" & s & ""
　　　For k = 1 To 320
　　　　　mesh(k) = Worksheets(s).Cells(k + 2, 2).Value
　　　Next
Next

では駄目？

[12] mixiユーザー 03月02日 13:15

LCase（ｓ)でもいいかな。

[13] mixiユーザー 03月04日 10:06

Kusakabeさん
　StrではなくFormat関数でいいですか？("0.0")書式で。

どうもPrint#を思い出すのは・・・（若い頃にN88BASICを使って
たせいかｗ）

ログインすると、みんなのコメントがもっと見れるよ