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?
4
441
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
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ä va1762115Suomi24 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 pe361744Ohhoh! 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.suomi101461Ostiko 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.2331240Sinä 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 alu601223Varisjä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 kiskas161067Belorf 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 tv59980- 60973
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 tatuointeja102670