Dim Sh As Single, Sn As Single

Dim Txt As String'Переменная для вывода текстового сообщения

Dim i As Byte

'Переменной nприсваивается размерность массива Х, т.е. число,

'равное количеству ячеек в диапазоне, начиная с ячейки B3,

'вниз до первой пустой строки:

n = Range("B3", Range("B3").End(xlDown)).Count

ReDim x(1 To n) As Single'Переопределение размерности массива Х

For i = 1 To n 'Ввод заданного массива Х с рабочего

x(i) = Cells(i + 2, 2)'листа Excel в оперативную память

Next i

Sh = 0 'Инициализация переменной, для накопления суммы

'элементов с четными номерами

For i = 2 To n Step 2

Sh = Sh + x(i)

Next i

Sn = 0 'Инициализация переменной, для накопления суммы

'элементов с нечетными номерами

For i = 1 To n Step 2

Sn = Sn + x(i)

Next i

Range("C3") = Sh

Range("D3") = Sn

If Sh > Sn Then

Txt = "Сумма элементов с четными номерами больше"

ElseIf Sh < Sn Then

Txt = "Сумма элементов с нечетными номерами больше"

Else

Txt = "Суммы равны"

End If

Range("F3") = Txt

End Sub

Таблица Excel, содержащая исходные данные и результат вычисления процедуры, приведена на рис. 4.

Рис. 4. Таблица Excel с исходными данными и результатами вычислений

Рекомендуемая литература

1. Уокенбах, Джон, Андердал, Брайн. Excel 2002. Библия пользователя. : Пер. с англ. – М. : Издательский дом «Вильямс», 2002. - 832 с.

2. Уокенбах, Джон. Подробное руководство по созданию формул в Excel 2002.: Пер. с англ. – М. : Издательский дом «Вильямс», 2002. - 624 с.

3. Пол Санна и др. Visual Basic для приложений (версия 5) в подлиннике: пер. с англ. – СПб.: BHV – Санкт-Петербург, 1997. – 704 с.

4. Гарнаев А.Ю. Самоучитель VBA. - СПб.: БХВ - Санкт-Петербург, 1999. - 512 с.

5. Гарнаев А.Ю. Использование MS Excel и VBA в экономике и финансах. – СПб.: BHV – Санкт-Петербург, 1999. – 336 с.

Дата добавления: 2018-05-12; просмотров: 297; Мы поможем в написании вашей работы!

Поделиться с друзьями: