VBAのシート名称取得について

質問

VBAにてシート名称を取得しシート１の一覧にまとめ、ハイパーリンクで一覧から各シートへ飛べるようにしています。

Dim retsu As Long,gyo As Long

For retsu = 1 To Worksheets.Count
'シート名称をリストに記入
ThisWorkbook.Worksheets(1).cells(gyo + 1, 2) = Worksheets(retsu).name
Next

このコードでシート名称を取得するとシート名称が「001」などの頭に０の数字があるとき、リスト上では「１」となってしまいます。
そのため、リスト上とシート名称が異なり、ハイパーリンクの設定時に参照エラーとなってしまいます。
桁数を問わずに「001」は「001」のまま、「１」は「１」のまま取得するにはどうすればよいでしょうか？

※シート名称には「1月度」などの文字列もあります。(数字の名称のみではありません)

回答No.3

mt2008 · ベストアンサー

ANo.1です。

もし、セルの書式を文字列に設定するところまでマクロでやりたいのなら
For retsu = 1 To Worksheets.Count　の、前に↓を入れてみて下さい。
ThisWorkbook.Worksheets(1).Columns("B").NumberFormatLocal = "@"

＃リストの範囲が解らないのでB列全体のセル書式を文字列に設定しています。

お礼

解説ありがとうございます。

動作確認をしてみます。

幸い今回のブックではB列は文字列にしたかったので、問題ありません。

回答No.2

dogs_cats

仮に数字が２桁になった場合でも３桁のシートになるので良いでしょうか。
（retsu=10の場合は010）

ThisWorkbook.Worksheets(1).cells(gyo + 1, 2) = Worksheets(right("00" & retsu,3)).name

補足

回答ありがとうございます。
今回はシート名称に桁をあわせる必要があります。
シート名称が10の場合は10
シート名称が010の場合は010で取得したいです。

回答No.1

mt2008

シート名を取得する時は「001」になっていますが、セルに貼り付けた時点で数値扱いになって「1」になっています。
貼り付けるセルの書式を予め文字列に設定しておけば「001」のまま貼り付けられるはずです。