Muuttuvan tilanteen kuvaaja

Onko sinulla siinä päivämäärä saraketta, johon laitat päivämäärän aina kun nimike saa x-arvon. Jos on, niin laske LASKE.JOS-funktiolla kuinka monta "äksää" on tullut vaikka kuukausittain tai miten usein päivitystä sitten tarvitsekkaan.

simppeli ratkaisu
oletetaan, että sulla vaikka 2000 nimikettä sarakkeessa A1:A2000 ja ja luvut sarakkeessa B1:B2000(vain esimerkkinä, voi olla kuinka monta vaan )

Kuvaajan tiedot vastaavasti E1:F20000
Kun aloitat kuvaajan tekoa niin laita soluun E1 =1 tai montako niitä lukuja onkaan alkuhetkellä ja vastaava summa soluun F1

tee kaavio data-alueesta esim. E1:F2000
Ala sitten syöttömään lukuja nimikkeille ja kaavio päivityy sitä mukaan.

mallikoodissa lisää nyt pvm ja kpl, mutta hipsaamalla sen rivin ja poistamalla riviltä
' Range("E10000").End(xlUp).Offset(1, 0) = Application.WorksheetFunction.Count(Range("B:B"))

hipsun, saat kpl ja summakaavion.

taulukon moduuliin...

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
' eiintymien määrä
' Range("E10000").End(xlUp).Offset(1, 0) = Application.WorksheetFunction.Count(Range("B:B"))
' päivämäärä
Range("E10000").End(xlUp).Offset(1, 0) = Date
Range("E10000").End(xlUp).Offset(0, 1) = Application.WorksheetFunction.Sum(Range("B:B"))
End If
End Sub


Keep EXCELing
@Kunde