テキストボックスの色分け

質問

シート１のA１のセルに数字、B1に数字が記載されています。
その数字にてシート２のテクストボックスの色分けをしたいのですが。
A1のセルが－５より小さい場合は赤
A1のセルが－５より大きく、B1のセルが－３より大きい場合は緑
A1のセルが－５より大きく、B1のセルが－３から－５の場合は青
A1のセルが－５より大きく、B1のセルが－５より小さい場合は赤

A1が－５より小さい場合はすべて赤
A1の値が－５より大きい場合にB1のセルの値で色分けをしたいのです。
ちなみに－３は－５より大きいと思って説明しています。

説明が下手ですいませんが、よろしくお願いいたします。

エクセルは２００３です。

回答No.3

merlionXX · ベストアンサー

merlionXXです。

先ほどの回答に数字の誤りを発見しました。
また、フォントの色を指定するColorIndexと、オートシェープの線や塗りつぶし色を指定するSchemeColorの数値間の相関関係が分かりましたので以下のように変更します。

Sheet1のA1～B100の範囲に入力された場合に作動します。
Target.Rowで入力行を取得し、その数値に対応するSheet2のオートシェープ（テキストボックス）のフォントおよび線の色を変更します。
Sheet1のシートモジュールに以下を記述してください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B100")) Is Nothing Then Exit Sub
If Cells(Target.Row, "A").Value < -5 Then
c = 10
Else
Select Case Cells(Target.Row, "B").Value
Case Is > -3
c = 17
Case Is < -5
c = 10
Case Else
c = 12
End Select
End If
With Sheets("Sheet2").Shapes("テキスト " & Target.Row)
.Line.ForeColor.SchemeColor = c
.TextFrame.Characters.Font.ColorIndex = c - 7
End With
End Sub

お礼

有難う御座います。
利用させて頂きます。

手が空いている時で構いませんので、
セルの番号とテキストボックスの番号が一致しない場合があるので、
テキストボックス１つづつで対応のさせ方もわかればお願いいたします。
いちばん最初のもので試したのですが、
２つ目のテキストボックスに対応できないんです。
素人なりにやってみたのですがだめでした。

宜しくお願いいたします。

回答No.4

merlionXX

> セルの番号とテキストボックスの番号が一致しない場合があるので、

バラバラなのですか？だったら、テキストボックスの番号を変えたらどうでしょう？

お礼

やはり、それが一番早いようですね。

色々と有難う御座いました。

回答No.2

merlionXX

> あとテキストボックスが１００個ほどあるのですが、

では、いちいちテキストボックスごとにコードを書いてはいられませんね。
仮にA、B列の行番号と、テキストボックスの名前"テキスト 1"の番号が一致しているなら以下のようにすれば一発でいけますね。

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B100")) Is Nothing Then Exit Sub
If Cells(Target.Row, "A").Value < -5 Then
c = 10
f = 3
Else
Select Case Cells(Target.Row, "B").Value
Case Is > -3
c = 17
f = 10
Case Is < -5
c = 10
f = 5
Case Else
c = 12
f = 32
End Select
End If
With Sheets("Sheet2").Shapes("テキスト " & Target.Row)
.Line.ForeColor.SchemeColor = c
.TextFrame.Characters.Font.ColorIndex = f
End With
End Sub

回答No.1

merlionXX

質問ではオブジェクトおよび境界値があいまいなので以下の前提と仮定しました。

「テキストボックス」とはコントロールツールではなくオートシェープのテキストとし、名前が　"テキスト 1"　とする。

Sheet1のA1セルまたはB1セルに数値が手入力された場合、Sheet2に配置された"テキスト 1"の塗りつぶし色を自動で変える。

A1のセルが－５未満の場合は赤
A1のセルが－５以上の場合、
B1のセルが－３を超える場合は緑
B1のセルが－３から－５の場合は青
B1のセルが－５未満の場合は赤

以下の手順でやってみてください。

１．シートのタブを右クリックし、「コードの表示」を選択。
２．出てきたVisualBasicEditor（白い部分）に下記のコードをコピペ。

'*****ここから下をコピペ*****

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" And Target.Address <> "$B$1" Then Exit Sub

If Range("A1").Value < -5 Then
c = 10
Else
Select Case Range("B1").Value
Case Is > -3
c = 17
Case Is < -5
c = 10
Case Else
c = 12
End Select
End If
Sheets("Sheet2").Shapes("テキスト 1").Fill.ForeColor.SchemeColor = c
End Sub

'*****ここより上までをコピペ*****

３．AltキーとF11キーを同時に押してワークシートへもどります。

お礼

有難う御座います。

何となくですが解ってきました。
実際は塗つぶしではなく、枠の色と文字色を変更したいのです。

あとテキストボックスが１００個ほどあるのですが、
If から　End If　とその下の行を繰り返せばいいのでしょうか？
Ａ１・Ｂ１・テキスト１を２・３と増やして行くという具合に

宜しくお願いいたします。