Question

Помогите пожалуйста составить 2 программки в VBA exel.

Answer 1

Во вложении - файл с рабочей книгой MS Excel 2003.
Соответствующие макросы находятся на листах.

Sub abcd()
    Dim so As Double, pp As Double, z As Double
    so = 0: pp = 1: no = 0: np = 0
    For i = 1 To 8
        x = Cells(1, i + 1)
        For y = -5 To 5 Step 2
            z = x * y / (x ^ 2 + y ^ 2)
            If z < 0 Then
                so = sp + z
                no = np + 1
            Else
                If z > 0 Then
                    pp = pp * z
                    np = np + 1
                End If
            End If
        Next y
    Next i
    Cells(2, 5) = so / no
    Cells(3, 5) = pp ^ (1 / np)
End Sub

Sub Ex26()
    Dim a As Double, c As Double
    For i = 1 To 6
        a = Cells(1, i + 1)
        c = Application.WorksheetFunction.Max(Abs(a), Abs(Cells(2, i + 1)))
        m = 2 * a / (c * Exp(6))
        Cells(3, i + 1) = m
    Next i
End Sub

4f76ad007d5b62a89fb5e61b7d3e2385.xls