ayuda urgente con funcion y excel

[DarkBlue]

hola, tiempo despues solucione esto pero creo que perdi el codigo asi que tu implementacion de esto no me funciono

Código Delphi [-]


                      WS := XLApplication.ActiveSheet ;

                      F2:='=IsText(E'+inttostr(xx)+')';
                      WS.Range['e5', 'e5'].Formula := f2 ;
                      WS.Range['E6','E6'].select;

                    v1:= XLApplication.Range['E5','E5'].select;
                   showmessage(tostring( XLApplication.Range['E5','E5'].select));

                 if ((VarType(v1)=varBoolean) And (v1))Then     ws.cells[xx,5].value:='0';

no se que hice mal