| |
急に難しくなりました。
私の環境下では、サンプルとは少し違い
、今以下のコードを使って、AI列の数字が変わったときAH列の数字より大きいとき、
AI列の数字の背景が赤、小さいとき緑に変わるようにしました。
===============================================================
Private Sub Worksheet_Calculate()
On Error Resume Next
Dim i As Long
For i = 2 To 301
With Cells(i, 35)
If Cells(i, 34).Value <> 0 Then
If .Value > Cells(i, 34).Value Then
.Interior.ColorIndex = 3
.Font.ColorIndex = 2
ElseIf .Value < Cells(i, 34).Value Then
.Interior.ColorIndex = 10
.Font.ColorIndex = 2
End If
End If
End With
Next i
End sub
============================================================
AH列の数字はAI列の数字の変化前の数字が来るようにしてありますのでやりたいことは実現しているわけです。
しかし今回の新しく示してもらったコードを適用しようとすると、変化した数字のところではなくその他いくつかの部分が赤く点滅します。
（i,1）の部分を（i,35）に変えてみるとA列ではなく、AI列が点滅するようになりましたが、数字が変化したところの上下いくつか離れた場所が点滅します。
しかも赤色のみの点滅です。
ちょっと今回の例題のコードを解読したいのでいくつか質問します。
1.rng = rng & i & ","
のrng というのはどこで定義しているのでしょうか？
またrng & i & ","の意味は？
2.For j = LBound(cnt) To UBound(cnt)
のLBound、UBoundの使い方にとまどっています。
（定義は調べたが、その意味がいまいちよくわからない）
3.cnt = Split(Left(rng, Len(rng) - 1), ",")
の意味の解読が難しいです。
|
|
shellken
- 06/12/10(日) 22:03 -
