Скрытый текст
Код:
Option Explicit
Sub Sample()
Dim n As Variant
Dim i As Integer
Dim iCount As Integer
Dim objRange As Range
n = InputBox("Enter max row number", "Enter max row number", 25)
If Len(n) > 0 Then
Randomize Timer
With ThisWorkbook.Worksheets.Item(1)
.UsedRange.Clear
iCount = 0
For i = 1 To CInt(n)
.Cells.Item(i, 1).Value = Round(4 * Rnd - 2, 2)
Next i
For i = 1 To CInt(n)
Set objRange = .Cells.Item(i, 2)
Select Case i
Case 1
objRange.Value = Round(Application.WorksheetFunction.Average(.Range(.Cells.Item(i + 1, 1), .Cells.Item(n, 1))), 4)
Case n
objRange.Value = Round(Application.WorksheetFunction.Average(.Range(.Cells.Item(1, 1), .Cells.Item(i - 1, 1))), 4)
Case Else
objRange.Value = Round(Application.WorksheetFunction.Average(Union(.Range(.Cells.Item(1, 1), .Cells.Item(i - 1, 1)), .Range(.Cells.Item(i + 1, 1), .Cells.Item(n, 1)))), 4)
End Select
If objRange.Value < 0 And objRange.Row Mod 2 Then
iCount = iCount + 1
End If
Next i
End With
MsgBox "Total found:" & CStr(iCount), vbInformation + vbOKOnly, "Total found"
End If
End Sub
|
