Frage : Zelle zum ursprünglichen Wert zurückstellen

Im angebrachten Arbeitsbuch habe ich das wöchentliche Vorlagenpahting für ein orerator und welches I'n jetzt versuchen zu tun ist, wenn das Interior.color 9 ist, die der ursprüngliche Wert der Zelle und das intlerior.colour wie einstellte zu 15

I sind in der Lage gewesen, die Farbe einzustellen aber retured, ich nicht die Biene habe, die fähig ist, den Zellenwert auf einzustellen, bin ursprünglich.

For examlpe BG12 Wert sollte HP1_01 jetzt sein dann, wenn BK14 leer ist, das, es ursprünglicher Wert ist HP1_02

This soll geschehen, wenn das Interior.colour 9 nur ist, und nur Feind HP1 und HP2 ist

Attachments:

contract-path-test.xls (214 KBS)  (Akten-Art Details)  

ursprünglicher Zellenwert test

Antwort : Zelle zum ursprünglichen Wert zurückstellen

Allgemeines myValue, mAddress als Schnur

Privates VorWorksheet_Change (ByVal Ziel als Strecke)
Wenn MsgBox („Klicken ja, zum zum ursprünglichen Wert“, zum vbYesNo umzuschalten) = vbYes dann
    Wenn Target.Address = mAddress dann
        Application.EnableEvents = falsch
        Target.Value = myValue
        Application.EnableEvents = richten aus
    Beenden wenn
Beenden wenn
Unterseeboot beenden

Privates VorWorksheet_SelectionChange (ByVal Ziel als Strecke)
mAddress = Target.Address
myValue = Target.Value
Enden-Unterseeboot