Pergunta : Ajuda macro

Olá! indivíduos eu preciso a ajuda em projetar um macro que vá em cada um prime a lima e faço uma média e o stdev da coluna I, L, M, N… e cada coluna contem ao redor 58-62 fileiras dos dados. como mim fazer isso. Eu tenho literalmente sobre 300 limas. tão definitivamente. a solução manual é pergunta do outa. para sua referência i os havae uniram nome de arquivo " vazio " >
1gl-Factory-Low-SNR-Power-Level-.csv que o class= (7 KB) Javascript " do href= o " dos " attachmentDetails do class= de (tipo de lima detalhes) >example " da descrição o " do class= de
>
class= do

Resposta : Ajuda macro

Está aqui um exemplo da velho-escola.  Você ou mudaria o diretório de defeito hard-coded ou o uso pede o usuário o nome de diretório.

A fim calcular o StdDev, você tem que fazer duas passagens com os dados, primeiramente calculando a média e então a variação.
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:

Opção explícita

Stats públicos do submarino ()
  intFN não ofuscante como o inteiro
  strLine não ofuscante como a corda
  Escurecer strParsed () como a corda
  Escurecer os dblSums (8 15) como o dobro
  Escurecer os dblAvgs (8 15) como o dobro
  Escurecer os dblVariances (8 15) como o dobro
  Escurecer o lngCount como por muito tempo
  Escurecer os lngColumns (1 4) como por muito tempo
  Escurecer o strFilename como a corda
  lngColumns (1) = 8
  lngColumns (2) = 11
  lngColumns (3) = 12
  lngColumns (4) = 15
  lngLoop não ofuscante como por muito tempo
  Const CSVpath como a corda = “C:\Users\Mark\Downloads\”
  '1gl-Factory-Low-SNR-Power-Level-.csv "
  
  intFN = FreeFile
  strFilename = Dir (CSVpath & “*.csv”)
  Fazer até Len (strFilename) = 0
    Abrir CSVpath & strFilename para a entrada como o #intFN
    Fazer até EOF (o intFN)
      Alinhar o #intFN da entrada, strLine
      strParsed = separação (strLine, “, ")
      '(I, L, M, N,   P) = 9, 12, 13, 15 com uma origem
      Para o lngLoop = 1 a 4
        dblSums (lngColumns (lngLoop)) = dblSums (lngColumns (lngLoop)) + Val (strParsed (lngColumns (lngLoop)))
      Em seguida
      lngCount = lngCount + 1
    Laço
    #intFN próximo
    strFilename = Dir ()
  Laço
    
  Para o lngLoop = 1 a 4
    dblAvgs (lngColumns (lngLoop)) = dblSums (lngColumns (lngLoop)) /lngCount
  Em seguida
  
  strFilename = Dir (CSVpath & “*.csv”)
  Fazer até Len (strFilename) = 0
    Abrir CSVpath & strFilename para a entrada como o #intFN
    Fazer até EOF (o intFN)
      Alinhar o #intFN da entrada, strLine
      strParsed = separação (strLine, “, ")
      Para o lngLoop = 1 a 4
        dblVariances (lngColumns (lngLoop)) = dblVariances (lngColumns (lngLoop)) + (dblAvgs (lngColumns (lngLoop)) - Val (strParsed (lngColumns (lngLoop)))) ^ 2
      Em seguida
    Laço
    #intFN próximo
    strFilename = Dir ()
  Laço
    
    lngCount de Debug.Print
    Para o lngLoop = 1 a 4
      dblSums de Debug.Print (lngColumns (lngLoop)), dblAvgs (lngColumns (lngLoop)), dblVariances (lngColumns (lngLoop)), Sqr (dblVariances (lngColumns (lngLoop)))
    Em seguida
  
  
Submarino da extremidade
Outras soluções  
 
programming4us programming4us