EXCELで星取表を作り勝ち点の計算を自動化させたいと思っています。
今一番難しそうなのは、順位が変わった時に星取表がずれてしまいます。
具体的には
A B C D
A * O O -
B X * O X
C X X * O
D - O X *
これでもしCが2位になった場合に単純にデータの並び替えを行うと
A B C D
A * O O -
C X X * O
B X * O X
D - O X *
とおかしな星取表(自分同士の対戦*を斜めに一直線にしたい)になってしまいます。
これを補正するにはどのような方法があるでしょうか?
伝わったか不安ですが、アドバイスお願い致します。
No.3
- 回答日時:
ソートだけで出来るものかどうか。
関数式では無理でしょう。
興味が出てVBAでやって見ました。(少数例でテスト済み)
既にある表(A1:G7)の下(A11:G17)のA列(A11:A17)に新順序のチーム(か選手)名を入力する。そして下記を実行する。
A1:G7の勝負を組替えました。
Dim d
Sub test01()
Dim cl As Range
s = 10 '新しい表を作る開始行は11行から
d = Range("a1").CurrentRegion.Rows.Count
' MsgBox d
'----新縦チーム名順序を横にセット
For i = s + 2 To s + 2 + d - 2
Cells(1 + s, i - s) = Cells(i, 1)
Next i
'-----自分自身と交差するセルに*
For Each cl In Range(Cells(s + 2, 2), Cells(s + 2 + d - 2, 2 + d - 2))
' MsgBox Cells(cl.Row, 1) & "=" & Cells(1 + s, cl.Column)
If Cells(cl.Row, 1) = Cells(1 + s, cl.Column) Then
cl = "*"
End If
Next
'------元の表の勝敗を取ってくる
For Each cl In Range(Cells(s + 2, 2), Cells(s + 2 + d - 2, 2 + d - 2))
If cl = "*" Then GoTo p01
r = Cells(cl.Row, 1): c = Cells(1 + s, cl.Column)
cl = shoubu(r, c)
p01:
Next
End Sub
'---勝負を元の表(上部A2:G7から)取ってくる関数
Function shoubu(r, c)
For i = 2 To d
If Cells(i, 1) = r Then
For j = 2 To 2 + d - 2
If Cells(1, j) = c Then
shoubu = Cells(i, j)
End If
Next j
End If
Next i
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 数学 リーグ戦で昇級、降級の考え方 5 2022/06/19 14:28
- 生物学 仮に、液体の水を持っている浮遊惑星は、親星(主星)(地球でいえば太陽)がなくとも、生命を発生させ維持 3 2023/03/29 06:09
- Excel(エクセル) Excelの並び替え(先頭の文字以外を基準に並び替えたい) 3 2023/07/07 22:21
- Excel(エクセル) VBA : スクレイピングできない 4 2023/05/12 22:26
- 野球 星野巨人が実現していたらどうなっていたと思いますか? 2 2022/04/30 12:28
- 宇宙科学・天文学・天気 土星の環の年齢とそこに飛来する塵の種類 2 2023/06/04 19:55
- 美術・アート イラスト有り!!!戦争系のダークな創作漫画の一コマですが辛口で大丈夫なので良かったらアドバイスお願い 4 2022/10/12 08:10
- カスタマイズ(車) 車やバイクのナビってどうやって自分の位置を登録するの? 5 2022/07/03 08:03
- その他(自然科学) 至急お願いします。 わからないです。 衛星Aは惑星Bのまわりを公転している。衛星Aの公転周期は16. 2 2022/06/09 19:33
- 野球 巨人の原監督の進退について 5 2022/07/17 10:30
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
釣りキチ三平はお父さんに会え...
-
「いち~として」の「いち」と...
-
「ワカチコ」の意味を教えてく...
-
のし袋のタイトルについて
-
表彰式で表彰される人は、何と...
-
試合前(前夜)のセックス
-
なぜ女子より男子の方が足、細...
-
人名や地名の「渕」&「淵」→電...
-
スイミングスクールで選手選抜...
-
基礎代謝を2000にするにはマッ...
-
オリンピック出場の際のお祝い...
-
「タマランチ会長」とか「そう...
-
日本人スポーツ選手の女子たち...
-
筋肉に、射精は害ですよね?だ...
-
全国の「亮」さんへ!どのよう...
-
筋トレしています。身長180cm体...
-
自分の胸にこぶしを当てるポー...
-
「感謝の意を表す」と「感謝の...
-
クリープのないコーヒーなんて...
-
キャプテン、部長、エース
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ワカチコ」の意味を教えてく...
-
「いち~として」の「いち」と...
-
試合前(前夜)のセックス
-
表彰式で表彰される人は、何と...
-
基礎代謝を2000にするにはマッ...
-
人名や地名の「渕」&「淵」→電...
-
なぜ女子より男子の方が足、細...
-
最近、「筋トレ」を始めた女で...
-
全日本女子の勝利インタビュー...
-
ソフトボール1試合にかかる時...
-
職業に付ける「者」「家」「士...
-
のし袋のタイトルについて
-
筋肉に、射精は害ですよね?だ...
-
「感謝の意を表す」と「感謝の...
-
21歳、女です、身長2mあります。
-
スイミングスクールで選手選抜...
-
クリープのないコーヒーなんて...
-
「You」や「I」が入った曲と言...
-
オリンピック出場の際のお祝い...
-
全国の「亮」さんへ!どのよう...
おすすめ情報