Excel VBA質問箱 IV

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

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


16887 / 76732 ←次へ | 前へ→

【65308】Re:エクスプローラの昇順とエクセルの昇順
発言  kanabun  - 10/5/7(金) 17:23 -

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

>エクセルで
>エクスプローラのような並びにするにはどうすればよいでしょうか

エクスプローラの並びというのは 数字の部分を数値として並び替えて
いるということですかね?

泥臭い方法ですが、こんなのとか?
([A2]以降に ファイルリストがあるとします。拡張子は同じとします)

Sub Try1()
 Dim r As Range
 Dim i As Long, j As Long
 Dim arry, S As String
 
 Set r = Range("A2", Cells(Rows.Count, 1).End(xlUp)).Resize(, 2)
 r.Columns(2).ClearContents
 arry = r.Columns(1).Value
 For i = 1 To UBound(arry)
   S = arry(i, 1)
   For j = 1 To Len(S)
     If Mid$(S, j, 1) Like "#" Then
       arry(i, 1) = Left$(S, j - 1) & Format$(Val(Mid$(S, j)), String$(20 - j, "0"))
       Exit For
     End If
   Next j
 Next i
 r.Columns(2).Value = arry
 r.Sort Key1:=r.Columns(2), Header:=xlNo
 'r.Columns(2).ClearContents
 
End Sub
2 hits

【65307】エクスプローラの昇順とエクセルの昇順 pon 10/5/7(金) 16:42 質問
【65308】Re:エクスプローラの昇順とエクセルの昇順 kanabun 10/5/7(金) 17:23 発言
【65309】Re:エクスプローラの昇順とエクセルの昇順 pon 10/5/7(金) 17:48 発言
【65310】Re:エクスプローラの昇順とエクセルの昇順 kanabun 10/5/7(金) 19:10 発言
【65410】Re:エクスプローラの昇順とエクセルの昇順 pon 10/5/19(水) 10:02 お礼

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