Cuestión : Ayuda macra

Hola los individuos necesito ayuda en el diseño de una macro que entraría en cada uno sobresalga el archivo y hago un promedio y el stdev de la columna I, L, M, N… y cada columna contiene alrededor 58-62 filas de datos. cómo yo hacer eso. Tengo literalmente sobre 300 archivos. tan definitivamente. la solución manual es pregunta del outa. para su referencia i los havae ataron nombre de fichero " vacío " >
(7 KB) Javascript del href= " de los " attachmentDetails del class= " de (tipo de archivo detalles) >example de la descripción el " del class= de
del >
class= del

Respuesta : Ayuda macra

Aquí está un ejemplo de la viejo-escuela.  Usted o cambiaría el directorio de defecto hard-coded o el uso pide a usuario el nombre de directorio.

Para calcular el StdDev, usted tiene que hacer dos pasos con los datos, primero calculando el promedio y entonces la variación.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

Opción explícita

Stats públicos del submarino ()
  intFN dévil como número entero
  strLine dévil como secuencia
  Amortiguar strParsed () como secuencia
  Amortiguar los dblSums (8 a 15) como doble
  Amortiguar los dblAvgs (8 a 15) como doble
  Amortiguar los dblVariances (8 a 15) como doble
  Amortiguar el lngCount como de largo
  Amortiguar los lngColumns (1 a 4) como de largo
  Amortiguar el strFilename como secuencia
  lngColumns (1) = 8
  lngColumns (2) = 11
  lngColumns (3) = 12
  lngColumns (4) = 15
  lngLoop dévil como de largo
  Const CSVpath como secuencia = “C:\Users\Mark\Downloads\”
  '1gl-Factory-Low-SNR-Power-Level-.csv "
  
  intFN = FreeFile
  strFilename = Dir (CSVpath y “*.csv”)
  Hacer hasta Len (strFilename) = 0
    Abrir CSVpath y el strFilename para la entrada como #intFN
    Hacer hasta EOF (el intFN)
      Alinear el #intFN de la entrada, strLine
      strParsed = partir (strLine, “, ")
      '(I, L, M, N,   P) = 9, 12, 13, 15 con un origen
      Para el lngLoop = 1 a 4
        dblSums (lngColumns (lngLoop)) = dblSums (lngColumns (lngLoop)) + Val (strParsed (lngColumns (lngLoop)))
      Después
      lngCount = lngCount + 1
    Lazo
    #intFN cercano
    strFilename = Dir ()
  Lazo
    
  Para el lngLoop = 1 a 4
    dblAvgs (lngColumns (lngLoop)) = dblSums (lngColumns (lngLoop)) /lngCount
  Después
  
  strFilename = Dir (CSVpath y “*.csv”)
  Hacer hasta Len (strFilename) = 0
    Abrir CSVpath y el strFilename para la entrada como #intFN
    Hacer hasta EOF (el intFN)
      Alinear el #intFN de la entrada, strLine
      strParsed = partir (strLine, “, ")
      Para el lngLoop = 1 a 4
        dblVariances (lngColumns (lngLoop)) = dblVariances (lngColumns (lngLoop)) + (dblAvgs (lngColumns (lngLoop)) - Val (strParsed (lngColumns (lngLoop)))) ^ 2
      Después
    Lazo
    #intFN cercano
    strFilename = Dir ()
  Lazo
    
    lngCount de Debug.Print
    Para el lngLoop = 1 a 4
      dblSums de Debug.Print (lngColumns (lngLoop)), dblAvgs (lngColumns (lngLoop)), dblVariances (lngColumns (lngLoop)), Sqr (dblVariances (lngColumns (lngLoop)))
    Después
  
  
Submarino del extremo
Otras soluciones  
 
programming4us programming4us