VBA koodauksella laskenta, kuinka monta kertaa solun arvoa on muutettu. Miten?

Anonyymi

Pitäisi saada laskettua, kuinka monta kertaa soluun on laitettu jokin arvo.
Aina kun arvoa muutetaan, luku muuttuisi tarkkailusolussa.

Esim. Solun A1 arvoa muutetaan ja vaikka soluun B1 tulee tieto, montako kertaa arvoa /tietoa on muutettu.
Muuttuva tieto voi olla numeroita tai tekstiä

Esim.:
A1 B1
100 1
150 2
200 3
250 4

1

<50

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ko taulukon moduuliin...

      Option Explicit

      Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Intersect(Target, Range("A1")) Is Nothing Then
      If Target.ID = "" Then
      Target.ID = Target
      Target.Offset(0, 1) = 1
      Else
      If Not Target.ID = Target Then
      Target.Offset(0, 1) = Target.Offset(0, 1) 1
      Target.ID = Target
      End If
      End If
      End If
      End Sub

      Keep EXCELing
      @Kunde

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. 4 tuntia töitä kerran viikossa on naisen mukaan liian raskasta

      Tämä ei taija olls lieksalaine vaikka "tuntomerkkiin" perusteella nii vois eppäillä! 🤣 31-vuotias Maya ei kykene tekemä
      Lieksa
      90
      3940
    2. Baaritappelu

      Hurjaksi käynyt meno Laffassa. Jotain jätkää kuristettu ja joutunu teholle...
      Kokkola
      43
      3742
    3. Riikka Purra rosvosi eläkeläiset!

      1900 euron eläkkeestä rosvottiin 350 euroa. Kohtuullista vai? Perussuomalaisia ei enää ole olemassa meille eläkeläisille
      Maailman menoa
      605
      3738
    4. Tappo Kokkolassa

      Päivitetty tänään Iltalehti 17.04.2024 Klo: 15:23..Mikähän tämä tapaus nyt sitten taas on.? Henkirikos Kokkolassa on tap
      Kokkola
      14
      2383
    5. Näytit nainen sanoinkuvaamattoman ihanalta

      En voi unohtaa sinua. Pohdin nyt sinua.
      Ikävä
      72
      2332
    6. SDP:n kannatus edelleen kovassa nousussa, ps ja kokoomus putoavat

      SDP on noussut Helsingin Sanomien tuoreessa kannatuskyselyssä kokoomuksen ohi Suomen suosituimmaksi puolueeksi. SDP:n ka
      Maailman menoa
      328
      1995
    7. Ihastuksesi persoonalliset piirteet ulkonäössä?

      Onko jotain massasta poikkeavaa? Uskallatko paljastaa? Aloitan; todella kauniit kädet ja sirot sormet miehellä.
      Tunteet
      124
      1976
    8. Kansaneläkkeiden maksu ulkomaille loppuu

      Hyvä homma! Yli 30 miljoonan säästö siitäkin. Toxia.
      Maailman menoa
      187
      1816
    9. Ketä ammuttu ?

      Ketä sielä Juupajoela ammuttu ei kait mainemies alkanu amuskelemaan , , Kyösti H ?
      Juupajoki
      28
      1489
    10. Nainen, meistä tulisi maailman ihanin pari

      Mutta tosiasiat tosiasioina, on liian monta asiaa, jotka sotivat meidän yhteistä taivalta vastaan. Surulla tämän sanon,
      Ikävä
      66
      1382
    Aihe