タイトル : 点数で順位を付ける方法を教えて下さい 投稿日 : 2014/09/03(Wed) 11:04 投稿者 : たちばなん
初心者すぎる質問で申し訳ありません。 自分で調べて、クイックソートを使えば出来るらしいのですが、1次配列のサンプルしか見つけられず困っています。 (クイックソートの意味が分からないので、自分で改変もできないです。) また、クイックソートの様な難解な物を使わないで、簡単なコードで出来るのなら、そっちの方が良いので、 アドバイスお願いします。 では、 ある物件、500件分の点数が配列に既に入力されています。 Dim SC(500,2) as Single SC(1,1)=30.1 SC(2,1)=42.3 SC(3,1)=15.6 SC(4,1)=10 SC(5,1)=90 SC(6,1)=54.3 SC(7,1)=31 ・ ・ ・ ・ SC(500,1)=88.4 SC(**,2)の方はまだ何も入力していない状態です。 SC(**,0)には件名が既に入力されています。 そこで、点数が高い順に1位、2位・・・500位と順位を付け、 その順位をSC(**,2)に格納したいのですが、方法が判りません。 教えて頂けませんでしょうか? ※同点は無いとして下さい。 VB.2008 or EXCEL.VBA で使います。 VB歴は5年くらいですが、スキルは初心者です。 |