[[20040228090218]] 『シート名をあいうえお順に並べたい』(砂波) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『シート名をあいうえお順に並べたい』(砂波)

シート名をあいうえお順に並べたいのですが方法を教えて頂けませんでしょうか。


 通常機能ではシートを並べ替えするような機能はありません。
 マクロになります。
以下、VBAコードです。

 Sub Sheet_Sort()
 Dim i As Integer

 Sheets.Add After:=Sheets(Sheets.Count)
 ActiveSheet.Name = "TEMP"

 For i = 1 To Sheets.Count - 1
 Cells(i, 1) = Sheets(i).Name
 Next

 Range("A1:A" & Sheets.Count - 1).Sort _
                Key1:=Range("A1"), _
                Order1:=xlAscending

 For i = 1 To Sheets.Count - 2
 Sheets(Sheets("TEMP").Cells(i, 1).Value).Move _
                Before:=Sheets(i)
 Next

 Application.DisplayAlerts = False
 Sheets("TEMP").Delete
 Application.DisplayAlerts = True
 End Sub

 (KAMIYA)

 師匠、漢字のシートネームがソートされるような、されないような...
 ぼそ、ぼそ、ぶつ、ぶつ...
      Ityamon(弥太郎)

 吸う毒達人(・・・なんだこの変換)
もとい、数独達人殿にコメントいただくのは久しぶりですね。
その点、わかっているのですが、ちょっと「意地悪」で具体例のご提出を願うために
意図的にその処理、はずしています。

 最近のスレッドで私が回答している、
[[20040225000631]]『フリガナ編集について』(すみ) 
で紹介しているSetPhoneticメソッドと組み合わせれば、と思っています。
これ発見してなかったら回答していなかったかも。
(KAMIYA)

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.