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

441

    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. en vaan saa häntä pois

      Mielestäni pyörimästä. Onko kellekään toiselle käynyt näin? Ihastuin pakkomielteisesti noin vuosi sitten erääseen naiseen. Ei vaan katoa mielestä va
      Ikävä
      176
      2115
    2. Suomi24 kysely: ihmisten kuplautumista ei pääosin koeta vakavaksi ongelmaksi

      “Kuplautumista on mahdotonta estää. Ihmiset ovat aina viihtyneet samankaltaiset arvot ja maailmankatsomuksen jakavassa seurassa ja muodostaneet sen pe
      Suomi24 Blogi ★
      36
      1744
    3. Ohhoh! Glamourmalli Elena, 29, teetti tiimalasivartalon - Vei rahaa ja tuotti tuskaa - Katso kuvat!

      Transtaustainen glamourmalli Elena Vikström on käynyt vuosien ajan plastiikkakirurgisissa toimenpiteissä. Tästä näet lopputuloksen: https://www.suomi
      Kotimaiset julkkisjuorut
      10
      1461
    4. Ostiko Martina uuden ponin tyttärelleen, vai oliko myös Stefan itsekkin valitsemassa ponia .?

      Kiva kun on tyttärelle mielekäs harrastus annettu, ehkä vielä on tulevaisuudessa hänelle tärkeä ja valitsee sen perusteella tulevan ammatin.
      Kotimaiset julkkisjuorut
      233
      1240
    5. Sinä olet tärkeä

      Herätät minussa kunnioitusta. Kiehdot minua. En oikein saa kiinni sinusta. Ehkä juuri siksi. Aistin että sinäkin pidät minusta. Vetovoima on ollut alu
      Ihastuminen
      60
      1223
    6. Varisjärvellä mersu.

      Varisjärven tiellä tuli vanhamersu kylkiedellä mutkassa vastaan ja vähällä keulaan mutta tökkäs penkkaan, hyppäsin omasta autosta ulos ja kävin kiskas
      Suomussalmi
      16
      1067
    7. Belorf haistattaa seuraajiaan "You can hate me now"...

      Vai haistattaako lompakkoa, joka taisi viimeinkin ymmärtää häipyä Sofian ulottumattomiin ? Sofia raukka on niin typerä, että ottaa nostetta "omasta tv
      Kotimaiset julkkisjuorut
      59
      980
    8. Mitähän ajattelet J

      Tästä kaikesta? Mä välitän susta oikeasti.
      Ikävä
      60
      973
    9. Wau mikä kroppa Sofialla

      Kuva instassa kun on suihkurusketuksessa. Kyllä on muodot kohdallaan, on kuin jumalainen Venus patsas. Eikä ole mitään järkyttäviä lonkero tatuointeja
      Kotimaiset julkkisjuorut
      102
      670
    Aihe