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
VBA koodauksella laskenta, kuinka monta kertaa solun arvoa on muutettu. Miten?
Anonyymi
1
338
Vastaukset
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
Missä kokoomuksen naiset?
Hähmäistä ukkotarinaa kuultu koko viikonloppu. Kukaan ei ole kokoomuksessa edes yrittänyt pitää naisten puolta. Jopa263308Finland is now Petter place
Audin B-ryhmän ralliautolla saatiin kansa voimaan hyvin. Kiitos kokoomus huumoripläjäyksestä.172254Ilman Stadia Suomessa ei olisi kunnon lihajalosteita
HK, Helsingin makkaratehdas, Votkin, mitä näitä nyt onkaan. Böndellä ei ole kunnollisia jalostajia.1301884Huomasitko? Tidjan Ban tyttöystävä paljastui - Tuttu kohutusta rakkausrealitystä
Ban tyttöystävä on Kolmiodraama-realityn Heidi Kytö. Ba ja Kytö kertoivat maaliskuussa 2026 somessa, että he ovat seurus101286Alkuperäinen Jeesuksen antama kastekäsky on Matteuksen evankeliumissa
Matt.28:16-20 16 Ja ne yksitoista opetuslasta vaelsivat Galileaan sille vuorelle, jonne Jeesus oli käskenyt heidän menn1631137Vilpitön totuudenetsiä löytää totuuden kasteesta.
Nykyaikana on niin paljon tietoa saatavilla että vilpitön totuudenetsiä löytää totuuden myös kristillisestä kasteesta. R4501022- 41943
- 55801
- 67741
Toivon että kuulut elämääni
Mutta aika näyttää miten läheisesti. Lupaan kertoa jossain sivulauseessa, kun muutan paikkaa.30735