[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『シート名をあいうえお順に並べたい』(砂波)
シート名をあいうえお順に並べたいのですが方法を教えて頂けませんでしょうか。
通常機能ではシートを並べ替えするような機能はありません。 マクロになります。 以下、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.