その他何でも掲示板 [One Topic All View / 一番小さい値のセルを着色する / Page: 0]

その他何でも掲示板
(現在過去ログ1 を表示中)

[ 最新記事及び返信フォームをトピックトップへ ]

■163 / inTopicNo.1)

　NO TITLE

▼■

□投稿者/ no ＠ (1回)-(2007/12/10(Mon) 17:03:06)

初めて質問いたします。
場違いな疑問でしたらすいません。
では
エクセルにおいて、たとえば、A1、B1、C1、D1のセルの中に数値が入力されている場合、数値の一番小さいセルを選択してそのセルに着色する方法を教えてもらえますか。

引用返信/返信 [メール受信/OFF] 削除キー/

■164 / inTopicNo.2)

　Re[1]: NO TITLE

▲▼■

□投稿者/ ABCD (1回)-(2007/12/10(Mon) 18:41:10)

エクセルのサイトのほうがより答えを得やすいかも・・・。
稚拙なコードですが、参考程度に・・・。

Sub test()
Dim Myr As Range
Dim My_Area As Range
Set My_Area = Range(Cells(1, 1), Cells(4, 1))
Mynum = WorksheetFunction.Small(My_Area, 1)
For Each Myr In My_Area
If Myr.Value = Mynum Then
Myr.Interior.ColorIndex = 3
Else
Myr.Interior.ColorIndex = xlColorIndexNone
End If
Next Myr
End Sub

引用返信/返信 [メール受信/OFF] 削除キー/

■165 / inTopicNo.3)

　一番小さい値のセルを着色する

▲▼■

□投稿者/ N.Misumi (5回)-(2007/12/10(Mon) 19:40:18)
https://www.aa.alpha-net.ne.jp/nmisumi/

シンプルな方法で

例えば

___A列__B列___C列____D列
1__50___20____100____OK
2__30___20____ 60____OK
3__40___30____120____OUT

上記の表よりA～C列があり、C列の条件が100以下で
D列で1と2行目がＯＫになっています。
さらにＯＫのなかで
100以下で一番小さい数値を採用します。
結果はA2～D2となりますが、そのセルを

自動で指定色で着色できる方法がありますでしょうか？

Ans.

A1,D1セルには=IF(C1<=100,"OK","OUT")
A2,D2セルには=IF(C2<=100,"OK","OUT")
A3,D3セルには=IF(C3<=100,"OK","OUT")

が入力されているとして

A1:D3を選択して
書式--条件付き書式を設定します。
条件１を→数式がにして
計算式に
=AND($C1<=100,SMALL($C$1:$C$3,1)=$C1)
を入力して

書式→パターンタブで好きな色を選んで→OK→OKで

同じく A2:D3とA3:D3 も同じ条件付き書式を設定する。

A2:D3の計算式は =AND($C2<=100,SMALL($C$1:$C$3,1)=$C2)
A3:D3の計算式は =AND($C3<=100,SMALL($C$1:$C$3,1)=$C3)

結果
A2：D2に選択した色になります。

引用返信/返信 [メール受信/OFF] 削除キー/

トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

- Child Tree -