konstruieren Sie eine matrix in excel-vba

Ich brauche Hilfe bei der Konstruktion einer n x n matrix, wobei n gleich der Anzahl der verbleibenden Bestände zum Zeitpunkt t, für t = 0, ..., 10. Zunächst, ich habe insgesamt 10 Aktien, die ich zu verwerfen, eins nach dem anderen wie die Zeit vergeht.

Jedes element der matrix ist gleich sigma(i) x sigma (j) x rho , wo sigma(i)=sigma(j) = 0.25 und rho=0.2

Und das Letzte, was ich tun möchte, ist zu multiplizieren Sie diese matrix durch transponieren dieser matrix

Bin ich wirklich verwirrt, wo und wie ich anfangen soll, und wirklich dankbar für Eure Hilfe

Sub Matrix() 
'Sigmai 'Sigmaj 'Rho 
    Dim Sigmai, Sigmaj, Rho As Single 
    Sigmai = Range("b12").Value 
    Sigmaj = Range("b13").Value 
    Rho = Range("b14").Value 
    Dim matrixelement(10, 10) As Single 
    For n = 1 To 10 
        For m = 1 To 10 
            matrixelement(n, m) = Sigmai * Sigmaj * Rho 
            Cells(n, m) = matrixelement(n, m) 
        Next m 
    Next n 
End Sub

bitte können Sie fügen Sie einige Ausdrucke Ihrer vorhandenen Daten, die Struktur und auch ein Beispiel für die Tabelle, die Sie anstreben zu bekommen?
spielst du schon mit pivot-Tabellen an alle, eine Lösung zu finden?
Ihrer Beschreibung nach haben Sie eine 10x10-matrix, bei der alle Werte gleich. Nicht sicher, was Sie wollen...
um eine transponierte version einer Tabelle es könnte gut sein, um die OFFSET Funktion
Sub-Matrix() 'Sigmai 'Sigmaj 'Rho Dim Sigmai, Sigmaj, Rho Als Single Sigmai = Range("b12").Wert Sigmaj = Range("b13").Wert Rho = Range("b14").Wert Dim-matrixelements(10, 10) As Single For n = 1 To 10 For m = 1 To 10 matrixelements(n, m) = Sigmai * Sigmaj * Rho-Zellen(n, m) = - matrixelements(n, m) Next m Next n End Sub

InformationsquelleAutor user1525225 | 2012-07-14

Gibt es eine Reihe von grundlegenden Problemen mit dem code, die Sie sollte klar bis vor voran. Siehe Kommentare im code unten:

Sub Matrix()
    ' declare ALL your variables
    Dim n As Long, m As Long
    Dim ws As Worksheet

    ' specify type for all variables, otherwise they will be Variant
    Dim Sigmai As Single, Sigmaj As Single, Rho As Single

    ' Explicitly reference the required sheet
    Set ws = Sheet1 ' or ActiveSheet or whatever

    ' qualify range references with worksheet
    Sigmai = ws.Range("b12").Value
    Sigmaj = ws.Range("b13").Value
    Rho = ws.Range("b14").Value

    ' Specify required lower bound. Default base is 0
    Dim matrixelement(1 To 10, 1 To 10) As Single
    For n = 1 To 10
        For m = 1 To 10
            matrixelement(n, m) = Sigmai * Sigmaj * Rho
        Next m
    Next n

    ' return result to sheet in one go
    ws.Range("A1:J10") = matrixelement

End Sub

Für die

Und das Letzte, was ich tun möchte, ist zu multiplizieren Sie diese matrix durch transponieren dieser matrix

Teil, ich nicht sicher, was Sie genau nach, aber MMULT kann nützlich sein, zB

ws.Range("L1:U10") = Application.WorksheetFunction.MMult(matrixelement, matrixelement)

+1 schöner code. ws.Range("A1:J10") = matrixelement ist glatt

InformationsquelleAutor chris neilsen

0

Sie könnten nur pass gehen auf das array und das Ergebnis direkt auf dem Arbeitsblatt. Ein Arbeitsblatt, wenn effektiv nur ein großes 2-dimensionales array.

Cannibalising Chris Nielsen code:
```
Sub Matrix()
' declare ALL your variables
Dim n As Long, m As Long
Dim ws As Excel.Worksheet

' specify type for all variables, otherwise they will be Variant
Dim Sigmai As Single, Sigmaj As Single, Rho As Single

' Explicitly reference the required sheet
Set ws = Sheet1 ' or ActiveSheet or whatever

' qualify range references with worksheet
Sigmai = ws.Range("b12").Value
Sigmaj = ws.Range("b13").Value
Rho = ws.Range("b14").Value

For n = 1 To 10
    For m = 1 To 10
        ws.cells(n,m).value = Sigmai * Sigmaj * Rho
    Next m
Next n

End Sub
```
ein paar Dinge, die ich nicht verstehe:
- wenn b12/b13/b14 sind alle Konstanten, dann ist es sicherlich jede Zahl in der matrix werden die gleichen sein ?!
- wenn jede Zahl ist die gleiche, dann durch Multiplikation mit der matrix umgesetzt werden müssen nur das Quadrat jeder Zahl in jeder Zelle der matrix ?!
Der Grund, zu berechnen und in ein array ist die Effizienz: das berühren der Platte innerhalb einer Schleife ist viel langsamer als die Berechnung in einem array. Buchungskennzeichen wie dies nur fördert schlechte Praktiken. Das heißt, für eine kleine Anzahl von Zellen, der Unterschied wird nicht spürbar.
+1 chris ... obwohl "Posting-code, wie dies nur fördert schlechte Praktiken." ist ein wenig hart!

InformationsquelleAutor whytheq

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.