No.2ベストアンサー
- 回答日時:
何をもって「ワースト5」とするのか不明ですが、一例としてとりあえず対象が数値で、小さい方から5つ選んでセルに着色するならこんな感じでしょうか。
Sub test01()
Dim Rng As Range, c As Range
Dim i As Integer
Dim x
Set Rng = Range("B2:AF2")
Rng.Interior.ColorIndex = xlNone
For i = 1 To 5
x = Application.WorksheetFunction.Small(Rng, i)
Set c = Rng.Find(What:=x, LookIn:=xlValues, LookAt:=xlWhole)
c.Interior.ColorIndex = i + 3
Set c = Nothing
Next i
Set Rng = Nothing
End Sub
No.3
- 回答日時:
>どのようなコードになるでしょうか?
何がわからないのでしょう? 「ワースト5」の求め方? 色の変え方? 具体的ではないので回答もしにくいですね。それとも丸投げ質問でしょうか
とりあえずサンプルマクロです。シート名右クリック→コードの表示で開く画面に貼り付けてください。シートの値が変われば色が変わるはずです。「ワースト」が数値の大きい方か、小さい方かも明示されていないので小さい方をワーストにしました。違うならご自身で修正してください
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
If Not Intersect(Target, Range("A2:AF2")) Is Nothing Then
Range("A2:AF2").Interior.ColorIndex = xlNone
For Each r In Range("A2:AF2")
If Len(r.Value) > 0 And IsNumeric(r.Value) Then
Select Case Application.Rank(r.Value, Range("A2:AF2"), 1)
Case Is = 1
r.Interior.ColorIndex = 3
Case Is = 2
r.Interior.ColorIndex = 7
Case Is = 3
r.Interior.ColorIndex = 6
Case Is = 4
r.Interior.ColorIndex = 4
Case Is = 5
r.Interior.ColorIndex = 5
End Select
End If
Next r
End If
End Sub
No.1
- 回答日時:
ワースト5とは、数値が小さいほうから5ということで宜しいでしょうか。
ワークシート関数のRANK関数をVBAで利用した例です。
Sub Macro1()
Range("B2:AF21").Select
For Each r In Selection
Select Case Application.WorksheetFunction.Rank(r, Selection, 1)
Case 1
r.Interior.ColorIndex = 3
Case 2
r.Interior.ColorIndex = 4
Case 3
r.Interior.ColorIndex = 5
Case 4
r.Interior.ColorIndex = 6
Case 5
r.Interior.ColorIndex = 7
End Select
Next r
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Visual Basic(VBA) VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカウントできる、VB 2 2022/04/06 21:33
- Excel(エクセル) エクセルのマクロを教えてください。 4 2022/10/06 08:53
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) Excel_マクロ_複数のシートのVLOOKUPで表示された#N/A以外に色付けをしたいです 1 2023/02/16 22:37
- Excel(エクセル) エクセルの値を元に図形の色を変えたい 2 2022/05/11 01:37
- その他(Microsoft Office) エクセル 表の移動 2 2023/04/05 20:29
- 会計ソフト・業務用ソフト エクセル 背景色のついたセル位置を参考にして固定の数値を取得する 4 2022/07/11 08:44
- Excel(エクセル) エクセル 関数参照範囲のセルの表示 1 2023/03/16 14:55
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
尿検査前日に自慰行為した時の...
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
検便についてです。 便は取れた...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
尿検査の前日は自慰控えたほう...
-
精子が黄色?
-
中出しをするとお腹が痛い・・・。
-
EXCELで条件付き書式で空白セル...
-
excelでsin二乗のやり方を教え...
-
これって喉仏ですか? 私は女性...
-
口の中に黒い血の塊
-
納豆食べた後の尿の納豆臭は何故?
-
2つの数値のうち、数値が小さい...
-
エクセル指定した範囲からラン...
-
筋トレするとチンコが縮んじゃ...
-
変な話しになります。尿検査で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
首吊りどこ締めるの
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
白血球が多いとどんな心配があ...
-
中出しをするとお腹が痛い・・・。
-
射精をして1週間以内に尿検査を...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
変な話しになります。尿検査で...
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
男です。昨日の午後3時くらいに...
-
今朝、毎朝の習慣でオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
1日前の検尿
-
値が入っているときだけ計算結...
-
精子が黄色?
おすすめ情報