[[20160206133516]]　『順位の記録と順位表を作成したいのです』（ぴんつ）　ページの最後に飛ぶ

『順位の記録と順位表を作成したいのです』（ぴんつ）

はじめまして、競争で順位をつけたいのですが記録を取るのでゴールをしたときに
コース順に1～10位を記録したいのですが

例

                              順位表                       番号表
   A B C　D　　　     E F G H I J K L M N           　　　A  B  C  D  E
1     　　 　　1 順位 1 2 3 4 5 6 7 8 9 10 　　 1 番号    1  2  3  4  5　　
2　5　 　  →  2　    5 4 2 1 ・・・・　　　　→2　　　　 4　3　   2  1　
3              3　　　　　　　　　　　　　　　　3

A2セル部分にゴールした番号 5を入力して順位表に1位に5、2位4、3位2,と表示する。
そのA2のセル部分にゴールしたごとに番号を入力して順位に反映したいのです。
A2は常に記録するので番号を登録をしたら数字が消えるようにしたいのです。
さらに順位表から番号表に5番が1位なら1と表示4番が2位なら2と表示をしたいのです。
順位表と番号票は別のワークシートにしたいのですが
よろしくお願いします。

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 順位表に直接入力するという方法はだめなんですか？その方法だったら番号表に
 関数を入れるだけで済みますが、A2セルに番号を入れて…となるとVBAじゃないと
 無理だと思います。
（se_9） 2016/02/06(土) 16:00

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tempcolumn As Long

    If Target.Count > 1 Then Exit Sub
    If Target.Address <> "$A$2" Or Target.Value = Empty Then Exit Sub
    tempcolumn = WorksheetFunction.Max(4, Range("O2").End(xlToRight).End(xlToLeft).Column) + 1
    Cells(2, tempcolumn).Value = Target.Value
    Sheets("番号表").Cells(2, Target.Value) = Cells(1, tempcolumn).Value
    Target.Value = Empty
End Sub
（mm） 2016/02/08(月) 10:43

コメント返信：

[ 一覧(最新更新順) ]

[[20160206133516]] 『順位の記録と順位表を作成したいのです』（ぴんつ） ページの最後に飛ぶ

[[20160206133516]]　『順位の記録と順位表を作成したいのです』（ぴんつ）　ページの最後に飛ぶ