Results of 1 - 1 of about 48 for SetPhonetic (0.000 sec.)
- [[20040228090218]]
- #score: 13344
- @digest: aa5f52c50afff76c411162eea88fa5a1
- @id: 5487
- @mdate: 2004-02-28T05:34:06Z
- @size: 1352
- @type: text/plain
- #keywords: 独達 (7815), 毒達 (7815), ityamon (7159), 人殿 (6766), 砂波 (6766), 数独 (4831), 20040225000631 (4759), ナ編 (4541), 常機 (3997), トネ (3484), setphonetic (2788), 地悪 (2659), 達人 (2122), 意地 (2111), 師匠 (1999), 図的 (1794), お順 (1793), sheets (1089), ガナ (895), displayalerts (868), リガ (746), 提出 (692), 発見 (657), 体例 (655), xlascending (594), temp (550), 漢字 (547), フリ (509), ネー (476), ッド (446), kamiya (442), sort (432)
- 『シート名をあいうえお順に並べたい』（砂波）
シート名をあいうえお順に並べたいのですが方法を教えて頂けませんでしょうか。 ---- 通常機能ではシートを並べ替えするような機能はありません。 マクロになります。 以下、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)... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200402/20040228090218.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97047 documents and 608227 words.
訪問者：