vb i excel

[norbat]

Hei,

Har to kolonner med tall (i excel). Jeg skal lage en prosedyre som kaller opp funksjonen:

Function gjennomsnitt(tall1 As Double, tall2 As Double) As Double
Dim snitt As Double
snitt = (tall1 + tall2) / 2
gjennomsnitt = snitt
End Function

 

Tall 1 og tall 2 finnes i de to kolonnene som er fylt inn med tall - cellenr: b2 / c2 , b3 / c3 osv. helt til b32 / c32.

 

Jeg får ikke til å lage denne prosedyren og trenger gode tips/hjelp.

 

På forhånd takk.

[aadnk]

Du nevner ikke hvor du ønsker at resultatet av funksjonen skal lagres, men dersom dette skal være rett ved siden av i kolonne C, kan du gjøre som følger:

 

Sub ProcessNumbers(sSheet As String)

   Dim X As Long
   
   For X = 1 To 9
       Sheets(sSheet).Cells(X, 3) = gjennomsnitt(Sheets(sSheet).Cells(X, 1), Sheets(sSheet).Cells(X, 2))
   Next

End Sub

 

Dersom arket tallene befinner seg på heter "Sheet1", kaller du prosedyren således:

 

ProcessNumbers "Sheet1"