maalattujen solujen

mutta eri väreillä maalattuja soluja on A sarakkeessa vaikka millä mitalla. Solun väri kertoo minulle, että missä tilassa kyseisellä rivillä oleva tuote on (tekeillä, 1 vaihe tehty, 2 vaihe tehty, viallinen, yms.) Solujen värejä vaihdetaan sitä mukaa kun esim. tuotteen ensimmäinen vaihe on valmistunut. Ja nyt haluan tietää, että kuinka monta tuotetta on nyt esim. tekeillä (keltaiseksi maalattu solu).

maalaan kirjoitti:

mutta eri väreillä maalattuja soluja on A sarakkeessa vaikka millä mitalla. Solun väri kertoo minulle, että missä tilassa kyseisellä rivillä oleva tuote on (tekeillä, 1 vaihe tehty, 2 vaihe tehty, viallinen, yms.) Solujen värejä vaihdetaan sitä mukaa kun esim. tuotteen ensimmäinen vaihe on valmistunut. Ja nyt haluan tietää, että kuinka monta tuotetta on nyt esim. tekeillä (keltaiseksi maalattu solu).

Muokkaa sopivaksi. Nyt hakee värejä A-sarakkeesta ja kirjoittaa tulokset C1 alaspäin

taulukon moduuliin...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
SummaJosVäri
End Sub

normaali moduuliin...

Sub SummaJosVäri()
Dim solu As Range
For Each solu In Range("A1:A" & Range("A65536").End(xlUp).Row)
Select Case solu.Interior.ColorIndex
Case 3 'punainen
summa3 = summa3 1
Case 4 'vihreä
summa4 = summa4 1
Case 5 'sininen
summa5 = summa5 1
Case 6 'keltainen
summa6 = summa6 1
Case 7 'violetti
summa7 = summa7 1
Case Else 'ei täyttöä
summa8 = summa8 1
End Select
Next solu
Range("C1") = summa3
Range("C2") = summa4
Range("C3") = summa5
Range("C4") = summa6
Range("C5") = summa7
Range("C6") = summa8
End Sub

Kunde kirjoitti:

Muokkaa sopivaksi. Nyt hakee värejä A-sarakkeesta ja kirjoittaa tulokset C1 alaspäin

taulukon moduuliin...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
SummaJosVäri
End Sub

normaali moduuliin...

Sub SummaJosVäri()
Dim solu As Range
For Each solu In Range("A1:A" & Range("A65536").End(xlUp).Row)
Select Case solu.Interior.ColorIndex
Case 3 'punainen
summa3 = summa3 1
Case 4 'vihreä
summa4 = summa4 1
Case 5 'sininen
summa5 = summa5 1
Case 6 'keltainen
summa6 = summa6 1
Case 7 'violetti
summa7 = summa7 1
Case Else 'ei täyttöä
summa8 = summa8 1
End Select
Next solu
Range("C1") = summa3
Range("C2") = summa4
Range("C3") = summa5
Range("C4") = summa6
Range("C5") = summa7
Range("C6") = summa8
End Sub

Vieläkö löytäisin jostain listan värien numeroista?

hienosti kirjoitti:

Vieläkö löytäisin jostain listan värien numeroista?

jos voisin määrittää värin jonkun toisen solun perusteella.. jotenkin niinku näin:

Case (solun D1 väri)
summa3 = summa3 1

tajusitko?

olisi kirjoitti:

jos voisin määrittää värin jonkun toisen solun perusteella.. jotenkin niinku näin:

Case (solun D1 väri)
summa3 = summa3 1

tajusitko?

värit nyt H1:H3

Function SummaJosVäri2()
Dim solu As Range
Dim värinumero1 As Integer
Dim värinumero2 As Integer
Dim värinumero3 As Integer
Dim summa As Integer
Dim summa1 As Integer
Dim summa2 As Integer
Dim summa3 As Integer
värinumero = Range("H1").Interior.ColorIndex
värinumero2 = Range("H2").Interior.ColorIndex
värinumero3 = Range("H3").Interior.ColorIndex
For Each solu In Range("A1:A" & Range("A65536").End(xlUp).Row)
Select Case solu.Interior.ColorIndex
Case värinumero
summa = summa 1
Case värinumero2
summa1 = summa1 1
Case värinumero3
summa2 = summa2 1
Case Else
summa3 = summa3 1
End Select
Next solu
Range("C1") = summa
Range("C2") = summa1
Range("C3") = summa2
Range("C4") = summa3
End Function