Formulas en Excel

[Arnaldo Toledano]

Gente.
Como se hace en excel para grabar formulas y que estas se ejecute.
Concretamente, logro grabar algo asi como
=SUMA(I8:I118)
Pero al momento de abrir la hoja de calculo, esta formula no esta ejecutada y solo figura el literal.
Si realizo un F2 sobre la celda y le doy enter, logro que la formula se ejecute.

Alguna sugerencia para que al abrir ya se encuentre ejecutada  ???


Arnaldo Toledano

[Claudio Luna]

Arnaldo,

Según San Google ...

http://www.compartir-tecnologias.es/respuesta/ejecutar-una-macro-al-abrir-archivo-excel-ayuda-203279391.html

acá dan un respuesta.

Saludos

Claudio

Arnaldo Toledano

--
 
 
 

[edgar suarez kummers]

Estimado Arnaldo:

Al pararse sobre una celda, arriba en la regleta le escoges la función y el rango.

Eso es lo grande de Excel

please CLICK here

edgar suarez kummers

Arnaldo Toledano

--
 
 
 

[gonzal...@hotmail.com]

Hola Arnaldo
Las formulas tienes que escribirlas en ingles y en vez de poner : (dos punos) pones ; (punto y coma) en el rango

es decir tu formula seria asi: =sum(I18;I18)

[Claudio Luna]

Arnaldo,

Definis una macro como el link que te pasé y en el evento workbook.open() llamás a la macro

Lo probe y me funciona sin problemas.

Saludos

Claudio

--
 
 
 

[leonardo trujillo]

si entendí bien lo que te pasa... ves la fórmula en lugar del valor?

Paso 1
Pulsamos el icono de office, Opciones EXCEL, avanzadas

Paso 2
Buscamos "mostrar opciones para esta hoja" y chequeamos mostrar formulas en lugar de los resultados calculados

http://www.microsoft.com/spain/office/trucos/semana/mostrar_formulas.mspx
saludos

--
 
 
 

[FidelJ]

Para automatización, desde Visual Fox

Oexcel = CREATEOBJECT("Excel.Application")

XLSheet = oexcel.ActiveSheet

cLetra='A|B|C|D|...|' "Letra de columna"

rFirst=nPrimerFila

rLast=nFila_de_Formula

nCols=nColumna_de_Formula

cFuncion="=Sum("+cLetra+ltrim(str(rFirst))+":";

+cLetra+ltrim(str(rLast-1))+")"

with XLSheet.Cells(RLast,nCols)

.VALUE=cFuncion

.FONT.NAME = "Arial"

.FONT.SIZE = 8

.FONT.BOLD=.T.

endwith

[leonardo trujillo]

uuuh perdón, no entendí, pensé que era un OT, ahora veo que es desde VFP
aunque el comportamiento que contás parece más de la configuración de las opciones de excel

--
 
 
 

[Antonio.xt]

tesys, si es por medio de automatizacion la forma de insertar un total en una celda es la siguiente:

oExcel.range("C"+LTRIM(STR(fila))).value = "=SUM(C" + ALLTRIM(STR(fila_ini)) +":C" + ALLTRIM(STR(fila-1)) + ")"

Donde :

oExcel = El objeto Excel

C = La columna que deseas sumar

fila_ini = no. de fila donde empieza la suma

fila = fila actual, o donde deseas colocar la formula de la suma

Saludos...

Charles A. Moreno

[Luis Maria Guayan]

Arnaldo, a todas las fórmulas las debes escribir en Inglés, en tu caso SUM(I8:I118)

 

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com

Nada corre como un zorro
_________________________

Arnaldo Toledano

--
 
 
 

[Arnaldo Toledano]

Gracias Gente.
Gracias Fidel, me agregaste unas cosillas que me sirvieron.
Gonzalo, no va el punto y coma (;) Van los DOS PUNTOS (:).

Arnaldo Toledano

--
 
 
 

--
Arnaldo Toledano Tesys Informática Córdoba Argentina

[edgar suarez kummers]

Esrimado Arnaldo:

¿ Te interesa pintar gráficas de Gantt ?

Excel no lo trae, pero se puede hacer desde un Macro.

Si te es útil, te envío el macro.

please CLICK here

edgar suarez kummers

--
 
 
 

[Arnaldo Toledano]

Sera bien venido.

Gracias Edgar

Arnaldo

[edgar suarez kummers]

Vale Arnaldo ...

Debo escoltar a mi esposa a nuestro nicho

así que la tendrás mañana temprano y el

grupo igual

saludos

please CLICK here

edgar suarez kummers

--
 
 
 

[Arnaldo Toledano]

Decile a tu esposa que me prometiste unas "macros" para mñn temprano.
Que tenga piedad de vos en el nicho....


Arnaldo

[edgar suarez kummers]

Graficas de Gantt

Las cuatro columnas de la tabla son de Excel son:

Títulos (campo caracter de 50 bytes)

Iniciado (campo de fecha = Date )

corridos (número entero hasta 10 dígitos)

faltando (número entero hasta 10 dígitos)

O se le dicta en corridos un número de días

O se le dicta en faltando un número de días

Pero nunca en ambos

Por ejemplo:

Títulos "Elecciones en Venezuela"

Iniciado "07/10/2012"

corridos 0

faltando 11

Tlitukis "nuerte de Gadafi"

iniciado "20/10/2011"

corridos 344

faltando 0

y así sucesívamente los ejemplos

Lo que ocurre es que en mi software se le dicta una fecha de cuando quiere uno el reporte y entonces llena de todos los históricos las fechas del evento y o bien los días que faltan para la fecha dictada o los días corridos desde la fecha dictada.

Cuando vayas a pintar el Gantt

Se resalta con el Mouse los títulos

y además las cuatro columnas con

todas las filas hasta adonde hayan datos.

Y se corre (run) el Macro.

Instrucciones

1. Abra la tabla de Excel exportada llamada (gantt).

2. Presione (ALT+F11) para iniciar el Editor de Visual Basic.

3. En el menú Insertar, haga clic en Módulo.

4. Resalte el código azul y copielo con (CTRL - C) 

 situado abajo de este menu y péguelo usando (CTRL-V) en la hoja de módulo de Visual Basic:

5. Presione (ALT+F11) para volver a Excel.

6. Estando en la tabla de excel llamada Gantt resalte todos los datos.

7. En el menú Herramientas, elija Macro y a continuación, haga clic en Macros.

8. Haga clic en Diagrama de Gantt y a continuación, haga clic en Ejecutar.

9. Escriba el título de gráfico cuando se lo solicita.

El diagrama de Gantt aparece en una hoja nueva de gráfico.

Puede agregar cualquier formato adicional que desee.

El Macro......

Option Explicit

Sub Gantt_Chart()

Dim rge As String

Dim ValueAxisMinValue As Date

Dim shtname As String

Dim Title As String, aChart As Chart

rge = Selection.Address()

ValueAxisMinValue = Selection.Cells(2, 2).Value

Title = InputBox("Dicte Un Título")

shtname = ActiveSheet.Name

Application.ScreenUpdating = False

Set aChart = Charts.Add

With aChart

.ChartWizard Source:=Sheets(shtname).Range(rge), _

Gallery:=xlBar, Format:=3, PlotBy:=xlColumns, _

CategoryLabels:=1, SeriesLabels:=1, HasLegend:=1, _

Title:=Title, CategoryTitle:="", ValueTitle:="", _

ExtraTitle:=""

.Legend.Delete

With .SeriesCollection(1)

With .Border

.Weight = xlThin

.LineStyle = xlNone

End With

.InvertIfNegative = False

.Interior.ColorIndex = xlNone

End With

With .Axes(xlCategory)

.ReversePlotOrder = True

.TickLabelSpacing = 1

.TickMarkSpacing = 1

.AxisBetweenCategories = True

End With

With .Axes(xlValue)

.MinimumScale = ValueAxisMinValue

.MaximumScaleIsAuto = True

.MinorUnitIsAuto = True

.MajorUnitIsAuto = True

.Crosses = xlAutomatic

.ReversePlotOrder = False

.ScaleType = False

.HasMajorGridlines = True

.HasMinorGridlines = False

End With

End With

Application.ScreenUpdating = True

End Sub

please CLICK here

edgar suarez kummers

--
 
 
 

[Arnaldo Toledano]

Gracias Edgar, lo examinaremos...


Arnaldo