Kezdőlap › Fórumok › Excel programozás › [Resolved] Értékváltozás figyelése › Hozzászólás: [Resolved] Értékváltozás figyelése
Sziasztok!
Delila megoldása is jó lehet, de:
Ha számítás eredményének a változását szeretnétek érzékelni, akkor ezt szokás tenni:
1. A fájl megnyitásakor egy globális változóba lementjük a képlet aktuális eredményét
2. A Worksheet_Calculate eseményben pedig megnézzük, hogy most mi van a cellában (target), és az megegyezik-e az induláskorval.
Ha nem egyezik, akkor változás volt. Ezt kiírhatjuk, de a mi fontos, hogy az új értéket megint tegyük el a globális változónkba.
Tehát a modul tetején van egy
Dim regi_ertek
A munkafüzet megnyitási eseményéhez tartozik a figyelendő cella értékének lementése
Private Sub Workbook_Open()
regi_ertek = Sheet1.Range(figyelt cella).Value
End Sub
Végül a munkalap kalkuláció eseményéhez tesszük az összehasonlítást és nem egyezés esetén a lementést.
Private Sub Worksheet_Calculate()
If Range(figyelt_cella).Value <> regi_ertek Then
MsgBox "Változás!"
regi_ertek = Range(figyelt_cella).Value
End If
End Sub
Imre