takayukisの日記 このページをアンテナに追加 RSSフィード

2018.04.26(木)

[]シート名の一覧

シート名の一覧をセルに出力します。

Sub シート名の一覧()
    Dim 更新状態
    更新状態 = Application.ScreenUpdating
    Application.ScreenUpdating = False
    Set 範囲 = Selection
    Dim カウンタ As Long
    カウンタ = 0
    DimAs Range
    For Each i In ActiveWorkbook.Sheets
        Set= 範囲.Offset(カウンタ, 0).Value = i.Name
        カウンタ = カウンタ + 1
    Next i
    Application.ScreenUpdating = 更新状態
End Sub

はてなユーザーのみコメントできます。はてなへログインもしくは新規登録をおこなってください。

トラックバック - http://d.hatena.ne.jp/takayukis/20180426/1524751109