K ^ ° ^ termine, T ~ k ~, di una certa serie matematica è definito dalla seguente formula:

_T ~ k ~ _ = k ^ 2 ^ + 6k + 1 + 7 9k Il primo termine, T ~ 1 ~, della serie è ottenuta sostituendo k = 1 nella formula cioè

_T ~ 1 ~ _ = 1 ^ 2 ^ + 6 + 1 = 1 e 9 + 7 2 _T ~ 2 ~ _ = 2 ^ 2 ^ + 12 + 1 = 17 …​ e così via 18 + 7 25 Di seguito sarà un’occhiata a un programma in Excel VBA che calcola ogni termine T ~ k ~ e somma dei termini fino a N.

Complex Calculations in Excel VBA

Spiegazione: l’utente ha la possibilità di inserire “Tutto” o “Dispari”, per calcolare rispettivamente, la somma dei primi n termini della serie o la somma dei soli termini dispari fino a N.

Posizionare un pulsante di comando nel foglio di lavoro e aggiungere le righe di codice che segue:

  1. In primo luogo, si dichiara quattro variabili di tipo integer e una variabile di tipo stringa.

Dim i, term, N, stepSize As Integer

Dim sumType As String

  1. In secondo luogo, inizializzare le variabili.

i = 0

N = Range("C2").Value

sumType = Range("C3").Value

  1. Svuotare i campi.

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

Range("C6").Value = ""

  1. Determinare stepSize.

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

Suggerimento: passare attraverso il nostro link : / VBA-esempi-select-caso [Select Case] programma per imparare di più sulla struttura Select Case.

  1. Fare i calcoli.

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

Spiegazione: usiamo il link: / VBA-esempi passo-parola chiave [Step] parola chiave per specificare l’incremento (1 per “tutti” e 2 per “Dispari”) per la variabile del contatore del ciclo.

Risultato:

Complex Calculations Result