Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11478 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【15850】ランダムなソートkeyの桁の揃え方 よれよれ 04/7/9(金) 12:32 質問[未読]
【15851】Re:ランダムなソートkeyの桁の揃え方 Jaka 04/7/9(金) 12:49 発言[未読]
【15852】Re:ランダムなソートkeyの桁の揃え方 つん 04/7/9(金) 12:57 回答[未読]
【15870】Re:ランダムなソートkeyの桁の揃え方 Jaka 04/7/9(金) 16:21 発言[未読]
【15882】Re:ランダムなソートkeyの桁の揃え方 よれよれ 04/7/10(土) 2:23 お礼[未読]
【15850】ランダムなソートkeyの桁の揃え方
質問  よれよれ  - 04/7/9(金) 12:32 -
引用なし
パスワード
   お世話になります。
題名の事なんですが以下に例を挙げます。
【ソート前】
　　2004/1
　　2004/345
　　2004/4
　　2004/52

上記のkey(2004/1等)を元に降順でソートすると、桁がランダムの為
以下のような結果になってしまいます。

【ソート後】
　　2004/52
　　2004/4
　　2004/345
　　2004/1

そこで、keyを
　　2004/0001
　　2004/0345
　　2004/0052　
のような『2004/』の後をVBで4桁の値に直して(0を付け足して)
ソートしたいと思っております。
ちなみに、2004/8454などの最初から4桁のものはスルーしたいと思います。
これならば上手くソート出来ると思うのですがいかがですか？

随分ややこしい質問だとは思いますが、ご存知の方いらっしゃいましたら
知恵の方を分けてください！お願いします！
【15851】Re:ランダムなソートkeyの桁の揃え方
発言  Jaka  - 04/7/9(金) 12:49 -
引用なし
パスワード
   こんにちは。

>　略
>のような『2004/』の後をVBで4桁の値に直して(0を付け足して)
>ソートしたいと思っております。
これはいいとして。

>ちなみに、2004/8454などの最初から4桁のものはスルーしたいと思います。
これがわかりません。

結局どのようにのでしょうか？
【15852】Re:ランダムなソートkeyの桁の揃え方
回答  つん E-MAIL  - 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

こんなのでどうでしょう？
なんかベタなやり方ですが（＾＾;
【15870】Re:ランダムなソートkeyの桁の揃え方
発言  Jaka  - 04/7/9(金) 16:21 -
引用なし
パスワード
   ▼つん さん：こんにちは。
おひさしぶりです。

>例のあの痛い件はすっかりよくなられたんですか？
>お大事にね。
ありがとうございます。
今のところは、大丈夫みたいです。
でも、ムズムズ、ヒクヒクしたりするとビクビクしてます。
しかし、しっかり読んでいたんですねぇ...。
つんさんも気をつけてね。
水分は多く取らんといけんよ。

>>>ちなみに、2004/8454などの最初から4桁のものはスルーしたいと思います。
>>これがわかりません。
>とにかく、2004/以下の数字を、足りない分は先頭から０で埋めて４桁にしたいんじゃないでしょうか？
そうかもしれないですね！
フォローありがとうございました。
【15882】Re:ランダムなソートkeyの桁の揃え方
お礼  よれよれ  - 04/7/10(土) 2:23 -
引用なし
パスワード
   即レス頂いたのに、気づきませんでした。申し訳ありません。

>>>>ちなみに、2004/8454などの最初から4桁のものはスルーしたいと思います。
>>>これがわかりません。
>>とにかく、2004/以下の数字を、足りない分は先頭から０で埋めて４桁にしたいんじゃないでしょうか？

説明不足でした！おっしゃる通りです！2004/****という風に
「2004/」の後を4桁で揃えたい！ってことでした！

早速試してみたいと思います！
また何かありましたらご教授ください！ありがとうございました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11478 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free