hei kirjoitin alla olevan koodin kääntääkseni matriisin sen olan yli. olisiko jollakulla ideoita siihen miten tämän voisi tehdä helpommin?
Private Sub MatrixTranspose()
Dim Kolumni As Integer
Dim rivi As Integer
Dim RiviIndexi, KolumniIndexi As Integer
kolumni = Worksheets("sjukhus").Range("XFD1").End(xlToLeft).Column
rivi = Worksheets("sjukhus").Range("A1048576").End(xlUp).row
Dim kustannusArray() As Variant
ReDim KustannusArray(rivi, kolumni)
Dim Inversarray() As Variant
ReDim Inversarray(kolumni, rivi)
For RiviIndexi = 1 To rivi
For kolumniIndexi = 1 To kolumni
KustannusArray(riviIndexi - 1, kolumniIndexi - 1) = Cells(riviIndexi, kolumniIndexi)
Worksheets("sjukhus").Cells(kolumniIndexi 10, riviIndexi).Value = KustannusArray(riviIndex - 1, kolumniIndex - 1)
Next kolumniIndexi
Next riviIndexi
End Sub
VBA ja matriisin kääntäminen
Tsitsu
1
635
Vastaukset
- ustisT
Tuolla saa transponoitua valitun alueen=)
Sub Transponoi()
Dim alue As Range
Dim rivit As Integer
Dim sarakkeet As Integer
Dim arvo() As Single
Set alue = Selection
rivit = alue.Rows.Count - 1
sarakkeet = alue.Columns.Count - 1
ReDim arvo(rivit, sarakkeet)
For j = 0 To sarakkeet
For i = 0 To rivit
arvo(i, j) = alue(1, 1).Offset(i, j).Value
Next
Next
alue.ClearContents
For j = 0 To sarakkeet
For i = 0 To rivit
alue(1, 1).Offset(j, i).Value = arvo(i, j)
Next
Next
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Veroaste on Suomessa viitisen prosenttiyksikköä liian matala
Veropohjaa on rapautettu käytännössä koko kulunut vuosituhat, jonka vuoksi valtion menoja on jouduttu rahoittamaan velka1613271EU komissio - EU-elpymisrahoja voidaan käyttää TILAPÄISESTI väärin!
Espanja ohjasi miljardeja euroja – Nyt EU-komissio teki yllättävän paljastuksen Skandaaliksi noussut Espanjan EU-rahoje403032- 1121565
Empaattisuus ja suoruus.
Tässä tullut noita pehmeitä asioita pohdittua, mutta toisaalta olen myös yksinkertainen mies. Pidän suoruudestakin. Mi1551304- 731139
Kristillinen kaste annetaa upotuskasteena
Kristillinen upotuskaste perustuu juutalaiseen mikve-kasteeseen, jossa upottaudutaan veden alle kokonaan. Paavali vertas1621097Koko kansan kaste Punaisen meren ylityksen aikana
Koko Israelin 2,5 milj.kansa sai kasteen ja Pyhän Hengen lahjan ylittäessän Punaisen meren. 1.Kor.10 1 Sillä minä en ta3661077Sijaiskasteet kuolleitten puolesta
Paavali teki Korintossa sijaiskasteita kuolletten puolesta eli ns. Mormoninkasteita. 1. Kor. 15:29 Mitä muutoin ne, j373989- 47963
Sä saat mut tuntemaan
Jotain sellaista mitä ei saisi tuntea mutta må en mahda tälle mitään. Mulla on ikävä niitä meidän katseita ja sitä tunne24938