Viisaammat kertokaahan miten saan seuraavan taulukon.
Riveillä luokat R1-R50
Sarakkeissa luokat S1-S18
Toisella sheetillä allekkain useampi sata riviä, joiden arvo esim. R6 ja S12, R42 ja S2, jne
Miten saan kaavioon/matriisiin arvon montako kertaa eri yhdistelmät esiintyy esim. R6,S12 arvo=1 (esiintyi 1 kerran).
-MA
Riveillä luokat R1-R50
Sarakkeissa luokat S1-S18
Toisella sheetillä allekkain useampi sata riviä, joiden arvo esim. R6 ja S12, R42 ja S2, jne
Miten saan kaavioon/matriisiin arvon montako kertaa eri yhdistelmät esiintyy esim. R6,S12 arvo=1 (esiintyi 1 kerran).
-MA
Vastaukset 4
Vanhimmat
moduuliin ja liität nappiin koodin. Ei ollut tietoa tartteeko tehdä taulukon nollauksia yms.
Sub Laskuri()
Dim vika As Integer
Dim eka As Integer
Dim toka As Integer
Taul2.Activate
vika = Range("A65536").End(xlUp).Row
For Each c In Range("A1:A" & vika)
toka = Mid((Jälkeen(Range(c.Address), " ")), 2)
eka = Mid((Ennen(Range(c.Address), " ")), 2)
Worksheets("Taul1").Cells(eka, toka) = Worksheets("Taul1").Cells(eka, toka) 1
Next
End Sub
Public Function Jälkeen(Solu As Range, Etsittävä As String) As String
Dim i As Integer
For i = Len(Solu) To 1 Step -1
If Mid(Solu, i, 1) = Etsittävä Then
Jälkeen = Mid(Solu, i 1, 256)
Exit Function
End If
Next i
Jälkeen = Solu
End Function
Public Function Ennen(Solu As Range, Etsittävä As String) As String
Dim i As Integer
For i = 1 To Len(Solu)
If Mid(Solu, i, 1) = Etsittävä Then
Ennen = Mid(Solu, 1, i - 1)
Exit Function
End If
Next i
Ennen = Solu
End Function
Meneekö siis noin pahaksi..
Minä kun ajattelin, että olisi selvinnyt jollain LASKE.JOS-funktiolla
Lähdetiedot olisivat:
R S
1 2
2 3
3 1
2 3
1 2
3 1
Yhteenveto olisi muotoa:
_ S1 S2 S3
R1 0 2 0
R2 1 0 2
R3 1 0 0
mitä kulloinkin halutaan.
"Toisella sheetillä allekkain useampi sata riviä, joiden arvo esim. R6 ja S12, R42 ja S2"
Oletin ,että tieto on R6 ja S12 ja tosta pitää purkaa tieto ulos :-)
mai pen rai
(vielä reilu viikko sohjolassa ja sitten 2,5kk lomilla)
yhteenvetotaulukko heittää... mutta kuitenkin
Sub Laskuri()
Dim vika As Integer
Dim eka As Integer
Dim toka As Integer
Taul2.Activate
vika = Range("A65536").End(xlUp).Row
For Each c In Range("A1:A" & vika)
toka = c.Offset(0, 1)
Worksheets("Taul1").Cells(c, toka) = Worksheets("Taul1").Cells(c, toka) 1
Next
End Sub