[[20130222161818]]　『色をつけると隣に行に数字がはいるようにしたい』（生どら）　ページの最後に飛ぶ

『色をつけると隣に行に数字がはいるようにしたい』（生どら）

初心者です。Excel2003
色をつけると隣の列に数字が入るようにする事は可能でしょうか？

A列に金額が入っていたとして1行目から4行目を黄色に色づけして
5行目から8行目を青色に色付けした場合にＢ列に1～4行目に1
5～8行目に2と数字が入るように

	A	B			
1	12,000	1			
2	5,000	1			
3	5,000	1			
4	-22,000	1			
5	500	2			
6	6,000	2			
7	700	2			
8	-7,000	2

Ｂ列に入るのは数字でなくても区別できるものだったいいです。
区別できなくても何らかの色がついたらＢ列になんらかのチェックが入るでもいいです。
宜しくお願いします。

条件付き書式くらいで色をいじくるのは難しいと思います。
なので簡単なユーザー関数を作成しました。
色は３（赤）　と　８（シアン）で１，２に対応してます。（Cod）

Function GetColor(P1 As Range)

    With P1.Interior
        GetColor = Switch(.ColorIndex = 3, 1, .ColorIndex = 8, 2)
    End With
End Function

 私だったら間違いなくB列に１、２を入力して
条件付書式でA列の色を変える方向だろうなぁ。
　
色を変更する操作より、テンキーたたくほうが早い。
（みやほりん）

ｃｏｄさま　みやほりんさま

お礼が遅くなってすみません。
回答ありがとうございます。

説明の仕方が悪くてすみません。
実はやりたいことはＡ列の1～4にカーソルをのせると合計が0になりますよね。
その場合その欄に色付けをしておいて（例えば青）
次に5～8にカーソルをのせると合計が０にはならないので別の色付けをしておいて（例えば赤）
それを見ながらＢ列に数字を入れて（青なら1赤なら2など）
それを後でＢ列でソートして消し込みをするという作業をしています。
（照合キーがひとつではないので手作業でしか０になるかの確認は出来ません）
この例では1～4とつながっていますが飛び飛びの場合もあります。

この作業をもっと楽に出来ないかと思い相談させていただきました。

色づけ以外でもいいので何らかの方法があったらご伝授下さい。

(生どら）

ＰＳ、すみませんＣｏｄさまの関数はどうやって使ったらいいですか？
ど素人ですみません。

 別案で。

 ・A1  を選択して名前定義
 ・名前は、たとえば GetColor で、参照範囲(R) に　=GET.CELL(63,!$A1)+NOW( )*0

 こうした上で、B1 に　=IF(GetColor=0,"",GetColor)
 これを下に、ズリズリとフィルコピー。

 エクセルでいうところのカラーインデックス番号が表示される（1～56)

 難点（欠点）は、単に背景色をかえただけではB列の数字が変化しない。
 シート上のどこかのセルに入力があったときに、はじめて反応する。

 (ぶらっと)

ぶらっとさま

回答ありがとうございました。
ためしにやってみました。
なんとか目的な事が出来そうな感じです。

たしかに難点（欠点）が気になりますが、
手作業よりは何千倍も楽に作業が出来そうです。
ありがとうございました。

（生どら）

すみません見落としてました。（Cod）

後で数式をセットしたときにはＯＫですが、数式セット後のセル色の変更には対応できていないです。
GetColor　に１行追加して、同時に対応シートのコードにSelectionChangeを追加すると
どこかのセル選択を変更すれば番号が変わると思います。

注）テストの都合ですが　赤と黄色に対応するように変更しました。（2007）

Function GetColor(P1 As Range)

    Application.Volatile　　　　　　　　　　'*１行追加
    With P1.Interior
        GetColor = Switch(.ColorIndex = 3, 1, .ColorIndex = 6, 2)
    End With
End Function
'********** シートのモジュールに貼り付け
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.Calculate
End Sub

コメント返信：

[ 一覧(最新更新順) ]

[[20130222161818]] 『色をつけると隣に行に数字がはいるようにしたい』（生どら） ページの最後に飛ぶ

[[20130222161818]]　『色をつけると隣に行に数字がはいるようにしたい』（生どら）　ページの最後に飛ぶ