マクロでシート名「１」から繰返し処理したい

ＶＢＡの繰り返し処理でＷorksheets名が「1」から「100」の時はどう書くのでしょうか。
(「集計表」など他のシートも混じっているので左から１番目～100番目ではない)

For i = 1 To 100
Worksheets(i).Select
とすると名称「１」のシートでなく最左1番目からと見なされます。
Worksheets("i").Select
と書くと「i」名のシートと見なされ変数と認識されません。

「積算１」の様に他の字を混ぜると不思議と認識されます。
Worksheets("積算" & i ).Select　　の時はＯＫでした。

No.5 ベストアンサー 回答者： imogasi 回答日時： 2007/08/27 22:41

要は下記を実行すればわかります。

Sheet1－－＞1
Sheet2－－＞2
Sheet3－－＞3
とシート名変更。
ーーー
下記を実行。
Sub test01()
For i = 1 To 3
n = Trim(Str(i))
Sheets(n).Select
MsgBox "シート名確認"
Next i
End Sub

この回答へのお礼

imogasiさんには以前も確かお世話になったような・・。
また別の面から有り難うございます。

お礼日時：2007/08/28 21:04

No.4 回答者： noname#135138 回答日時： 2007/08/27 22:17

確実な方法です。

for ～ next にしていませんが、改造してください。

Dim i As Long
Dim i_Txt As String

i = 1
i_Txt = Str(i)

Worksheets(Right(i_Txt, Len(i_Txt) - 1)).Select

この回答へのお礼

たびたび有り難うございます。
やってみます。

お礼日時：2007/08/28 21:04

No.3 回答者： Wendy02 回答日時： 2007/08/27 22:16

こんばんは。

For i = 1 To 100
　Worksheets(CStr(i)).Select
Next

なお、Str関数は、もともと、VBの関数で、スペースが入ってしまいます。その場合は、Trim を使えばよいのです。

この回答へのお礼

Wendyさん、こんばんは。レスが遅れ申し訳ありません。
"Cstr"というのが有るんですね。さすがに良くご存知で・・。
使わせていただきます。
有り難うございました。

お礼日時：2007/08/28 21:03

No.2 回答者： noname#135138 回答日時： 2007/08/27 22:04

Str 関数を使うことで解決すると思うのですが．．．

ただし、注意が必要なのは Str 関数で数値を文字列に変換する際、
正の値を変換すると先頭にスペースが入りますので、ちょっと弄る必要があります。

Worksheets(Right(Str(i),len(Str(i))-1).Select

こんな感じでいかがでしょうか？

No.1 回答者： Zero_0 回答日時： 2007/08/27 21:48

sheets(i).select では、iは数値としてみてしまいます。

sheets("i").selectでは、シート名をiと見ます。
シート名は文字ですから、上記の方法ではダメです。
sheets(i & "").select　としてやってください。
正式な方法ではないですができると思います。

この回答へのお礼

ほかの件でトラブルがあったもので、レスが遅くなり大変失礼しました。
これアイデアですね。
「Worksheets("積算" & i ).Select」の時はＯＫと分かったら、自分で気がつかなきゃダメですよね。 (^_^;

お礼日時：2007/08/28 21:02