| |
こんばんは。
点数の結果条件として素人ながら
Sub 判定1()
Dim gyou As Integer
For gyou = 6 To 6
If Cells(gyou, "c") >= 85 Then
With Range("d11").Interior
.ColorIndex = 33
.Pattern = xlSolid
End With
End If
Next gyou
End Sub
Sub 判定2()
Dim lngkekka As Long
lngkekka = Range("c6") - Range("d6")
Range("e50") = lngkekka
Dim gyou As Integer
For gyou = 50 To 50
If Range("e50") >= 11 Then
With Range("e11").Interior
.ColorIndex = 33
.Pattern = xlSolid
End With
End If
Next gyou
End Sub
Sub 判定3()
Dim lngkekka As Long
lngkekka = Range("d6") - Range("e6")
Range("f50") = lngkekka
Dim gyou As Integer
For gyou = 50 To 50
If Range("f50") >= 6 And Range("f50") <= 10 Then
With Range("f11").Interior
.ColorIndex = 33
.Pattern = xlSolid
End With
End If
Next gyou
End Sub
と３つに分けて条件結果を作っています。
そこで質問なのですが
1.・・・３つの条件をすべて満たせば「Ｄ１１」に青、
１つでも満たさなければ「Ｄ１１」に赤を表示させるには
どのようにすれば可能なのでしょうか？
今は１つ１つのマクロ実行で行っていますが
１度の実行で表示させたいと考えています。
2.・・・1.に加えて現在は
判定２のc6−d6の結果をe50に
判定３のd6−e6の結果をf50に
１度表示させてますが、最終的には表示させずに
1.の様に実行させたいと考えています。
初めての作業でなんとかココまでは出来たのですが
ココから先がわからなかったのでお手伝いいただければと思います。
よろしくお願いします。
|
|
美紀子
- 07/7/3(火) 20:47 -
