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

222

    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. Oletko tyytyväinen viime tapaamiseemme?

      Vai toivoitko sen menevän toisella tavalla? Miten?
      Ikävä
      71
      2983
    2. Nyt se sit loppuu

      Et ei enää nähdä ja yhteyttä pidetä.
      Ikävä
      46
      2604
    3. Kuoleman pelko katosi

      Olen pelännyt koko elämän ajan kuolemaa mutta yhtäkkiä kun hindut paljastivat totuuksia uskonnoista noin aloin yhtäkkiä
      Hindulaisuus
      432
      2245
    4. Viikonloppu terveiset kaivatulle

      tähän alas ⬇️⬇️⬇️
      Ikävä
      79
      2158
    5. Jos sitä keittelis teetä

      Ja miettis mitä mies siellä jossain touhuilee... ☕️
      Ikävä
      95
      1966
    6. Myötähäpeä kun näkee sut,

      tekisit jotain ittelles. Ihan hyvällä tämä!
      Ikävä
      32
      1732
    7. Huomenta ........

      Huomenta 💗 Tiedän, että tuntuisit hyvälle.
      Ikävä
      12
      1546
    8. Kuhmolainen on selvästi kepun lehti

      Kuhmolaise etukannessa oli Kuva kun Jaskalle annettiin karhu patsas.mutta kukmolaislehti oli niin kepulainen että Jaskan
      Kuhmo
      17
      1497
    9. Mitä nämä palautteet palstalla ovat?

      Joku uusi toimintatapa rohkaista kirjoittajia vai mistä on kyse?
      Ikävä
      29
      1319
    10. Ei mun tunteet

      ole mihinkään kadonnut. Enkä mä sua inhoa tai ole kyllästynyt. Mä ymmärsin, ettet ole kiinnostunut minusta, ainakaan sil
      Ikävä
      27
      1308
    Aihe