Kaava?

M.A

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

4

450

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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 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)


      • 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 0

        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


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. 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 h
      Maailman menoa
      57
      2960
    2. Jos 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 ar
      Sinkut
      106
      2741
    3. Kuka paiskasi vauvan betoniin Oulussa?

      Nimi esiin.....
      Oulu
      33
      2459
    4. Tanskan malli perustuu korkeaan ansioturvaan

      Ja vahvoihin työllisyys- ja kotoutumispalveluihin. Suomessa Riikka on leikannut juuri näitä: palkkatukea, työttömyysturv
      Maailman menoa
      38
      2451
    5. Vain vasemmistolaiset ovat aitoja suomalaisia

      Esimerkiksi persut ovat ulkomaalaisen pääomasijoittajan edunvalvojia, eivät auta köyhiä suomalaisia.
      Maailman menoa
      50
      1938
    6. Anteeksipyyntöni

      Jätän tähän anteeksipyyntöni sinulle, koska en voi sanoa sitä missään muuallakaan. Pyydän anteeksi, jos purkamani tuska
      Järki ja tunteet
      15
      1559
    7. Miten must tuntuu

      et sä ajattelet mua just nyt
      Ikävä
      32
      1473
    8. Sydämeni valtiaalle

      En täältä aio asioita kysellä. Haluan tuoda tiedoksesi, että pohjimmiltani en ihmisiä tahdo satuttaa ja ajattelen muiden
      Ikävä
      106
      1257
    9. Kun et vain tajua että

      sua lähestytään feikkiprofiililla :D Hanki aivot :D m-n
      Ikävä
      177
      1213
    10. En vain unohda

      Sitä miten rakastuneesti olet minua katsonut. Oliko tunteet liian suuria että niistä olisi voinut puhua.
      Ikävä
      73
      1060
    Aihe