^ k 개의 제 ^ 용어 T ~ K ~ 특정 수학 시리즈는 다음 식으로 정의된다 :

_T ~ K ~ = K ^ _ ^ 2 + 6K + 1 + 7 9K 첫 번째 항, T ~ 1 ~ 시리즈는 수식에 K = 1을 대입하여 수득된다, 즉

_T ~ 1 ~ _ ^ = 1 ^ 2 + 6 + 1 = 1-9 + 7 2 _T ~ 2 ~ _ = 우리는 아래에서 2 ^ ^ 2 + 12 + 1 = 17 …​ 등등 18 + 25 7 N.에 대한 용어까지의 기간 T ~ K ~와 합을 계산 엑셀 VBA에서 프로그램 봐

Complex Calculations in Excel VBA

설명 : 사용자는 각각 시리즈 또는 N. 만 이상한 용어까지의 합계의 첫 번째 N 용어의 합계를 계산하는 “모든”또는 “홀수”를 입력 할 수있는 옵션을 가지고

워크 시트에 명령 단추를 놓고 다음 코드 줄을 추가

  1. 먼저, 우리는 형 정수의 네 가지 변수와 문자열 유형의 하나 개의 변수를 선언합니다.

Dim i, term, N, stepSize As Integer

Dim sumType As String

  1. 두 번째, 우리는 변수를 초기화합니다.

i = 0

N = Range("C2").Value

sumType = Range("C3").Value

필드를 비우기합니다.

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

Range("C6").Value = ""

스텝 사이즈를 결정하십시오.

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 – 예 – 선택의 경우는 [선택 케이스]`프로그램을 선택 케이스 구조에 대해 더 배우고.

계산을 수행 5..

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

설명 : 루프 카운터 변수 ( “홀수”의 “전체”는 2 1) 증가분을 지정 / VBA를 예로 스텝 트 키워드 [공정] ‘키워드 : 우리는`링크를 사용한다.

결과 :

Complex Calculations Result