Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


15659 / 76734 ←次へ | 前へ→

【66550】Re:名前のソート順にシートを作りたい
発言  Yuki  - 10/9/9(木) 14:56 -

引用なし
パスワード
   ▼KOJIRO さん:
>このとき、「常にD.xlsのシート順番がa,b,cとなるように、つまりシート名のソート順に並ぶよう」にしたいのですが、この「 」で囲った部分をどう書けばいいか分かりません。
>教えてくださいませんか?

シートの並び替えですね。
Sub SheetStrSort()
  Dim i  As Long
  Dim j  As Long
  
  For i = 1 To Sheets.Count - 1
    For j = i + 1 To Sheets.Count
      If StrComp(Sheets(i).Name, Sheets(j).Name, vbBinaryCompare) = -1 Then
        Sheets(j).Move Before:=Sheets(i)
      End If
    Next j
  Next i
End Sub

2 hits

【66543】名前のソート順にシートを作りたい KOJIRO 10/9/9(木) 0:45 質問
【66544】Re:名前のソート順にシートを作りたい かみちゃん 10/9/9(木) 6:25 発言
【66545】Re:名前のソート順にシートを作りたい kanabun 10/9/9(木) 9:08 発言
【66550】Re:名前のソート順にシートを作りたい Yuki 10/9/9(木) 14:56 発言

15659 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free