La création d'une matrice de corrélation via VBA Excel

Quelle serait la meilleure façon de créer une matrice de corrélation via VBA Excel? Mes données ont des en 45 colonnes (qui peut éventuellement changer) et 12000 lignes (qui peut changer). Je vais juste utiliser le correl fonction sur la feuille, mais comme je l'ai dit, mes colonnes et les lignes peuvent changer avec le temps.

Toute aide sera grandement appréciée!

OriginalL'auteur Kristina | 2013-04-16

  1. 3
     Application.Run "ATPVBAEN.XLAM!Mcorrel", ActiveSheet.Range("$C$3:$F$6"), _
    ActiveSheet.Range("$C$10"), "K", False //"K" might be "C"=column

    pour exécuter ce que vous avez à activer les Données de l'Utilitaire d'Analyse (package) de la première.
    Vous pouvez utiliser ce par le biais de l'INTERFACE utilisateur, onglet Analyse des Données->matrice de corrélation

    ici:

    "$C$3:$F$6" - input (square matrix)
$C$10 - output cell
"K" (or "C") - group by columns
false - labels=no
    Je reçois P:\ATPVBAEN.XLAM cannot be found. Try a different path. L'utilitaire d'analyse est situé dans le Lecteur C et je peux obtenir le chemin d'accès où il est situé, mais pas sûr de savoir comment modifier le code ci-dessus pour le faire.
    vous devez activer cette via ruban->Excel Options->Addins->gérer
    Est-il un moyen de la matrice de corrélation pour être mis à jour instantanément, si la plage de données les modifications?
    oui, mais alors vous devez utiliser les événements. Vous pouvez écrire le code de la Worksheet_Change procédure de l'événement à prendre des mesures en fonction de la cellule a été modifié ou est fondée sur la nouvelle valeur. vous pouvez aussi upvote mon post, merci : p à propos des événements Excel
    Merci encore! Depuis que je ne suis pas trop familier avec les événements, j'ai opté pour l'utilisateur de cliquer sur un bouton. J'ai une dernière question. Comment puis-je changer toutes les valeurs d'erreur dans ma matrice à 0?

    OriginalL'auteur 4pie0

  2. 4

    J'ai cherché sur le web pour VBA Matrice de Corrélation de Code et havent rien trouvé de substance. Fait un peu de codage de moi-même, il n'est pas magnifique, mais il fait le travail.
    Ce code permet de créer une matrice à droite de la dernière série de données.

    Sub CorrelationMatrix()

Dim y As Range
Dim z As Range

funds = Application.Workbooks("VBAcorrelation").Worksheets("Sheet1").Cells(1,       Columns.Count).End(xlToLeft).Column
rader = 0
For x = 1 To funds
        nyrad = Cells(Rows.Count, x).End(xlUp).Row
        If nyrad > rader Then
        rader = Cells(Rows.Count, x).End(xlUp).Row
    End If
Next x



p = 1
u = 2

For h = 1 To funds
For u = 1 To funds

        Set y = ActiveSheet.Range(Cells(2, h), Cells(rader, h))
        Set z = ActiveSheet.Range(Cells(2, u), Cells(rader, u))

  Correl = WorksheetFunction.Correl(y, z)

 Worksheets("Sheet1").Cells(h + 1, funds + u + 3).Select
 ActiveCell = Correl

 Next u
 Next h

MsgBox "Done with Matrix"
End Sub

    OriginalL'auteur Algos

  3. 0

    Il fonctionne très bien: 

    Option base 1  
      Function MCorrelation(rango As Range) As Variant
        Dim x As Variant, y As Variant, s As Integer, t As Integer, c() As Variant
        ReDim c(rango.Columns.Count, rango.Columns.Count)
        For i = 1 To rango.Columns.Count Step 1
         For j = 1 To i Step 1
        c(i, j) = Application.Correl(Application.Index(rango, , i), Application.Index(rango, , j))
         Next j
        Next i
         MCorrelation = c
        End Function
    Ajouter quelques explications avec la réponse à comment cette réponse aider les OP dans la fixation de l'émission en cours

    OriginalL'auteur Moreno