numerot

Voisko pikkasen selventää

sda kirjoitti:

Voisko pikkasen selventää

Jos ymmärsin oikein, sinulla on lottonumeroita monelta eri kierrokselta ja haluaisit tietää kuinka usein tietty numero on esiintynyt.

Esimerkissä jonka tein numerot ovat soluissa A1:G250. J1 tehty kaava
=LASKE.JOS($A$1:$G$250;RIVI())
laskee kuinka monta kertaa numero 1 esiintyy.
Kun kaavaa vedetään alaspäin rivinumero muuttuu muu ei. Solun J14 kaava laskee monestikko numero 14 esiintyy. Tokihan kaavan voi tehdä muotoon
=LASKE.JOS($A$1:$G$250;14)
mutta on paljon työläämpää.

paavali kirjoitti:

Jos ymmärsin oikein, sinulla on lottonumeroita monelta eri kierrokselta ja haluaisit tietää kuinka usein tietty numero on esiintynyt.

Esimerkissä jonka tein numerot ovat soluissa A1:G250. J1 tehty kaava
=LASKE.JOS($A$1:$G$250;RIVI())
laskee kuinka monta kertaa numero 1 esiintyy.
Kun kaavaa vedetään alaspäin rivinumero muuttuu muu ei. Solun J14 kaava laskee monestikko numero 14 esiintyy. Tokihan kaavan voi tehdä muotoon
=LASKE.JOS($A$1:$G$250;14)
mutta on paljon työläämpää.

vertailu, jos alueita on useita? Esim. G2:G11, P2:P11, G16:G25, P16:P25 jne. (alueita 100 kpl). Vertailtavat luvut ovat väliltä 2-170.

Kiitos!

vastaavanlainen kirjoitti:

vertailu, jos alueita on useita? Esim. G2:G11, P2:P11, G16:G25, P16:P25 jne. (alueita 100 kpl). Vertailtavat luvut ovat väliltä 2-170.

Kiitos!

valitse kaikki laskettavat alueet ja nimeä ne esim. "alue". Lisää koodi moduuliin ja muokkaile sopivaksi
kirjoittaa nyt tulokset sarakkeisiin A ja B

Sub Koe()
Dim hakualue As Range
Dim luku(270) As Variant
Dim i As Integer
Set hakualue = Range("alue")
For Each cell In hakualue
luku(cell) = luku(cell) 1
Next
Range("A1") = "luku"
Range("B1") = "esiintymiskerrat"
Range("A2").Select
For i = 2 To 170
ActiveCell = i
ActiveCell.Offset(0, 1) = luku(i)
ActiveCell.Offset(1, 0).Select
Next
End Sub