Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6996 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【41883】順位のつけ方 てんぱい 06/8/24(木) 22:26 質問[未読]
【41887】Re:順位のつけ方 Kein 06/8/24(木) 23:06 回答[未読]
【41891】Re:順位のつけ方 ichinose 06/8/25(金) 7:56 発言[未読]
【41894】Re:順位のつけ方 ｂｙｋｉｎ 06/8/25(金) 12:49 発言[未読]
【41902】Re:順位のつけ方 ichinose 06/8/25(金) 17:59 発言[未読]
【41910】Re:順位のつけ方 ナイスプログラム 06/8/25(金) 22:10 回答[未読]
【41883】順位のつけ方
質問  てんぱい  - 06/8/24(木) 22:26 -
引用なし
パスワード
   ありがちなある試合結果の星取表があります。

　 A　　　　 B　　 C　　　D　　　E　　　F　　　G　　　　H　I　J　　 　I
1 ＼　　 　佐藤　 鈴木　 渡辺　 山本　 高橋　 渡辺　 　 成績 　　　　順位
2 佐藤　　　＼　　 ×　　 △　　 ×　　 ○　 　○　　　2勝2敗1分　　　
3 鈴木　　　○　　 ＼　　 ×　　 ×　　 ×　 　×　　　1勝4敗　
4 渡辺　　　△　　 ○　　 ＼　　 ×　　 ×　 　△　　　1勝2敗2分
5 山本　　　○　　 ○　　 ○　　 ＼　　 △　 　○　　　4勝　 1分 　
6 高橋　　　×　　 ○　　 ○　　 △　 　＼　　 ○　　　3勝1敗1分
7 渡辺　　　×　　 ○　　 △　　 ×　 　×　　 ＼　　　1勝3敗1分

各人の成績については関数で問題ないのですが、私を悩ませているのは順位について。
勝ち数が同じだった場合は負け数が少ない方が上位となるのを条件とした順位を表示したいのですが、その方法が分かりません。

　 A　　　　 B　　 C　　　D　　　E　　　F　　　G　　　　H　I　J　　 　K
1 ＼　　 　佐藤　 鈴木　 渡辺　 山本　 高橋　 渡辺　 　 成績 　　　　順位
2 佐藤　　　＼　　 ×　　 △　　 ×　　 ○　 　○　　　2勝2敗1分　　　3
3 鈴木　　　○　　 ＼　　 ×　　 ×　　 ×　 　×　　　1勝4敗　　　　 6
4 渡辺　　　△　　 ○　　 ＼　　 ×　　 ×　 　△　　　1勝2敗2分　　　4
5 山本　　　○　　 ○　　 ○　　 ＼　　 △　 　○　　　4勝　 1分 　　 1　
6 高橋　　　×　　 ○　　 ○　　 △　 　＼　　 ○　　　3勝1敗1分　　　2
7 渡辺　　　×　　 ○　　 △　　 ×　 　×　　 ＼　　　1勝3敗1分　　　5

手段は関数、マクロ等何でも構いません。どなたか教えてください。よろしくお願いします。
【41887】Re:順位のつけ方
回答  Kein  - 06/8/24(木) 23:06 -
引用なし
パスワード
   ちょっとその表の作り方ではうまくいかないので、H列以降の値は全てクリア
しておいて下さい。H:J列の表組みも含めて、一気にマクロでやってみます。
コードは以下のようになります。L列は作業列とします。

Sub MyLank()
　 Dim LR As Long
　
　 Application.ScreenUpdating = False
　 Range("H1:L1").Value = _
　 Array("勝ち", "負け", "引き分け", "順位", "行")
　 LR = Range("A65536").End(xlUp).Row - 1
　 With Range("H2:J2")
　　　.Formula = Array("=COUNTIF($B2:$G2,""○"")", _
　　　"=COUNTIF($B2:$G2,""×"")", "=COUNTIF($B2:$G2,""△"")")
　　　.AutoFill .Resize(LR), xlFillCopy
　 End With
　 With Range("H2").Resize(LR, 3)
　　　.Calculate
　　　.Value = .Value
　 End With
　 With Range("L2")
　　　.Value = 2
　　　.AutoFill .Resize(LR), xlLinearTrend
　 End With
　 Range("A1").CurrentRegion.Sort Key1:=Range("H1"), _
　 Order1:=xlDescending, Key2:=Range("I1"), _
　 Order2:=xlAscending, Header:=xlYes, Orientation:=xlSortColumns
　 With Range("K2")
　　　.Value = 1
　　　.AutoFill .Resize(LR), xlLinearTrend
　 End With
　 Range("A1").CurrentRegion.Sort Key1:=Range("L1"), _
　 Order1:=xlAscending, Header:=xlYes, Orientation:=xlSortColumns
　 Range("L:L").ClearContents
　 Application.ScreenUpdating = True
End Sub
【41891】Re:順位のつけ方
発言  ichinose  - 06/8/25(金) 7:56 -
引用なし
パスワード
   おはようございます。

>ありがちなある試合結果の星取表があります。
>
>　 A　　　　 B　　 C　　　D　　　E　　　F　　　G　　　　H　I　J　　 　I
>1 ＼　　 　佐藤　 鈴木　 渡辺　 山本　 高橋　 渡辺　 　 成績 　　　　順位
>2 佐藤　　　＼　　 ×　　 △　　 ×　　 ○　 　○　　　2勝2敗1分　　　
>3 鈴木　　　○　　 ＼　　 ×　　 ×　　 ×　 　×　　　1勝4敗　
>4 渡辺　　　△　　 ○　　 ＼　　 ×　　 ×　 　△　　　1勝2敗2分
>5 山本　　　○　　 ○　　 ○　　 ＼　　 △　 　○　　　4勝　 1分 　
>6 高橋　　　×　　 ○　　 ○　　 △　 　＼　　 ○　　　3勝1敗1分
>7 渡辺　　　×　　 ○　　 △　　 ×　 　×　　 ＼　　　1勝3敗1分
>
>各人の成績については関数で問題ないのですが、私を悩ませているのは順位について。
>勝ち数が同じだった場合は負け数が少ない方が上位となるのを条件とした順位を表示したいのですが、その方法が分かりません。
>
>　 A　　　　 B　　 C　　　D　　　E　　　F　　　G　　　　H　I　J　　 　K
>1 ＼　　 　佐藤　 鈴木　 渡辺　 山本　 高橋　 渡辺　 　 成績 　　　　順位
>2 佐藤　　　＼　　 ×　　 △　　 ×　　 ○　 　○　　　2勝2敗1分　　　3
>3 鈴木　　　○　　 ＼　　 ×　　 ×　　 ×　 　×　　　1勝4敗　　　　 6
>4 渡辺　　　△　　 ○　　 ＼　　 ×　　 ×　 　△　　　1勝2敗2分　　　4
>5 山本　　　○　　 ○　　 ○　　 ＼　　 △　 　○　　　4勝　 1分 　　 1　
>6 高橋　　　×　　 ○　　 ○　　 △　 　＼　　 ○　　　3勝1敗1分　　　2
>7 渡辺　　　×　　 ○　　 △　　 ×　 　×　　 ＼　　　1勝3敗1分　　　5
>
>手段は関数、マクロ等何でも構いません。どなたか教えてください。よろしくお願いします。

数式でもできそうですけどね！！

１．Ｌ列を作業列にして、
　　セルＬ２に

=COUNTIF(D2:I2,"○")*COUNTA($D$1:$I$1)+COUNTA($D$1:$I$1)-COUNTIF(D2:I2,"×")

という数式を指定して、Ｌ７までフィル操作を行います。


２．　セルＫ２に

=RANK(L2,$L$2:$L$7)

とし、ＫＬまでフィル操作を行います。


これでＫ列に順位が表示されるはずですが・・・。
【41894】Re:順位のつけ方
発言  ｂｙｋｉｎ  - 06/8/25(金) 12:49 -
引用なし
パスワード
   こんにちわ。

わても数式でええと思います。
ただ・・・ichinoseはん、間違ってまっせ（＾＾；；

>=COUNTIF(D2:I2,"○")*COUNTA($D$1:$I$1)+COUNTA($D$1:$I$1)-COUNTIF(D2:I2,"×")

　　↓

=COUNTIF(B2:G2,"○")*COUNTA($B$1:$G$1)+COUNTA($B$1:$G$1)-COUNTIF(B2:G2,"×")


せやけど、↓こんなんで十分なんとちゃいまっか？

=COUNTIF(B2:G2,"○")*1000-COUNTIF(B2:G2,"×")

要は重み付けができればええねんから・・・
ほな。
【41902】Re:順位のつけ方
発言  ichinose  - 06/8/25(金) 17:59 -
引用なし
パスワード
   ▼ｂｙｋｉｎ さん：
こんばんは。

>
>わても数式でええと思います。
>ただ・・・ichinoseはん、間違ってまっせ（＾＾；；
>
>>=COUNTIF(D2:I2,"○")*COUNTA($D$1:$I$1)+COUNTA($D$1:$I$1)-COUNTIF(D2:I2,"×")
>
>　　↓
あらっ、セル範囲間違えてましたね！！（まったく気が付かなかった）

>
>=COUNTIF(B2:G2,"○")*COUNTA($B$1:$G$1)+COUNTA($B$1:$G$1)-COUNTIF(B2:G2,"×")
修正、ありがとうございます。


帰ってからこう↓修正しようと思っていました。

=COUNTIF(B2:G2,"○")*COUNTA($B$1:$G$1)-COUNTIF(B2:G2,"×")

>
>せやけど、↓こんなんで十分なんとちゃいまっか？
>
>=COUNTIF(B2:G2,"○")*1000-COUNTIF(B2:G2,"×")

ですね！！
【41910】Re:順位のつけ方
回答  ナイスプログラム WEB  - 06/8/25(金) 22:10 -
引用なし
パスワード
   　今晩は。

　仮に、h,i,j列の勝、敗、分けが、それぞれ別のセルに書いてあるのなら、
一般機能で出来ると思います。

1.敗の列を昇順でソート
2.勝の列を降順でソート

これで順位で並ぶと思います。テストして見て下さい。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6996 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free