Excel VBA質問箱 IV

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

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


8165 / 13644 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   エクセルのソートを使用したところ
教室12、教室1、教室2、教室3、教室4、教室10、教室11が

教室1
教室10
教室11
教室12
教室2
教室3
のようになってしまいました。

セル範囲を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列あります。
教室1(全大文字)A1〜A500
教室10
教室3
実験室2
実験室5
実験室1
このようなデータをソートでならべかえる。
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))

と、修正しておいて下さい。

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