No.5
- 回答日時:
同順がでる場合は、重み付けをして同順がでないようにします。
(1)仮に一行目から、A列:No.、B列:得点、C列:重み付け得点(作業用)、D列:順位とします。(データ数は仮に10とし、No.は10まで記入)
(2)C2に=B2+0.5*A2/(MAX($A$2:$A$11))を入力して、11行までコピー
(3)D2に=RANK(C2,$C$2:$C$11)として、11行までコピー
(3)上位三位まで合計したいセルを=SUMIF(D2:D11,"<=3",B2:B11)
とします。
No.4
- 回答日時:
ユーザー関数を作るとすれば
VBEの標準モジュール画面に下記を貼りつけると良い。
Function rankx(a, x)
Dim cl As Range
Dim b(1000)
n = 0
For Each cl In a
n = n + 1
b(n) = cl
Next
'----
For i = 1 To n
For j = i + 1 To n
If b(i) > b(j) Then
Else
w = b(i)
b(i) = b(j)
b(j) = w
End If
Next j
Next i
'----
t = 0
For i = 1 To x
t = t + b(i)
Next i
rankx = t
End Function
骨子はソートをしただけのもの。
データ数1000以下であること。以上の時はDim b(1000)
を増やすこと。
下位から数える時は、上記ソートの部分のコードを昇順向きに組替えないといけない。
シートで結果を出したいセルに
=rankx(A1:A10,4)のように関数を入力する。
A1:A10はデータの入っているセル範囲、4は上位
4個を取る(4,5位同一データであればどちらが取られるかは偶然)ことを意味する。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの警告について
-
タイムスタンプとテキストから...
-
シートの情報を別のシートへま...
-
マクロの処理が遅くなった
-
Excelでの文字色
-
ワークシートに出現したこの画...
-
EXCELの散布図で日付が1900年に...
-
OFFSET関数を使用したいのです...
-
エクセルでファイルの最終更新...
-
エクセルの文字が途中から消える
-
エクセルデーターから必要な項...
-
Excel 大小比較演算子による「...
-
SUBTOTALは、参照された数字で...
-
エクセルの数式バーのフォント...
-
エクセルの「条件付き書式」を...
-
Excelについて教えてください。...
-
エクセルVBA 月の中で、月~土...
-
Excelの数字の前に入っている空...
-
Excelの関数について このよう...
-
セルの数を求めたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの警告について
-
Excelで数値を時間数に変換する...
-
エクセルの数式バーのフォント...
-
エクセルで数字の組み合わせを...
-
エクセルを使用して、円周率を...
-
Excelで特定の文字列が含まれて...
-
Excel 対象のセルに入力が無い...
-
任意の値が存在する行に名前を...
-
エクセルでファイルの最終更新...
-
index関数の説明をお願いします。
-
条件付き書式でやりたいのですが
-
重複しない値を取り出したい
-
【ExcelVBA】UTF-8(BOM無)でC...
-
【マクロ】マクロが割当てされ...
-
エクセル IF計算式?でしょうか?
-
エクセルで曜日を入れたい
-
表中の指定した条件の文字列を...
-
【Excel】版が同じ事を示す番号...
-
EXCELの散布図で日付が1900年に...
-
Excelについて。Excelに縦1列に...
おすすめ情報