Excelで入力したデータを自動的に並び替える方法

質問

Excel2000で、名前のリストを作成し、これを、あいうえお順（昇順）に並び替えたものがあります。

このリストに、新しく名前を入力したときに、自動的に昇順の並び替えてくれる方法ってありますか？

質問がわかりにくければ、補足します。
よろしくお願いします。

回答No.4

vbafriend · ベストアンサー

初めまして。次のようにすれば、貴方様の思い通りの動作をするようになると思います。Ａ列に名前を入力してある設定でコードを記述しています。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myClm As Integer

If Target.Column <> 1 Then Exit Sub
myClm = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess

End Sub

Sheet1のモジュールに上記のコードを記述して下さい。
Ａ列に名前を入力してエンターキーを押した時点で並べ替えが実行されます。

お試しになってみて下さい。

お礼

できましたー。有難うございます！

回答No.3

aieeen

>昇順で並べ替えぼたんを押さずに、ただ入力するだけで変えれる方法があればいいな・・・と思ってるのですが・・
ユーザーフォームを使用するとできると思います。
手順です。
AUTO_OPENにし
ユーザーフォーム（1）.Show
にします。
ユーザーフォーム（1）には【新規作成】と【修正】CommandButtonを用意し
ユーザーフォーム（2）に飛ばし、ユーザーフォーム（2）はコンボボックスと
テキストボックスを用意しそこに入力します。最後に終了ボタンを押すと
並び替えと、重複データの古いデータを削除して、（【修正】ボタンのみ）保存します。
ＶＢＡコードは余りにも長いので、ポイントを書いてもらえれば、そこだけ後から追加します。

回答No.2

imogasi

私の他の質問でも述べていますが、エクセルで、ちょっとした問題を解決するとき次の３つがあります。
「ちょっとした」とは「○○システム」なんて中・大規模なものでない課題をいいます。１データ当たり手作業で数ステップ程度。
（１）手操作（本来の使い道）（２）関数を使う（３）ＶＢＡ（マクロ）を使う。（４）（１）の延長で、特別な
ウイザードを使う。
（１）による解決は望んでいないから、この質問になるのですが、（２）に期待する方が相当多い。しかし関数では
行の挿入や、削除は出来ませんので無力です。
（３）のＶＢＡを使えば出来ますが（Ａ）入力し終わったら、即座にソートしなおすのは高級（？）テクニックですがお望みですか。（Ｂ）ボタンをシート上に貼りつけ
入力の都度クリックするのを我慢するなら、マクロの記録
をとって、それを少し一般化すれば出来ます。
どのへんまでお望みですか。（３）は人によっては労多くして、報いが少ないと思いますが。

回答No.1

dejiji-

入力後にツールバーの「昇順で並べ替え」ボタンを押したら変わりますが、もっと簡単にしたいのでしょうか。

補足

さっそくありがとうございます。

昇順で並べ替えぼたんを押さずに、ただ入力するだけで変えれる方法があればいいな・・・と思ってるのですが・・

いい方法があればお願いします。