人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

●質問者: 匿名質問者
●カテゴリ:コンピュータ
○ 状態 :キャンセル
└ 回答数 : 0/0件

回答がありません
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ