よねさんのWordとExcelの小部屋　なんでも掲示板 [One Message View / Re[2]: 色付きセルで]

よねさんのWordとExcelの小部屋　なんでも掲示板

■13470 / 2階層)

　色付きセルで

□投稿者/ aki -(2020/09/10(Thu) 15:54:16)

お返事ありがとうございます。

下記のコーディングで完璧でした！

色々と応用させていただきます、誠に感謝申し上げます！

> 最大値はColorMax、最小値はColorMinとしています。
>
> Function ColorMax(R1 As Range, C As Range)
> Dim r As Range
>
> Application.Volatile
> ColorMax = 0
> For Each r In R1
> If r.Interior.Color = C.Interior.Color Then
> If ColorMax < r.Value Then ColorMax = r.Value
>
> End If
> Next r
>
> End Function
>
> Function ColorMin(R1 As Range, C As Range)
> Dim r As Range
>
> Application.Volatile
> ColorMin = 10 ^ 9
> For Each r In R1
> If r.Interior.Color = C.Interior.Color Then
> If ColorMin > r.Value Then ColorMin = r.Value
>
> End If
> Next r
>
> End Function

記事引用 削除キー/

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
←Re[1]: 色付きセルで /よねさん	返信無し
色付きセルで / aki (20/09/09(Wed) 11:35) #13468
`└` Re[1]: 色付きセルで / よねさん (20/09/09(Wed) 14:03) #13469
`└` 色付きセルで / aki (20/09/10(Thu) 15:54) #13470 ←Now
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

入力内容にタグは利用可能です。

他人を中傷する記事は管理者の判断で予告無く削除されます。
半角カナは使用しないでください。文字化けの原因になります。
名前、コメントは必須記入項目です。記入漏れはエラーになります。
メールアドレスには自動でNo-の文字が挿入されます。メール収集対策。
入力内容の一部は、次回投稿時の手間を省くためブラウザに記録されます。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
URLは自動的にリンクされます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
- No123 → 記事No123の記事リンクになります(指定表示)。
- No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
- No123-130 → 記事No123～130 の記事リンクになります(連続表示)。

Name	/
E-Mail	/
Title	/
URL	/
Comment/ 通常モード->　図表モード-> (適当に改行して下さい/半角10000文字以内) ■No13470に返信(akiさんの記事) > お返事ありがとうございます。 > > 下記のコーディングで完璧でした！ > > 色々と応用させていただきます、誠に感謝申し上げます！ > > > > 最大値はColorMax、最小値はColorMinとしています。 > > > > Function ColorMax(R1 As Range, C As Range) > > Dim r As Range > > > > Application.Volatile > > ColorMax = 0 > > For Each r In R1 > > If r.Interior.Color = C.Interior.Color Then > > If ColorMax < r.Value Then ColorMax = r.Value > > > > End If > > Next r > > > > End Function > > > > Function ColorMin(R1 As Range, C As Range) > > Dim r As Range > > > > Application.Volatile > > ColorMin = 10 ^ 9 > > For Each r In R1 > > If r.Interior.Color = C.Interior.Color Then > > If ColorMin > r.Value Then ColorMin = r.Value > > > > End If > > Next r > > > > End Function
削除キー	/ (半角8文字以内)
ガード用キー(必須)	/ 1357と半角で入力
プレビュー/

HOME HELP 新規作成新着記事ツリー表示トピック表示検索過去ログ

- Child Tree -