> セルの番号とテキストボックスの番号が一致しない場合があるので、 バラバラなのですか？だったら、テキストボックスの番号を変えたらどうでしょう？

> あとテキストボックスが１００個ほどあるのですが、 では、いちいちテキストボックスごとにコードを書いてはいられませんね。 仮に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

質問ではオブジェクトおよび境界値があいまいなので以下の前提と仮定しました。 「テキストボックス」とはコントロールツールではなくオートシェープのテキストとし、名前が　"テキスト 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キーを同時に押してワークシートへもどります。