Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8186 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【34845】Sortについて VBAビギナー 06/2/14(火) 18:16 質問[未読]
【34846】Re:Sortについて inoue 06/2/14(火) 18:27 発言[未読]
【34847】Re:Sortについて VBAビギナー 06/2/14(火) 19:00 発言[未読]
【34851】Re:Sortについて Kein 06/2/14(火) 19:31 回答[未読]
【34852】Re:Sortについて Kein 06/2/14(火) 19:33 発言[未読]
【34845】Sortについて
質問  VBAビギナー  - 06/2/14(火) 18:16 -
引用なし
パスワード
   エクセルのソートを使用したところ
教室１２、教室１、教室２、教室３、教室４、教室１０、教室１１が

教室１
教室１０
教室１１
教室１２
教室２
教室３
のようになってしまいました。

セル範囲をA列にして、A列に入力される度にソートされるようにしたいのですが
簡単な方法はありますでしょうか？
【34846】Re:Sortについて
発言  inoue E-MAILWEB  - 06/2/14(火) 18:27 -
引用なし
パスワード
   >セル範囲をA列にして、A列に入力される度にソートされるようにしたいのですが
>簡単な方法はありますでしょうか？
MID関数等で右の数字だけをASC関数とVALUE関数を重ねて数値化して、
作業列に設定すればその列で並び替えられると思います。
【34847】Re:Sortについて
発言  VBAビギナー  - 06/2/14(火) 19:00 -
引用なし
パスワード
   すみません、おっしゃっていることがよくわかりません。
データはA列あります。
教室１（全大文字）A1〜A500
教室１０
教室３
実験室２
実験室５
実験室１
このようなデータをソートでならべかえる。
VALUE(ASC())の形ということなのでしょうか？ソートはworksheets.range('A1:A500').sort ？
▼inoue さん：
>>セル範囲をA列にして、A列に入力される度にソートされるようにしたいのですが
>>簡単な方法はありますでしょうか？
>MID関数等で右の数字だけをASC関数とVALUE関数を重ねて数値化して、
>作業列に設定すればその列で並び替えられると思います。
【34851】Re:Sortについて
回答  Kein  - 06/2/14(火) 19:31 -
引用なし
パスワード
   A1:A500 のデータには、必ず "室" という文字が入っているとして

Sub MySort()
　 Application.ScreenUpdating = False
　 Columns(2).Insert xlShiftToRight
　 With Range("A1:A6")
　　　With .Offset(, 1)
　　　　 .Formula = "=VALUE(RIGHT($A1,LEN($A1)-FIND(""室"",$A1)))"
　　　　 .Copy
　　　　 .PasteSpecial xlPasteValues
　　　End With
　　　.Resize(, 2).Sort Key1:=Columns(2), Order1:=xlAscending, _
　　　Header:=xlGuess, Orientation:=xlSortColumns
　 End With
　 Columns(2).Delete xlShiftToLeft
　 Range("A1").Activate
　 With Application
　　　.CutCopyMode = False
　　　.ScreenUpdating = True
　 End With
End Sub
で、どうでしょーか ?　　
【34852】Re:Sortについて
発言  Kein  - 06/2/14(火) 19:33 -
引用なし
パスワード
   >With Range("A1:A6")
↓

With Range("A1:A500")

または

With Range("A1", Range("A65536").End(xlUp))

と、修正しておいて下さい。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8186 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free