13/02/2004, 05:02
|
| | | Fecha de Ingreso: noviembre-2003
Mensajes: 121
Antigüedad: 21 años, 5 meses Puntos: 0 | |
| If Then Else
Realmente no se que esta mal, sólo me ejecuta la 1º acción para ambos casos. Por ejemplo, si difX o difY = 650, solo me realiza el primer If y no me salta al segundo como debería ser.
¿en que me falla?, ¿cómo puedo resolverlo?
Dim difX, difY
difX=Rng(2)-Rng(0)
difY=Rng(3)-Rng(1)
Public valor, escala
If difX>difY Then
IF difX<=500 Then
valor1=(difX/10.5)*100
valor= 500/valor1
escala = 500
ElseIf difX>500 and difX<=1000 Then
valor1=(difX/10.5)*100
valor= 1000/valor1
escala = 1000
ElseIf difX>1000 and difX<=2000 Then
valor1=(difX/10.5)*100
valor= 2000/valor1
escala = 2000
ElseIf difX>2000 and difX<=4000 Then
valor1=(difX/10.5)*100
valor= 4000/valor1
escala = 4000
Else
End If
Else
IF difY<=500 Then
valor1=(difY/10.5)*100
valor= 500/valor1
escala = 500
ElseIf difY>500 and difY<=1000 Then
valor1=(difY/10.5)*100
valor= 1000/valor1
escala = 1000
ElseIf difY>1000 and difY<=2000 Then
valor1=(difY/10.5)*100
valor= 2000/valor1
escala = 2000
ElseIf difY>2000 and difY<=4000 Then
valor1=(difY/10.5)*100
valor= 4000/valor1
escala = 4000
Else
END IF
END IF |