[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『順位の記録と順位表を作成したいのです』(ぴんつ)
はじめまして、競争で順位をつけたいのですが記録を取るのでゴールをしたときに
コース順に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
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.