Macro помощь - Проблемы и решения вопросов, связанных с Software

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:

Вариант точный

Общественные stats подводной лодки ()
  Тусклое intFN как интежер
  Тусклое strLine как шнур
  Затемните strParsed () как шнур
  Затемните dblSums (8 до 15) как двойник
  Затемните dblAvgs (8 до 15) как двойник
  Затемните dblVariances (8 до 15) как двойник
  Затемните lngCount как длиной
  Затемните lngColumns (1 до 4) как длиной
  Затемните strFilename как шнур
  lngColumns (1) = 8
  lngColumns (2) = 11
  lngColumns (3) = 12
  lngColumns (4) = 15
  Тусклое lngLoop как длиной
  Const CSVpath как шнур = «C:\Users\Mark\Downloads\»
  '1gl-Factory-Low-SNR-Power-Level-.csv "
  
  intFN = FreeFile
  strFilename = Dir (CSVpath & «*.csv»)
  Не сделать до Len (strFilename) = 0
    Раскройте CSVpath & strFilename для входного сигнала как #intFN
    Не сделать до EOF (intFN)
      Выровняйте #intFN входного сигнала, strLine
      strParsed = разделите (strLine, «, ")
      '(I, l, m, n,   p) = 9, 12, 13, 15 с одним началом
      Для lngLoop = от 1 до 4
        dblSums (lngColumns (lngLoop)) = dblSums (lngColumns (lngLoop)) + strParsed Val ((lngColumns (lngLoop)))
      Затем
      lngCount = lngCount + 1
    Петля
    Близкое #intFN
    strFilename = Dir ()
  Петля
    
  Для lngLoop = от 1 до 4
    dblAvgs (lngColumns (lngLoop)) = dblSums (lngColumns (lngLoop)) /lngCount
  Затем
  
  strFilename = Dir (CSVpath & «*.csv»)
  Не сделать до Len (strFilename) = 0
    Раскройте CSVpath & strFilename для входного сигнала как #intFN
    Не сделать до EOF (intFN)
      Выровняйте #intFN входного сигнала, strLine
      strParsed = разделите (strLine, «, ")
      Для lngLoop = от 1 до 4
        dblVariances (lngColumns (lngLoop)) = dblVariances (lngColumns (lngLoop)) + (dblAvgs (lngColumns (lngLoop)) - strParsed Val ((lngColumns (lngLoop)))) ^ 2
      Затем
    Петля
    Близкое #intFN
    strFilename = Dir ()
  Петля
    
    lngCount Debug.Print
    Для lngLoop = от 1 до 4
      dblSums Debug.Print (lngColumns (lngLoop)), dblAvgs (lngColumns (lngLoop)), dblVariances (lngColumns (lngLoop)), Sqr (dblVariances (lngColumns (lngLoop)))
    Затем
  
  
Подводная лодка конца

Вопрос : Macro помощь

Ответ : Macro помощь