Notifikationer

Markér alle som læst Log ud

cwc Nybegynder

14. oktober 2005 - 08:15 Der er 7 kommentarer og
1 løsning

Findes der en VBA funktion der beregner middel og std.afvigelse ?

Jeg kender godt funktionen i excel, men har brug for at udregne middel værdien og std.afvigelsen i VBA koden, er dette muligt ???

Synes godt om

stewen Praktikant

14. oktober 2005 - 08:34 #1

du kan bruge den samme funktion som i Excel - her et eksempel med Vlookup:

Sub test()
Dim formel As String
formel = Application.WorksheetFunction.VLookup(2, Range("E9:E13"), 1, False)
MsgBox (formel), vbOKOnly
End Sub

Synes godt om

supertekst Ekspert

14. oktober 2005 - 08:38 #2

Average & Stdev

f.eks.:
Range("A1:A8").Select
Range("A8").Activate
ActiveCell.FormulaR1C1 = "=AVERAGE(R[-7]C:R[-1]C)"
Range("A1:A8").Select

Synes godt om

stewen Praktikant

14. oktober 2005 - 08:42 #3

Supertekst -> din kode gør blot at du skriver formlen i den aktive celle, du udregner ikke noget i VBA! Hvis det er sådan spørgsmålet skal forstås.....

Synes godt om

cwc Nybegynder

14. oktober 2005 - 08:46 #4

Jo, i dette tilfælde vil jeg gerne have alle formler væk fra excel, således at de kun står i VBA.

Synes godt om

stewen Praktikant

14. oktober 2005 - 08:47 #5

så bruger du mit eksempel - hvor resultatet står i "formel":

her rettet til Stdev:

Sub test()
Dim formel As String
formel = Application.WorksheetFunction.StDev(Range("B2:B4"))
MsgBox (formel), vbOKOnly
End Sub

Synes godt om

cwc Nybegynder

14. oktober 2005 - 09:00 #6

Ok, et muligt problem er, at værdierne (i dit tilfælde ("B2:B4")) ikke står i selve excel arket, man eksisterer kun som variable i VBA (f.eks. Data1, Data2, Data3... Data40).

Synes godt om

stewen Praktikant

14. oktober 2005 - 09:09 #7

Er ikke noget problem:

Application.WorksheetFunction.StDev(Data1, Data2, Data3.....,Data40)

Synes godt om

cwc Nybegynder

17. oktober 2005 - 10:32 #8

Perfekt der virker !!!

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
HVIS + LOPSLAG til flere værdier Af SQF i Excel	4	09/10/202510:50	14/10/202516:09
Finde uger og dage mellem 2 datoer Af mefa i Excel	9	08/10/202519:21	10/10/202505:05
Excel Makroer programmering bit32 - bit64 Af bhh i Excel	3	01/10/202512:22	03/10/202513:32
Eliminer kendte Af andershl i Excel	1	30/09/202520:40	01/10/202512:54
Numering af række efter størst til mindst Af Excel Optimisten i Excel	4	30/09/202512:56	30/09/202514:23

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS