Telefonszámunk: 1-472-0679

Hozzászólás: [Resolved] Értékváltozás figyelése

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

#3479
horvimi
Adminisztrátor

    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