Beregning af korrelationskoefficenter i VBA

Korrelationskoefficienten kan beregnes direkte med regnearksformlen =KORRELATION(A2:A4;B2:B4), hvor A2:A4 og B2:B4 indeholder dine 2 datasæt.

Hvis du vil have det samme foretaget i VBA kunne din makro se sådan ud:


Sub BeregningAfKorrelation()
   
    Set Omr1 = Worksheets("Ark1").Range("A2:A4")
    Set Omr2 = Worksheets("Ark1").Range("B2:B4")
   
    Korrelation = Application.WorksheetFunction.Correl(Omr1, Omr2)
    Range("E8").Value = Korrelation
   
End Sub

Makroen vil så indsætte korrelationskoefficienten i celle E8.

For at din formel skal virke (hvis du har optaget den med makrooptageren) skal du også have vinget det tilføjelelsesprogram (add-inn) af der hedder Analysis Toolpak - VBA.
Så virker din makro.

Hi guys tak for promt action, men jeg har den ekstra udfordring, at antallet af områder kan variere (Omr1, Omr2....Omrx) og "data-dybden" ligeledes kan variere (A2:A?,B2:B? - "?" vil naturligvis være samme værdi for de resp. Omr). Det var derfor jeg forsøgte at anvende den indbyggede funktion, da det her opereres med et samlet input-range. Jeg havde håbet på at det kunne løses ved at kombinere funktionen med et variabelt dump.Currentregion.Select!  ?

Så behøver du ikke VBA for at løse problemet!
Du kan godt definere og navngive dynamiske områder i Excel v.h.a. OFFSET-formlen. På dansk hedder den vist FORSKYDNING.

Hov, nu skriver du godt nok at antallet af områder også kan variere.
Beregning af korrelationskoefficienter bygger kun på 2 datasæt, og det er Excels funktioner også kun beregnet til.

Jeg forsøger at bruge VBA for at gøre processen automatisk, så brugerene ikke skal "fumle rundt", men det kan da godt være at det ikke kan lade sig gøre?

Jojo, det kan sagtens lade sig gøre at bruge VBA, men brugeren skal jo alligevel altid lægge datasættene ind, så jeg jeg kan ikke rigtig se, hvad du vil opnå ved at bruge VBA frem for Excels udmærkede KORRELATION's-funktion.

Re: Hov, nu skriver.....

Excels funktion (Dataanalyse) kan via ATPVBAEN.XLA beregne og opstille en matrix med korrelationskoefficienter for X antal datasæt!

Brugeren har via en UserForm angivet alle de relevante informationer, som anvendes til en række andre formål. Matricen er blot et del element!

Ja, men Dataanalyse beregner også kun korrelationskoefficienter for 2 datasæt ad gangen.

Ja naturligvis - korr.koeff. er jo i sin natur todimentionel, fordelen er bare at funktionen beregner og opstiller de indbyrdes KK'er for alle datasættene

      a      b      c      d
a    1
b    0,1    1
c    0,9    0,2      1
d  -0,9    -0,2    -0,3    1

Om det overhovedet kan lade sig gøre pr. automatik at lægge data ind i dialogboksen "Dataanalyse" uden at vise dialogboksen, skal jeg ikke kunne sige, men det ligger ihvertfald uden for min formåen.

Men du kunne lave det sådan, at brugeren skal vælge hvilke 2 kolonner/datasæt han/hun ønsker analyseret, hvorefter Excel selv tjekker "dybden" og afleverer k.f.

Prøv lige denne makro og se om den opfylder dine krav:
Du skal lige ændre Sheet1 til dit aktuelle ark.

Sub Macro2()
  ActiveWorkbook.Names.Add Name:="test2", RefersToR1C1:= _
        "=Sheet1!R1C1:OFFSET(Sheet1!R1C1,COUNTA(Sheet1!C1)-1,COUNTA(Sheet1!R1)-1)"

    Application.Run "ATPVBAEN.XLA!Mcorrel", ActiveSheet.Range("test2"), "" _
        , "C", True
    ActiveWorkbook.Names("test2").Delete
End Sub

Eller lidt kortere, men stadig dynamisk.
Sub Macro4()
Range("A1").Select
Application.Run "ATPVBAEN.XLA!Mcorrel", Selection.CurrentRegion, "" _
        , "C", True
End Sub

Genialt bak! Så lærte jeg også det :-)