エクセル 条件付き書式 アイコンセットでランク付けをしたい

エクセル2010を使用しています。
条件付き書式のアイコンセットを使って３つの数字をランク付けしたいのですがやり方がよくわかりません。

希望としては、計算結果が表示されるので
☆→最小値（画像ではJ3）
☆半分→中間（画像ではJ5）
★→最大値（画像ではJ4）
のようにしたいです。
上半分はデフォルトでうまくいっているのですが下半分が同列１位みたいになっています。
パーセントや決まった値ではなく計算結果の数字を厳密にランク付けして３つのアイコンで判断したいです。
可能でしたら方法を教えて下さい。お願いします。

No.2 回答者： googoo900 回答日時： 2015/08/23 13:07

下半分（J6,J7,J8）がうまくいかなかった原因は、デフォルト設定の値の範囲のせいです。

デフォルト設定の区分は、100～67%、67～33%、33～0%　であるため、近い値が２つと離れた値が１つの場合、そのようになってしまいます。

対処方法は以下のとおりです。
『条件付き書式』⇒『アイコンセット』⇒『その他のルール』
画面下段の範囲設定で以下のように入力すればOKです。（添付画像参照）
一番上：　">="　　"100"
真ん中：　">"　　　"0"
一番下：　設定項目なし

書式のみ貼りつけを行えば、繰り返しの作業も可能です。

No.1 回答者： WindFaller 回答日時： 2015/08/22 11:46

こんにちは。

この前の質問の方と内容的には同じですね。
http://oshiete.goo.ne.jp/qa/9035410.html

>☆→最小値（画像ではJ3）
>☆半分→中間（画像ではJ5）
>★→最大値（画像ではJ4）

つまり、3つに区切るということでしょうか？
紛らわしいので、罫線を入れるフラグを設けました。
1列に限ります。また、現在エラー処理はなされていないので、空白セルの場合でも、先頭に含めてしまいます。
かならず、データのある所から、マウスで処理データを選択してください。

'//
Sub MainOrder()
Dim c As Range
Dim Rng As Range
Const k As Integer = 3 '3セルごとに区切る
If TypeName(Selection) <> "Range" Then
　 MsgBox "範囲を選択してください。", vbExclamation
　 Exit Sub
End If
Set Rng = Selection.Columns(1)
　　Rng.FormatConditions.Delete
　　Rng.Borders.LineStyle = xlNone
　　Call FormatCondMacroMax(Rng, k)
End Sub

Sub FormatCondMacroMax(Rng As Range, ByVal k As Long)
'No. 9049769
　Dim i As Long
　Dim rw As Long
　Dim mx As Double
　Dim mn As Double
　Dim lFlg As Boolean 'k行ごとに罫線を入れるか
　lFlg = True　'罫線の区切りをするかのフラグ
　With Rng
　　rw = (Rng.Cells.Count \ k) * k
　　For i = 1 To rw Step k
　　'罫線で区切りをするか？
　　If lFlg Then
　　　With Rng.Cells(i + k).Borders(xlEdgeTop)
　　　　.LineStyle = xlContinuous
　　　　.ColorIndex = 0
　　　　.TintAndShade = 0
　　　　.Weight = xlThin
　　　End With
　　 End If
　　　With Rng.Cells(i).Resize(k)
　　　　mx = Application.Max(.Cells)
　　　　mn = Application.Min(.Cells)
　　　　With .FormatConditions
　　　　　.AddIconSetCondition
　　　　End With
　　　　With .FormatConditions(1)
　　　　　.ReverseOrder = False
　　　　　.ShowIconOnly = False
　　　　　.IconSet = ActiveWorkbook.IconSets(xl3Stars)
　　　　End With
　　　　With .FormatConditions(1).IconCriteria(2)
　　　　　.Type = xlConditionValueNumber
　　　　　.Value = mn
　　　　　.Operator = 5
　　　　End With
　　　　With .FormatConditions(1).IconCriteria(3)
　　　　　.Type = xlConditionValueNumber
　　　　　.Value = mx
　　　　　.Operator = 7
　　　　End With
　　　End With
　　Next i
　End With
End Sub
'///