Excel - Macro de gráficos. Ayuda

Macro de gráficos. Ayuda

Publicado por AMGM (6 intervenciones) el 03/03/2015 21:48:13

Hola muy buenas.
No se trabajar mucho en excel, pero necesito hacer unos gráficos (cientos).

Tengo un archivo de excel (realizado a partir de importar datos desde un archivo .ASC) , del cual necesito graficar en cada hoja su "gráfica lineal correpondiente" , pues normalmente en cada archivo tengo unas 5 hojas , y la verdad es bastante tedioso seleccionar los datos de cada hoja y hacerle su gráfica correspondiente en esta misma hoja.

por eso me preguntaba si existe y me podeis ayudar alguna forma de insertar este gráfico de manera predeterminada,
(adjunto archivo para que os hagáis una idea de lo que quiero hacer).

* también me pregunto si existe alguna manera de hacer cada hoja de cálculo de alguna manera automatica, es decir crear algun macro en el que directamente me coja los archivo .asc .

* y por otra parte, ¿es posible superponer las 5 gráficas con diferentes colores para tener una idea de la igualdad de los datos?

Muchísimas gracias,

14301_03_SiC_Q2.rar(516,7 KB)

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Macro de gráficos. Ayuda

Publicado por gonzalo (13 intervenciones) el 03/03/2015 22:27:47

no pude ver el archivo, mis disculpas

lo que tendiras que hacer es usar un

x=dir("path\con\*.asc")
do while x<>""
'aqui agregas el codigo para leer los datos y ponerlos en la hoja de excel

y que termines de leer los datos entonces debes seleccionar el area donde estan los datos y pedir el grafico.

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$B$4")
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.ChartArea.Select

' esta rutina me ha funcionado bien, solo tienes que modificar el rango a1:b4 por el rango que le corresponde y listo.
x=dir

loop

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Macro de gráficos. Ayuda

Publicado por AMGM (6 intervenciones) el 03/03/2015 22:51:14

gracias!
yo soy muy torpe con esto. pero iré investigando por esa línea!
un saludo.
Y muchas gracias de nuevo.

Valora esta respuesta

Comentar

Macro de gráficos. Ayuda

Publicado por gonzalo (13 intervenciones) el 03/03/2015 23:34:59

la estructura del archivo es siempre la misma?

es un archivo de excel por archivo asc?

o una hoja de excel por archivo asc?

Valora esta respuesta

Comentar

Macro de gráficos. Ayuda

Publicado por AMGM (6 intervenciones) el 03/03/2015 23:58:45

Hola,
Le adjunto archivo.
Es una hoja de excel por archivo .ASC

Las columnas a graficar serían las mismas (2 y 4 ).
saludos
Gracias

14301_03_SiC_Q2.rar(516,7 KB)

Valora esta respuesta

Comentar

Macro de gráficos. Ayuda

Publicado por gonzalo (13 intervenciones) el 04/03/2015 00:11:13

mis disculpas, no puedo abrir archivos.
solo dime la estructura del archivo asc.

Valora esta respuesta

Comentar

Macro de gráficos. Ayuda

Publicado por AMGM (6 intervenciones) el 04/03/2015 00:26:15

Gracias por su tiempo.

el archivo .asc viene así (4 columnas de datos con decimales)

0,025000 274,000519 0,000000 0,000000
0,070833 274,277954 0,000000 0,000000
0,116667 273,917358 0,000000 0,000000
0,162500 273,945068 0,000000 0,000000
0,208333 273,750977 0,000000 0,000000
0,254167 274,028259 0,000000 0,000000
0,300000 274,444733 0,000000 0,000000
0,345833 274,971985 0,000000 0,000000
0,391667 274,916534 0,000000 0,000000
0,437500 274,278076 0,000000 0,000000
0,483333 274,111450 0,000000 0,000000
0,529167 274,139191 0,000000 0,000000
0,575000 274,500122 0,000000 0,000000
0,620833 274,139465 0,000000 0,000000
0,666667 273,778687 0,000000 0,000000

Yo quisiera poner que la primera columna se llame : Time
segunda : Potential (mV)
tercer: -
cuarta : Current (mA/ cm2)

y luego graficar en cada hoja su correspondiente gráfico.
y si fuese posible en una hoja adicional superponer los graficos para compararlos.
Gracias

GRAFICA

Valora esta respuesta

Comentar

Macro de gráficos. Ayuda

Publicado por gonzalo (13 intervenciones) el 04/03/2015 00:35:23

ok, mira, vas a necesitar un archivo de excel en blanco, ve a develorper y en macros pide crear una macro nueva que se llame Graficos o como quieras llamarla, en mi caso se va a llamar graficos.

tengo poco espacio para escribir asiq ue voy a pasar el codigo en partes.

sub Grafico()
MyDir="/el/sub/directorio/"
archivo=dir(MyDir & "*.asc)
do whle archivo<>""

procesar mydir,archivo

archivo=dir
loop
end sub

el sub Procesar se va a encargar de hacer todo el trabajo

Valora esta respuesta

Comentar

Macro de gráficos. Ayuda

Publicado por gonzalo (13 intervenciones) el 04/03/2015 00:49:40

private sub Procesar(Directorio,Archivo)

 Workbooks.Add ' creamos un excel en blanco

range("A1").value ="Time"

range("b1").value ="Potential"

range("c1").value ="-"

range("d1").value ="Current " ' encabezado

Myrow=2

r=open directorio & archivo for input as #1

do while not eof(1)

line input #1,linea

Myarray=split(linea," ") ' divido el record en campos,

'posiblemente aqui este mal, tal vez sea myarray() pero no esta definido,

' si falla usa dim myarray(6) as string

'aparte no se si son espacios o tabs los que dividenlos campos, investigalo

range("a" & Myrow).value =myarray(0)

range("b" & Myrow).value =myarray(1)

range("c" & Myrow).value =myarray(2)

range("d" & Myrow).value =myarray(3) ' paso los valores a la hoja de excel

myrow=myrow+1 ' me paso al siguiente renglon

loop

close #1 ' no olvides cerrar el archivo

'bien, hasta aqui se cargaron los datos a la hoja de excel, sigue el grafico

' para nuestra fortuna Myrow tiene el la ultima linea de excel que se uso

ActiveSheet.Shapes.AddChart.Select

ActiveChart.ChartType = xlLine

ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$d$" & myrow) ' tadaaaa

ActiveChart.Axes(xlValue).MajorGridlines.Select

ActiveChart.ChartArea.Select

ActiveWorkbook.SaveAs Filename:=directorio & archivo & ".xlsx", _

        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

' se guarda el archivo con el mismo nombre pero le agregamos .xlsx al final del nombre

activeworkbook.close

' y eso es todo.

end sub

Valora esta respuesta

Comentar

Macro de gráficos. Ayuda

Publicado por AMGM (6 intervenciones) el 04/03/2015 01:14:03

Hola muchas Gracias!!
pues me sale un error en la compilación (Soy muy toroe incluso copiando :), y es la primera vez que abro una ventana macro )

Sub Graficos()

mydir = "/el/sub/directorio/"

Archivo = Dir("MyDir & " * .Asc)

Do While Archivo <> ""

End Sub

Procesar mydir, Archivo

Archivo = Dir

Loop

End Sub

Private Sub Procesar(Directorio, Archivo)

Workbooks.Add ' creamos un excel en blanco

Range("A1").Value = "Time"

Range("b1").Value = "Potential"

Range("c1").Value = "-"

Range("d1").Value = "Current " ' encabezado

myrow = 2

r = "open directorio & archivo for input as #1"

Do While Not EOF(1)

Line Input #1, linea

myarray = Split(linea, " ") ' divido el record en campos,

'posiblemente aqui este mal, tal vez sea myarray() pero no esta definido,

' si falla usa dim myarray(6) as string

'aparte no se si son espacios o tabs los que dividenlos campos, investigalo

Range("a" & myrow).Value = myarray(0)

Range("a" & myrow).Value = myarray(1)

Range("a" & myrow).Value = myarray(2)

Range("a" & myrow).Value = myarray(3) ' paso los valores a la hoja de excel

myrow = myrow + 1 ' me paso al siguiente renglon

Loop

Close #1 ' no olvides cerrar el archivo

'bien, hasta aqui se cargaron los datos a la hoja de excel, sigue el grafico

' para nuestra fortuna Myrow tiene el la ultima linea de excel que se uso

ActiveSheet.Shapes.AddChart.Select

ActiveChart.ChartType = xlLine

ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$d$" & myrow) ' tadaaaa

ActiveChart.Axes(xlValue).MajorGridlines.Select

ActiveChart.ChartArea.Select

ActiveWorkbook.SaveAs Filename:=Directorio & Archivo & ".xlsx", _

FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

' se guarda el archivo con el mismo nombre pero le agregamos .xlsx al final del nombre

ActiveWorkbook.Close

' y eso es todo.

End Sub

Valora esta respuesta

Comentar

Macro de gráficos. Ayuda

Publicado por gonzalo (13 intervenciones) el 04/03/2015 16:41:47

asc es una funcion de excell.

ahi el problema son las comillas, olvide cerrar las comillas en el ejemplo, cambia esa orden de

Archivo = Dir("MyDir & " * .Asc)

a

Archivo = Dir(MyDir & "*.Asc")

Valora esta respuesta

Comentar

Macro VBA aplicaciones Excel 2013 no funciona

funciones