Fråga : Macro hjälp

Hi grabbar jag behöver hjälp, i att planlägga en makro som skulle går i varje överträffar sparar och gör ett genomsnitt, och stdev av kolonn I, L, M, N…, och varje kolonn innehåller omkring 58-62 ror av data. hur skulle jag gör det. Jag har formligen över 300 sparar. så bestämt. den manuella lösningen är outaen ifrågasätter. för ditt hänvisa till I-havae fäste en överträffa sparar filename " för class= för >

 1gl-Factory-Low-SNR-Power-Level-.csv som (7 KB) " javascript för href= " för <-/span>
example överträffar sparar <-/div>
<-/div>
" " för >
<-/div> " klar "

Svar : Macro hjälp

Är här ettskola exempel.  Du skulle endera ändring det hard-coded standardarkivet, eller bruk frågar användaren för det kända arkivet.

För att beräkna StdDeven du måste att göra två passerar till och med datan, det första beräkna genomsnittet och därefter variancen.
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:

Explicit alternativ

Offentlig Substatistik ()
  Dunkel intFN som heltal
  Dunkel strLine som stränger
  strParsed dunkelt () som stränger
  Dunkla dblSums (8 till 15) som dubbelt
  Dunkla dblAvgs (8 till 15) som dubbelt
  Dunkla dblVariances (8 till 15) som dubbelt
  Dunkel lngCount som Long
  Dunkla lngColumns (1 till 4) som Long
  Dunkel strFilename som stränger
  lngColumns (1) = 8
  lngColumns (2) = 11
  lngColumns (3) = 12
  lngColumns (4) = 15
  Dunkel lngLoop som Long
  Const CSVpath som stränger = ”C:\Users\Mark\Downloads\”,
  '1gl-Factory-Low-SNR-Power-Level-.csv ",
  
  intFN = FreeFile
  strFilename = Dir (CSVpath & ”*.csv”)
  Gör till Len (strFilename) = 0
    Öppna CSVpath, & strFilename för matar in som #intFN
    Gör till EOF (intFN)
      Fodra matar in #intFN, strLine
      strParsed = splittring (strLinen, ”,”)
      '(I, L, M, N,   P) = 9, 12, 13, 15 med en beskärning
      För lngLoop = 1 till 4
        dblSums (lngColumns (lngLoop)) = dblSums (lngColumns (lngLoop)) + strParsed, Val ((lngColumns (lngLoop)))
      Därefter
      lngCount = lngCount + 1
    Kretsa
    Nära #intFN
    strFilename = Dir ()
  Kretsa
    
  För lngLoop = 1 till 4
    dblAvgs (lngColumns (lngLoop)) = dblSums (lngColumns (lngLoop)) /lngCount
  Därefter
  
  strFilename = Dir (CSVpath & ”*.csv”)
  Gör till Len (strFilename) = 0
    Öppna CSVpath, & strFilename för matar in som #intFN
    Gör till EOF (intFN)
      Fodra matar in #intFN, strLine
      strParsed = splittring (strLinen, ”,”)
      För lngLoop = 1 till 4
        dblVariances (lngColumns (lngLoop)) = dblVariances (lngColumns (lngLoop)) + (dblAvgs (lngColumns (lngLoop)) - strParsed, Val ((lngColumns (lngLoop)))) ^ 2
      Därefter
    Kretsa
    Nära #intFN
    strFilename = Dir ()
  Kretsa
    
    Debug.Print-lngCount
    För lngLoop = 1 till 4
      Debug.Print-dblSums (lngColumns (lngLoop)), dblAvgs (lngColumns (lngLoop)), dblVariances (lngColumns (lngLoop)), Sqr (dblVariances (lngColumns (lngLoop)))
    Därefter
  
  
Avsluta suben
Andra lösningar  
 
programming4us programming4us