Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Servers
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-08-2010
Avatar de DarkBlue
DarkBlue DarkBlue is offline
Miembro
 
Registrado: jun 2010
Posts: 105
Poder: 14
DarkBlue Va por buen camino
ayuda urgente con funcion y excel

hola que tal estaba usando excel y delphi y necesitaba validar los datos... de alguna manera traer el resultado a delphi compararlo y modificar el valor de la hoja de excel bueno aqui les dejo mi codigo pero no me funciona al 100% el problema es que me sigue trayendo el mismo valor... siempre es true y aunque deba de dar false no cambia el resultado de la funcion


Código Delphi [-]
for X:=0 to npiezas-1 do //recorro el numero de items que tiene la hoja de excel
begin


    c:=X+fila;//comienzo siempre desde la fila 2
    A:='A'+inttostr(c);
    B:='B'+inttostr(c);
    F:='=ISBLANK(R[-4]'+'C[-'+inttostr(x+1)+'])';//creo una formula
    F2:='=ISTEXT(R[-4]'+'C[-'+inttostr(x+1)+'])';//otra formula

    formulaString2:=F2;//le asigo el valor de la formula
    XLS.Range['F1','F1'].select;//selecciono ese rango
    XLS.Selection.ClearContents;//borro lo que pueda haber

    XLS.Range['F1','F1'].formula:=formulastring2;//le pongo la formula


    v:=tostring(XLS.Range['F1','F1'].select);//llamo a una funcion para copiar el valor
    if  v= 'True' then XLS.Range[B,B].value:='0';     //si es texto verdadero
    
    showmessage(tostring(XLS.Range[B,B])); mostramos lo que trae la funcion
    listainserta.Items.Add(tostring(XLS.Range[B,B])); //insertamos el valor en una lista de delphi
    XLS.Range[A,A].copy;
    nombrepieza.Items.Add(tostring(XLS.Range[A,A]));//insertamos el nombre del item


end;


aqui esta la funcion que me permite copiar valores desde excel ...


Código Delphi [-]
function ToString(V: Variant): String;
begin
  Result := V;
end;

si saben por que me sigue dando siempre true... aunque en realidad el resultado de la funcion que aplico en excel da false ... ayuda urgente me queda poco tiempo y no se que hacer... :S muchas gracias y espero que este codigo le sirva a alguien =)
__________________
Todo es Relativo

Última edición por Neftali [Germán.Estévez] fecha: 11-08-2010 a las 11:34:48. Razón: EDITADO (Neftalí): Para añadir las etiquetas al código
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Añadir función celda de Excel Firibiri Servers 6 28-06-2014 12:16:12
Macros en Excel. Función similar a CONTAR.SI Delphius Varios 5 11-05-2007 22:16:46
Excel Y La Funcion Sub ASAPLTDA Windows 1 03-06-2005 04:19:32
Funcion Excel herodes Varios 2 23-02-2005 20:27:02
Funcion Sumar.Si de Excel. Andree Varios 5 15-12-2004 23:20:11


La franja horaria es GMT +2. Ahora son las 06:38:04.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi