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

248

    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. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      269
      4911
    2. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      89
      3384
    3. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      42
      3278
    4. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      49
      2582
    5. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      45
      1817
    6. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      97
      1620
    7. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      97
      1428
    8. Pieni häivähdys sinusta

      Olet niin totinen
      Ikävä
      12
      1227
    9. Tekiskö nainen mieli tavata...

      Viikonloppuna ja...?
      Ikävä
      70
      1027
    10. PS uusimman gallupin rakettimainen nousija

      https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden
      Maailman menoa
      144
      1025
    Aihe