Pytanie : Makro- pomoc

Cześć facet i potrzebować pomoc w macro który pójść w cześć przodować kartoteka i robić średnia i stdev Kolumna I, L, M, N… i cześć kolumna zawierać wokoło 58-62 rząd dane. jak i robić to. I dosłownie mieć nad 300 kartoteka. w ten sposób zdecydowanie. ręczny rozwiązanie być outa pytanie. dla twój odniesienie i havae dołączać przodować kartoteka
1gl-Factory-Low-SNR-Power-Level-.csv (7 KB) (Kartoteka Typ Szczegół)
example przodować kartoteka

Odpowiedź : Makro- pomoc

Tutaj być stary-uczyć kogoś przykład.  Ty lub zmieniać the imię brak książka telefoniczna lub use pytać the użytkownik dla the adresowy imię.

The StdDev, ty musieć dwa przepustka przez the dane, pierwszy cyrklowanie the średnia i wtedy the wariancja.
(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:

Opcja Wyraźny

Jawny Okręt podwodny stats ()
  Ciemnawy intFN Jako Integer
  Ciemnawy strLine Sznurek
  Ciemnawy strParsed () Sznurek
  Ciemnawy dblSums (8 15) Kopia
  Ciemnawy dblAvgs (8 15) Kopia
  Ciemnawy dblVariances (8 15) Kopia
  Ciemnawy lngCount Długo
  Ciemnawy lngColumns ((1) 4) Długo
  Ciemnawy strFilename Sznurek
  lngColumns (1) = 8
  lngColumns (2) = 11
  lngColumns (3) = 12
  lngColumns (4) = 15
  Ciemnawy lngLoop Długo
  Const CSVpath Jako Sznurek = "C:\Users\Mark\Downloads\"
  '1gl-Factory-Low-SNR-Power-Level-.csv "
  
  intFN = FreeFile
  strFilename = Dir (CSVpath & "*.csv")
  Do Len (strFilename) = (0)
    Otwierać CSVpath & strFilename Dla Wkład Jako #intFN
    Do EOF (intFN)
      Wykładać Wkład #intFN, strLine
      strParsed = Rozłam (strLine, ", ")
      '(I, L, M, N,   P) = 9, 12, 13, 15 z jeden początek
      Dla lngLoop = (1) 4
        dblSums (lngColumns (lngLoop)) = dblSums (lngColumns (lngLoop)) + Val (strParsed (lngColumns (lngLoop)))
      Następnie
      lngCount = lngCount + (1)
    Pętla
    Zamknięty #intFN
    strFilename = Dir ()
  Pętla
    
  Dla lngLoop = (1) 4
    dblAvgs (lngColumns (lngLoop)) = dblSums (lngColumns (lngLoop)) /lngCount
  Następnie
  
  strFilename = Dir (CSVpath & "*.csv")
  Do Len (strFilename) = (0)
    Otwierać CSVpath & strFilename Dla Wkład Jako #intFN
    Do EOF (intFN)
      Wykładać Wkład #intFN, strLine
      strParsed = Rozłam (strLine, ", ")
      Dla lngLoop = (1) 4
        dblVariances (lngColumns (lngLoop)) = dblVariances (lngColumns (lngLoop)) + (dblAvgs (lngColumns (lngLoop)) - Val (strParsed (lngColumns (lngLoop)))) ^ 2
      Następnie
    Pętla
    Zamknięty #intFN
    strFilename = Dir ()
  Pętla
    
    Debug.Print lngCount
    Dla lngLoop = (1) 4
      Debug.Print dblSums (lngColumns (lngLoop)), dblAvgs (lngColumns (lngLoop)), dblVariances (lngColumns (lngLoop)), Sqr (dblVariances (lngColumns (lngLoop)))
    Następnie
  
  
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us