Excel VBA質問箱 IV

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

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


2692 / 13645 ツリー ←次へ | 前へ→

【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 発言[未読]

【66543】名前のソート順にシートを作りたい
質問  KOJIRO  - 10/9/9(木) 0:45 -

引用なし
パスワード
   同じファイルにあるブック(たとえば、a.xls、b.xls、c.xls)の1枚目のシートだけを
新規ブック(D.xls)の各シートとして保存(シートのコピー)しようとしています。
そのとき、D.xlsのシート名は旧ブック名前(a.xlsの1枚目のシートならシートの名前をa)にしますので、D.xlsにはa,b,cの3シートが存在するわけです。

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

【66544】Re:名前のソート順にシートを作りたい
発言  かみちゃん  - 10/9/9(木) 6:25 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> シート名のソート順に並ぶようにしたい

以下がヒントになりますでしょうか?
ht tp://park11.wakwak.com/~miko/Excel_Note/04-01_sheet.htm#04-01-06

【66545】Re:名前のソート順にシートを作りたい
発言  kanabun  - 10/9/9(木) 9:08 -

引用なし
パスワード
   ▼KOJIRO さん:

>そのとき、D.xlsのシート名は旧ブック名前(a.xlsの1枚目のシートならシートの名前をa)にしますので、D.xlsにはa,b,cの3シートが存在するわけです。
>
>このとき、「常にD.xlsのシート順番がa,b,cとなるように、つまりシート名のソート順に並ぶよう」にしたいのですが、この「 」で囲った部分をどう書けばいいか分かりません。

元のBook名をabc順に並び替えておけば (作業用シートかどこかで)
その順にD.xls の最後のシートに追加していけばいいとおもいますけど?

【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

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