[[20050201113206]]　『シートのソート』（Null）　ページの最後に飛ぶ

『シートのソート』（Null）
Excel：Excel2003
OS：WinXP SP2

シート名称が　
ID1　ID2　ID3

などと付いていて　それが　
ID1　ID3　ID2

というように　順番に並んでいないときに一括でソートする機能はないでしょうか？
ご教授お願いいたしますｍｍ

 ベタですが。
Sub Test()
Dim i As Integer
Application.ScreenUpdating = False
Sheets.Add
ActiveSheet.Name = "Kari"
For Each Sh In Worksheets
    Worksheets("kari").Cells(i + 1, 1).Value = Sh.Name
    i = i + 1
Next Sh
    Range("A1").Sort Key1:=Range("A1"), Orientation:=xlTopToBottom
    For i = 1 To Worksheets.Count
        MyName = Worksheets("Kari").Cells(i, 1).Value
        Worksheets(MyName).Move Before:=Sheets(i)
    Next i
Application.DisplayAlerts = False
Sheets("Kari").Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 （川野鮎太郎）

 マクロしかないのであれば一応挑戦
Sub シートの並び替え()
Dim ShName As String, T() As String, s() As String
Dim ss(1) As Integer
ss(1) = 32
T = Input_Name()
T = Sort_Name(T)
Call move_Name(T)
MsgBox ("Complete")
End Sub
Function Input_Name()
Dim n As Worksheet
Dim T() As String

ReDim T(1 To ActiveWorkbook.Worksheets.Count) As String

For Each n In ActiveWorkbook.Worksheets

    If Left(n.Name, 1) = "x" Then
        T(n.Index) = n.Name
    Else
        T(n.Index) = "none"
    End If
Next
Input_Name = T
End Function
Function Sort_Name(T() As String)
Dim n As Integer, s As Integer
Dim Ttable() As String, T_temp As String
ReDim Ttable(1 To UBound(T)) As String
For n = 1 To UBound(T) - 1 Step 1
    For s = n To UBound(T) Step 1
        If Ttable(n) < T(s) And Not T(s) = "none" Then
            T_temp = Ttable(n)
            Ttable(n) = T(s)
            T(s) = T_temp
        End If
    Next s
Next n
Sort_Name = T
End Function
Function move_Name(T() As String)
Dim n As Integer
Dim e As Worksheet
Application.ScreenUpdating = False
For n = 1 To UBound(T) Step 1
    If Not T(n) = "" Then
        For Each e In ActiveWorkbook.Worksheets
            If Sheets(n).Name = e.Name Then
                e.Move Before:=Sheets(1)
            End If
        Next e
    End If
Next n
Application.ScreenUpdating = True
End Function

 (川野)さんの　ソースよりぜんぜん長いですねorz
 シートを作っちゃえばソート機能をつかえるわけですね（≧∇≦）ｂ
 微調整しつつ　がんばります
 ありがとうございましたぁ
 (Null)

コメント返信：

[ 一覧(最新更新順) ]

[[20050201113206]] 『シートのソート』（Null） ページの最後に飛ぶ

[[20050201113206]]　『シートのソート』（Null）　ページの最後に飛ぶ