Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

32658 / 76734

←次へ　｜　前へ→


	【49310】Re:上位５位まで書式設定

やま - 07/5/31(木) 1:44 -


	引用なし

	パスワード

やっとここまで出来ました
これに範囲D4からデータのあるD列最終行と
色設定を教えて下さい。よろしくお願いします。
色は　１位に・・・赤
　　　２位に・・・緑
　　　３位に・・・青
　　　４位に・・・ピンク
　　　５位に・・・オレンジ　です
追加ですが下記MsgBoxも不要です。

Sub 番号順()
　　Dim i As Long
With Selection

　　For i = 1 To 5
　　　　MsgBox i & "番目の大きい数:" & Application.Large(.Cells, i)
　　Next
End With

End Sub

1 hits

▼

【49300】上位５位まで書式設定 やま 07/5/30(水) 19:43