Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

65457 / 76734

←次へ　｜　前へ→


	【15852】Re:ランダムなソートkeyの桁の揃え方

つん

- 04/7/9(金) 12:57 -


	引用なし

	パスワード

こんにちは。

Jaka さん、横から失礼しますー。
例のあの痛い件はすっかりよくなられたんですか？
お大事にね。

>>のような『2004/』の後をVBで4桁の値に直して(0を付け足して)
>>ソートしたいと思っております。
>これはいいとして。
>>ちなみに、2004/8454などの最初から4桁のものはスルーしたいと思います。
>これがわかりません。
とにかく、2004/以下の数字を、足りない分は先頭から０で埋めて４桁にしたいんじゃないでしょうか？

Sub test()

　　Dim r As Range
　　
　　For Each r In Selection
　　　　If Len(r.Value) < 9 Then
　　　　　　r.Value = Left(r.Value, 5) & Format(Mid(r.Value, 6), "0000")
　　　　End If
　　Next r
　　　　
End Sub

こんなのでどうでしょう？
なんかベタなやり方ですが（＾＾;

2 hits

▼

【15850】ランダムなソートkeyの桁の揃え方 よれよれ 04/7/9(金) 12:32