К ^ й ^ член, Т ~ к ~, определенной математической серии определяется по следующей формуле:

_T ~ к ~ _ = к ^ 2 ^ + 6k + 1 9k + 7 Первый член, Т ~ 1 ~, из серии получается путем подстановки к = 1 в формуле т.е.

_T ~ 1 ~ _ = 1 ^ 2 ^ + 6 + 1 = 1 и 9 + 7 2 _T ~ 2 ~ _ = 2 ^ 2 ^ + 12 + 1 = 17 …​ и так далее 18 + 7 25 Ниже мы будем посмотреть на программу в Excel VBA, которая вычисляет любой термин T ~ K ~ и суммирование слагаемых до N.

Complex Calculations in Excel VBA

Объяснение: пользователь имеет возможность ввести «все» или «нечетный», чтобы соответственно вычислить сумму первых N членов ряда или суммы только нечетные члены до N.

Поместите командную кнопку на листе и добавьте строки следующего кода:

  1. Во-первых, мы объявляем четыре переменные типа Integer и одну переменную типа String.

Dim i, term, N, stepSize As Integer

Dim sumType As String

  1. Во-вторых, мы инициализируем переменные.

i = 0

N = Range("C2").Value

sumType = Range("C3").Value

  1. Пустые поля.

Range("A8:B1000").Value = ""

Range("C6").Value = ""

  1. Определить размер шага.

Select Case sumType

Case Is = "All"

stepSize = 1

Case Is = "Odd"

stepSize = 2

Case Else

MsgBox "Enter a valid expression in cell C3"

End

End Select

Подсказка: пройти через нашу ссылку: / VBA-примеры-выбор регистр [Select Case] программы для более узнать о структуре Select Case.

  1. Выполните вычисления.

For term = 1 To N Step stepSize

Cells(8 + i, 1).Value = term

Cells(8 + i, 2).Value = (term ^ 2 + (6  term) + 1) / ((9  term) + 7)

Range("C6").Value = Range("C6").Value + Cells(8 + i, 2).Value

i = i + 1

Next term

Объяснение: мы используем ссылке: / VBA-примеры-шаг ключевое слово [Шаг] ключевое слово, чтобы указать приращение (1 для «Все» и 2 для «нечетной») для переменной счетчика цикла.

Результат:

Complex Calculations Result