- ©«¤l
- 51
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- vista
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-11-26
- ³Ì«áµn¿ý
- 2024-1-15
|
ÁÂÁ¦U¦ì¤j¼wªºÀ°¦£
§â¥¦§ï¦¨¦p¤U´N¥i¥H¥Î¤F
ÁÂÁ³á
Dim N As Variant, O As Variant, P As Variant, Q As Variant
For i = 1 To A
N = Range("N" & i + 2)
O = Range("O" & i + 2)
P = Range("P" & i + 2)
Q = Range("Q" & i + 2)
If N >= 156 And N < 156.5 And O >= 156 And O < 156.5 And P >= 156 And P < 156.5 And Q >= 156 And Q < 156.5 Then
Range("bq" & i + 2) = "¤Ø¤o¦X³W"
ElseIf N < 156 Or N >= 156.5 And O < 156 Or O >= 156.5 And P < 156 Or P >= 156.5 And Q < 156 Or Q >= 156.5 Then
Range("bq" & i + 2) = "¤Ø¤o¤£¦X³W"
End If
Next i |
|