Redline Communications AN-50e Spécifications télécharger pdf (Page 35)

Data = CDbl(temp3(1))

Else

Data = 0

End If

If Data = 0 And Ender = 0 Then

Start = I

Else

If Data > 0 Then

RunningTotal = Data + RunningTotal

Ender = I

End If

I = I + 1

Wend

Average = RunningTotal / (Ender - Start)

ActiveSheet.Cells(j, 1) = DataFile.Name

ActiveSheet.Cells(j, 2) = Average

ActiveSheet.Cells(j, 3) = Start

ActiveSheet.Cells(j, 4) = Ender

ActiveSheet.Cells(j, 5) = RunningTotal

j = j + 1

End Sub

1 2 ... 30 31 32 33 34 35 36 37 38 39 40 ... 52 53

Pas de commentaire

Redline Communications AN-50e Spécifications Page 35