- ベストアンサー
エクセルのシート見出しがバラバラになっているのを順番に直したい。
- みんなの回答 (5)
- 専門家の回答
質問者が選んだベストアンサー
シート見出しでシート名を選択してドラッグしてもよいですが多くなると比較的面倒ですね。 シート名を右クリックして「シートの移動またはコピー」を選択して挿入先を選択してもよいでしょう。また、挿入先のリストには「末尾へ移動」の項目もありますのでうまく利用するとよいでしょう。
その他の回答 (4)
- Wendy02
- ベストアンサー率57% (3570/6232)
こんにちは。 厳密には、文字列を比較すると、どうやらUnicode 比較になっているように思います。同じ種類の文字列なら、並べ替えは問題ないと思います。QuickSort を使っている方もいますので、こちらは、BubbleSort を使ってみましたが、そのアルゴリズムをコードに含めてしまえばよいと思います。 テキスト比較にしてありますから、半角、全角は関係ありません。 1(全角) < 2 (半角) となります。 '標準モジュールのみです。(出来れば、PERSONAL.XLSに入れると良いです) '---------------------------------------- Sub SheetNames() Dim i As Integer Dim j As Integer Const iCOMP As Integer = vbTextCompare ''vbBinaryCompare With ActiveWorkbook For i = 1 To .Sheets.Count - 1 For j = .Sheets.Count To i Step -1 If StrComp(CStr(.Sheets(i).Name), CStr(.Sheets(j).Name), iCOMP) > 0 Then .Sheets(i).Move After:=.Sheets(j) End If Next j Next i End With Exit Sub End Sub '----------------------------------------
お礼
丁寧に御回答ありがとうございます。 ただ、私には難しいです。。 ありがとうございました!!
- imogasi
- ベストアンサー率27% (4737/17068)
シートタブをマウスにクリックで捉え玉まで、見た目の右や左に移動させられるが、こんなのエクセル学習の始めに学ぶことでは。 シート名の文字列に何か規則性があるときその順に並べたり、多数のシートがあって、並べかえするのは、VBAを使わないといけないだろう。
- fujillin
- ベストアンサー率61% (1594/2576)
たかだか30枚程度のシートなので、手動でやってもないしたことないと思いますが、こんなものを作成してみました。 シート名の昇順に並び替えます。 VBAにソートのメソッドが無いようなので、少々長くなってしまいました。 使い方がわからない場合は、無視してください。 Sub test() Dim sName(), i, c c = ThisWorkbook.Worksheets.Count ReDim sName(1 To c) For i = 1 To c sName(i) = Worksheets(i).Name Next i Q_Sort sName, 1, c ScreenUpdating = False For i = 1 To c If sName(i) <> Worksheets(1).Name Then Worksheets(sName(i)).Move Before:=Worksheets(1) Next i ScreenUpdating = True End Sub Sub Q_Sort(ByRef D() As Variant, ByVal L As Long, ByVal U As Long) Dim i As Long, j As Long, S As Variant, Tmp As Variant S = D(Int((L + U) / 2)) i = L: j = U Do Do While D(i) > S i = i + 1 Loop Do While D(j) < S j = j - 1 Loop If i >= j Then Exit Do Tmp = D(i): D(i) = D(j): D(j) = Tmp i = i + 1: j = j - 1 Loop If (L < i - 1) Then Q_Sort D, L, i - 1 If (U > j + 1) Then Q_Sort D, j + 1, U End Sub
- 白石 勇夫(@sunbravery)
- ベストアンサー率46% (179/385)
シート見出しをドラッグし隣のシートの右とか左へもってゆくと順番は入れ替わりますよ。
お礼
御回答ありがとうございます!早速やってみました! とても簡単でした。 ありがとうございます!!
関連するQ&A
- excel シート見出し
excel シート見出しの表示についてお尋ねします。 ツール>オプション>見出し(チェック入れ)>OK と設定をしましたが、シートの見出しが表示されません。 ちなみに、別ファイルのシートには見出しが表示されています。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルシート見出しを縦に並べる?
エクセルで1つのブックに60程度のシートを作って頻繁に行き来して作業しています。シート見出しに名前を入れてシートを探しますが、たくさんあると探すのが大変です。そこでシート見出しのタブを縦に並べるなど、たくさんのシート見出しを一度に表示させる事はできますか?
- ベストアンサー
- オフィス系ソフト
- エクセルのシート見出しにつきまして
エクセルについて教えてください。 各顧客別に分けた、エクセルシートのシート見出しに 各顧客名を入力するのですが、一括(?)で入力 できる方法はありませんか? 顧客名は決まった行列に入っております。 無理な場合は、シート見出しにコピーを貼り出す 方法を教えてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルでシート見出しの大きさを変えたい
こんにちは。 エクセルのシート見出しの大きさを、 文字数に関係なく大きくしたり、 小さくしたりしたいのですが、 そういうことは可能ですか? よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelのシート見出しについて
Excel2010を使用しています。 シートを選んでいるときのみ、シートの見出しの色を変える事が出来ないでしょうか? 例えば10数枚シートを作成した場合に、今どのシートで作業をしているかとういのが、標準では作業中のシート見出しの色が白色で、その他は薄い灰色と少し分かりづらいためシートを選択している見出しのみが分かりやすい色に変わるように設定ができないのかと思いまして。例えば赤色など。 ちょっと分かりづらい説明ですがよろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセルのシートの見出しが隠れています。
初心者で申し訳けありません。 自分で作成したファイルでなく、別の人が作成したエクセルのファイルをデスクトップ上にて開くと、シートの見出しが隠れています。 ファイルとしてはプロパティで数シートの構成になっています。 また、ツール→オプション→見出しにはチエックが入っています。 作成者との画面の設定が異なるのでしょうか? よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- EXCEL シート見出しが出たり出なかったり・・・。
1つのエクセルファイルを何人かで共有して使用しています。 そのエクセルファイルは、何個ものシートに分かれているのですが、そのシートが・・・・。下記のようになります。 ■同一PCで、日によってシートが表示されたりされなかったりする ■シートが表示されるPCもあれば、表示されないPCもある ツール→オプション→表示→シート見出しはチェック入ってます。 常にシートを表示されるようにしたいのですが、どうしたらいいでしょうか? よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルのシート見出しが小さいんです。
エクセルを開いた時に下方にある「シート見出し」のフォントが 小さくなり見づらくなりました。 表示されてないわけはないのです。タイトルが長いわけでもシートが多すぎるわけでもありません。前は大きいフォントだったのですが現在は5-6位の大きさです。 よろしくお願い致します。
- 締切済み
- オフィス系ソフト
- エクセル2010 シート見出しが表示されない
シートの見出しが表示されなくて困っています。 一般には、ファイルから、オプション、詳細設定に行って表示の項の「シート見出しを表示する」にチエックを入れると表示されるとなっていますが、私の場合、チエックが入っていますが 表示されません。 私のエクセルのデーターには、シート見出しが表示されているものと、表示されていないものが混在しています。 どうしたら見出しの表示が出来るのか教えてください。
- 締切済み
- ネットトラブル
お礼
早速の御回答、ありがとうございました!! 今やってみてすっきりしました。今までずっとどうやるのかなと思っていたのでとても感謝です。ありがとうございます!!