. 7.1 −
( ):
Private Sub CommandButton1_Click()
i = 6
Do Until Worksheets("1").Cells(i, 4) = ""
i = i + 1
Loop
Ndata = i 1
sum = 0 Sum
For i = 7 To Ndata
x = Worksheets("1").Cells(i, 4) i- 4-
sum = sum + x
Next i
mx = sum / (Ndata - 6)
Worksheets("1").Cells(Ndata + 2, 4)=" "
Worksheets("1").Cells(Ndata + 2, 7) = mx
End Sub
min ( ) :
Private Sub CommandButton2_Click()
Dim l as Integer
min = Worksheets("1").Cells(Ndata - 6, 4)
l=7 ,
For i = 7 To Ndata
x = Worksheets("1").Cells(i, 4)
If x < min Then
min = x
l=i
End If
Next i
Worksheets("1").Cells(Ndata+3,4)=" "
Worksheets("1").Cells(Ndata + 3, 7) = min
Worksheets("1").Cells(Ndata + 3, 9) = " "
Worksheets("1").Cells(Ndata + 3, 10) = Cells(l, 3)
End Sub
min . min. min, min.
max ( ):
Private Sub CommandButton3_Click()
min = Worksheets(" 1 ").Cells(Ndata - 6, 4)
For i = 7 To Ndata
x = Worksheets(" 1 ").Cells(i, 4)
If x > max Then max = x
Next i
Worksheets(" 1 ").Cells(Ndata + 4, 4) = "
Worksheets(" 1 ").Cells(Ndata + 4, 7) = min
End Sub
>0 <0 ( ):
Dim k1 As Integer, k2 As Integer
k1 = 0: k2 = 0
For i = 7 To Ndata
x = Worksheets(" 1 ").Cells(i, 4)
k1 k2
If x > 0 Then k1 = k1 + 1 Else k2 = k2 + 1
Next
Worksheets(" 1 ").Cells(Ndata + 5, 4) = _ . ."
Worksheets(" 1 ").Cells(Ndata + 5, 7) = k1
Worksheets(" 1 ").Cells(Ndata + 6, 4) = _
" . ."
Worksheets(" 1 ").Cells(Ndata + 6, 7) = k2
|
|
|
End Sub
1. , . 7.1.
2. , . 7.1.
3. , .
4. , .
7.1
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
| 
| |
|
| |
| 
| |
|
| |
|
| |
|
| |
| 
|
5. .
6. , . Excel.
10 . , 40 .
( ) 10 . , .
10 . ( , ).
Excel , UserForms.
