エクセルで自動的にセルを移動したい場合

例えば、Ａ、Ｂ、Ｃという三つのランク付けをする必要があり、そのランクが日々変化する場合、セルの上位にＡランクのもの、その下にＢその下にＣと並べるとすれば、どのようなマクロ(計算式)が必要でしょうか？

例）昨日Ｃランクであったユーザーが、今日の評価ではＡに変わった。ランクのセルをＣからＡと書き換えるだけで、下位にあったこのユーザーの表示を上位に上げたい。

恐れ入ります。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： 134 回答日時： 2006/02/01 23:34

前提として、以下のようにします。

1.関数により、ご希望に近いものを作る。
2.既存の表の前に４列挿入する。
3.ランキングのシートと入力シートは、別とする。
4.ユーザーは99人以下とする。


　ということで、Ａ～Ｄ列までを計算用に使用させて頂きます。
Ｅ列をユーザー名、Ｆ列をランクとします。

Ａ列に入力する関数
=if(f2="","",if(f2="A",1,if(f2="B",2,if(f2="C",3,""))))
これにより、ＡＢＣランクを１，２，３に変換させます。

Ｂ列に入力する関数
=if(a2="","",countif(a2:$a$2,a2))
これにより、ランクＡ，Ｂ，Ｃが何個目かを表示させます。

Ｃ列に入力する関数
=if(a2="","",a2*100+b2)
これにより、ランクＡを100番台、Ｂを200番台、Ｃを300番台として連番を表示させます。

100人をこえる場合は「a2*1000+b2」　とでもして下さい。

Ｄ列に入力する関数
=if(a2="","",rank(c2,c2:c301,1))
これにより、Ｃ列の数字を小さい順に付番します。

Ａ～Ｄの関数を下のセルに、コピーします。

シート２に目的の表を作るとします。
１行目を見出しとして、２行目から、データとします。

　また、参照元をシート１とします。

Ａ２セルに
=vlookup(row()-1,sheet1!$e$2:$f$300,2,0)
とするとＡランク最初のユーザー名が表示されます。

以降は、表のフォーマットに合わせて、VLOOKUP文のパラメーターを調整して下さい。

なお、入力シートA～D列は、「非表示」にしておくと、邪魔にならないと思います。


また、

=if(iserror(vlookup(row()-1,sheet1!$e$2:$f$300,2,0),"",vlookup(row()-1,sheet1!$e$2:$f$300,2,0))

というふうに、エラー回避をさせると、より見やすくなるでしょう。

いかがでしょうか？

この回答へのお礼

ご丁寧なご回答をいただきまして、誠にありがとうございます。
早速この後チャレンジしてみます！

簡単な言葉ですみません。

お礼日時：2006/02/02 22:01

No.2 回答者： 134 回答日時： 2006/02/01 23:42

訂正

>また、
>
>=if(iserror(vlookup(row()-1,sheet1!$e$2:$f$300,2,0),"",vlookup(row()-1,sheet1!$e$2:$f$300,2,0))
>
>というふうに、エラー回避をさせると、より見やすくなる>でしょう。

これでは、カッコが足りませんでした。
>=if(iserror(vlookup(row()-1,sheet1!$e$2:$f$300,2,0)),"",vlookup(row()-1,sheet1!$e$2:$f$300,2,0))

と、iserror文のカッコ閉じを追加して下さい

No.3 回答者： mz80 回答日時： 2006/02/02 02:30

ランクのセルが更新されたらソートすればよいと思います。

マクロは、ランクのsheetのchangeイベントプロシージャとして作成します。

ソートするので、一応、以下を前提、制約があります。
１．見出しが1行目に1行ある。2行目以降をソート対象とする。
２．ランク順、ユーザー名順にソートする。このため、ユーザーを新規追加するとソートが実行さる。
３．同一ランクの同一名のユーザーがどの順になるかは、excelのソートのロジックに依存する。

マクロは…
Private Sub Worksheet_Change(ByVal Target As Range)
'ランク、ユーザー変更ならソート(昇順)
If ((Target.Column = 1) Or (Target.Column = 2)) Then
Range("a:b").Sort Key1:=Range("A2"), Order1:=xlAscending, _
Key2:=Range("B2"), Order2:=xlAscending, _
Header:=xlYes, _
OrderCustom:=1, _
MatchCase:=True, _
Orientation:=xlTopToBottom, SortMethod:=xlStroke, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
End If
End Sub

この回答へのお礼

ご丁寧なご回答をいただきまして、誠にありがとうございます。
早速この後チャレンジしてみます！

簡単な言葉ですみません。

お礼日時：2006/02/02 21:59