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
Kaava?
M.A
4
450
Vastaukset
- Kunde
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- M.A
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 - Kunde
M.A kirjoitti:
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 0mitä 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) - Kunde
M.A kirjoitti:
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 0yhteenvetotaulukko 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
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Riikan kukkaronnyöri on umpisolmussa
Kulutus ei lähde liikkeelle, koska kansalaiset eivät usko, että: – työpaikka säilyy – tulot eivät romahda – talous ei h572960Jos vedetään mutkat suoraksi?
Niin kumpaan ryhmään kuulut? A) Niihin, jotka menevät edellä ja tekevät? Vai B) Niihin, jotka kulkevat perässä ja ar1062741- 332459
Tanskan malli perustuu korkeaan ansioturvaan
Ja vahvoihin työllisyys- ja kotoutumispalveluihin. Suomessa Riikka on leikannut juuri näitä: palkkatukea, työttömyysturv382451Vain vasemmistolaiset ovat aitoja suomalaisia
Esimerkiksi persut ovat ulkomaalaisen pääomasijoittajan edunvalvojia, eivät auta köyhiä suomalaisia.501938Anteeksipyyntöni
Jätän tähän anteeksipyyntöni sinulle, koska en voi sanoa sitä missään muuallakaan. Pyydän anteeksi, jos purkamani tuska151559- 321473
Sydämeni valtiaalle
En täältä aio asioita kysellä. Haluan tuoda tiedoksesi, että pohjimmiltani en ihmisiä tahdo satuttaa ja ajattelen muiden1061257- 1771213
En vain unohda
Sitä miten rakastuneesti olet minua katsonut. Oliko tunteet liian suuria että niistä olisi voinut puhua.731060