Электронные таблицы. Салмин А.А. - 117 стр.

UptoLike

ВУЗ: 

ПГУТИ | Самара

Составители: 

Рубрика: 

117
Создаем код:
Private Sub sum_Click()
Dim I As Integer
Dim N As Long
Dim S As Long
S = 0
N = 0
For I = 2 To 8 Step 1
N = Cells(I, 2) * Cells(I, 3)
Cells(I, 4) = N
S = S + Cells(I, 4).Value
Next I
Cells(I + 2, 4) = S
MsgBox (S)
End Sub
Где Cells(I, 4) – номер ячейки, где I – строка, 4 –
столбец (D).
Код рассматриваемого примера в VBA и результат
выполнения программы с разными условиями представлен
на рис. 6.22. 
    Создаем код:
    Private Sub sum_Click()
    Dim I As Integer
    Dim N As Long
    Dim S As Long
    S=0
    N=0
    For I = 2 To 8 Step 1
    N = Cells(I, 2) * Cells(I, 3)
    Cells(I, 4) = N
    S = S + Cells(I, 4).Value
    Next I
    Cells(I + 2, 4) = S
    MsgBox (S)
    End Sub

     Где Cells(I, 4) – номер ячейки, где I – строка, 4 –
столбец (D).

    Код рассматриваемого примера в VBA и результат
выполнения программы с разными условиями представлен
на рис. 6.22.




                                                     117

Страницы