20/03/2007, 10:29
|
| | | Fecha de Ingreso: enero-2007 Ubicación: Tingo María - Perú
Mensajes: 399
Antigüedad: 18 años, 3 meses Puntos: 13 | |
| Re: Excel, si el valor de la celda es positivo o negativo
If CDbl(appexcel.Workbooks("te.xls").Sheets("sin_pro" ).Range("B35") ) >0 Then
appexcel.Workbooks("te.xls").Sheets("sin_pro").Ran ge("B35").Interior.ColorIndex = 6
appexcel.Workbooks("te.xls").Sheets("sin_pro").Ran ge("B35").Interior.Pattern = xlSolid
Else
appexcel.Workbooks("te.xls").Sheets("sin_pro").Ran ge("B35").Interior.ColorIndex = 8
appexcel.Workbooks("te.xls").Sheets("sin_pro").Ran ge("B35").Interior.Pattern = xlSolid
End If
__________________
Vivir para ser buenos y ser buenos para servir mejor. |