Excel VBA質問箱 IV

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

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


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

【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/以下の数字を、足りない分は先頭から0で埋めて4桁にしたいんじゃないでしょうか?

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/以下の数字を、足りない分は先頭から0で埋めて4桁にしたいんじゃないでしょうか?
そうかもしれないですね!
フォローありがとうございました。

【15882】Re:ランダムなソートkeyの桁の揃え方
お礼  よれよれ  - 04/7/10(土) 2:23 -

引用なし
パスワード
   即レス頂いたのに、気づきませんでした。申し訳ありません。

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

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

早速試してみたいと思います!
また何かありましたらご教授ください!ありがとうございました!

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