匿名質問者
匿名質問者匿名質問者とは「匿名質問」を利用して質問した質問者。
「匿名質問」では、ユーザー名を公開せずに匿名の質問ができます。
詳しくはこちら

VBAで、1列毎に上位3番目のセルに別々の色を入れるコードを書きたいです。

RANK関数とLARGE関数試しましたが、
途中でコードをどう展開していいのかわからなくなりました。
どなたか教えてください!!

Sub 各列上位3セル色分け()

Dim ws As Worksheet
Set ws = Worksheets("sheet1")
Dim i As Integer, j As Integer

MaxRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
MaxCol = ws.Cells(2, Columns.Count).End(xlToLeft).Column

For j = 2 To MaxCol
For i = 3 To MaxRow
1番目に大きい数値の入ったセル番地取得
赤色を入れる
2番目に大きい数値の入ったセル番地取得
黄色を入れる
3番目に大きい数値の入ったセル番地取得
青色を入れる
Next i
Next j

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/02/26 11:39:45
  • 終了:2013/03/05 11:40:04

回答(0件)

回答はまだありません

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません