[[20050222100822]]　『色が塗られていたら※を出力するには？』（ババンギダ）　ページの最後に飛ぶ

『色が塗られていたら※を出力するには？』（ババンギダ）

	1列	2列	3列	4列
1行	※	1緑色	a	あ
2行	※	2緑色	b赤	い
3行		3	g	う
4行	※	4	d赤	え
5行		5	a	お

上図のように、行に色が塗られているセルがあったら、
1列目に※が入るようにしたいのですが…。
方法はありますか？
よろしくお願いします。

 色ではなくデータ(1,2やb,dなどの条件)を元に式を作成されたほうが簡単ではないでしょうか。
 (無名)

列がかなりたくさんあって中身のデータも種類が豊富で、式にするのは
ちょっと難しいかなというところなんです。

 早いかどうかわかりませんが、
挿入→名前の定義で
例えば「色」として
=GET.CELL(63,Sheet1!B1)
としておきます。
F1に
=色
と入力してコピーします。
これでSheet1のB1に色があるかないか判断できます。
で、それを元に判断されてはどうですか？
=IF(SUM(F1:H1),"※","")
A　　　　　B　　　　C　　　　　D　　　E　　　　　F　　　　G　　　　　H
※	1緑色	a	あ		46	0	0
※	2緑色	b赤	い		43	46	0
	3	g	う		0	0	0
※	4	d赤	え		0	46	0
	5	a	お		0	0	0
こうなりました。
どうでしょう？
（SoulMan）

 背景色を手作業にしているのなら、作業を逆にしてはどうでしょうか。
条件付書式で「1列目に※が入力されていたら行背景色を赤にする」のほうが
簡単だと思いますけど。
（みやほりん）

 失礼します。グルグルっと回していくのでデータが多いと時間掛かるかもです。
　
Sub Test()
Set MyRange = Range("B1").CurrentRegion
With MyRange
    RCnt = .Rows.Count
    CCnt = .Columns.Count
    For MyR = 1 To RCnt
        For MyC = 2 To CCnt
            If Cells(MyR, MyC).Interior.ColorIndex > 0 Then
                Cells(MyR, 1).Value = "※"
                Exit For
            End If
        Next MyC
    Next MyR
End With
End Sub

 （川野鮎太郎）

できました！
ありがとうございます！！

コメント返信：

[ 一覧(最新更新順) ]

[[20050222100822]] 『色が塗られていたら※を出力するには？』（ババンギダ） ページの最後に飛ぶ

[[20050222100822]]　『色が塗られていたら※を出力するには？』（ババンギダ）　ページの最後に飛ぶ