Moikka excel-gurut, tarvitsisin apua seuraavanlaiseen ongelmaan:
Minulla on dataa tuhansista nimikkeistä. Jokaisella nimikkeellä joko on tai ei ole ominaisuutta x. Olen tehnyt summarivin, joka laskee kuinka monella nimikkeellä on x, ja saanut tuloksen a. Dataa aletaan päivittää niin, että yhä useammille nimikkeille tulee ominaisuus x, eli a:n arvo kasvaa.
Miten saan piirrettyä päivitysten edistymisestä kuvan niin, että excel lukitsee alkuarvon a ja piirtää seuraavat arvot suhteessa aikaan? Tällä hetkellä saan piirrettyä vain muuttuvan pisteen...
Tai vaihtoehtoisesti, miten tätä ongelmaa kannattaa lähestyä loogisemmin...
Kiitos!
Minulla on dataa tuhansista nimikkeistä. Jokaisella nimikkeellä joko on tai ei ole ominaisuutta x. Olen tehnyt summarivin, joka laskee kuinka monella nimikkeellä on x, ja saanut tuloksen a. Dataa aletaan päivittää niin, että yhä useammille nimikkeille tulee ominaisuus x, eli a:n arvo kasvaa.
Miten saan piirrettyä päivitysten edistymisestä kuvan niin, että excel lukitsee alkuarvon a ja piirtää seuraavat arvot suhteessa aikaan? Tällä hetkellä saan piirrettyä vain muuttuvan pisteen...
Tai vaihtoehtoisesti, miten tätä ongelmaa kannattaa lähestyä loogisemmin...
Kiitos!
Vastaukset 2
Vanhimmat
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