CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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
Sæt Overskrift / Caption ved hjælp af vba kode Af per2edb i Excel	3	I dag 16:04	I dag 19:01
Link cvs fil til Excel Af per2edb i Excel	4	12/07/202515:50	13/07/202520:37
Fjern markering på enkelte linjer Af TheLibrarian i Excel	1	11/07/202510:03	11/07/202516:52
lookup Af tjodense i Excel	5	08/07/202513:38	09/07/202509:27
Mellem tidspunkter Af nyhavn18 i Excel	3	02/07/202519:07	03/07/202506:29

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