Questione : ripristinare la cellula al valore originale

Nel libro di esercizi allegato ho il Pahting settimanale matrice per un orerator e che I'n ora provare a fare è quando il Interior.color è 9 che il valore originale della cellula retured e il intlerior.colour come si regola a 15

I ha potuto fissare il colore ma non ho ape in grado di fissare il valore delle cellule a sono originale. il valore del examlpe BG12 del

For dovrebbe ora essere HP1_01 allora quando BK14 è spazio in bianco che è il valore originale è HP1_02

This deve accadere quando il Interior.colour è soltanto 9 e soltanto nemico HP1 e HP2 class= " lastRow del
>Attachments " di nome " del class= del class= " valore " del
il

class= " fileInfo " del
il title= " " di nome di schedario del class= " di contract-path-test.xls il class= (214 KB)  Javascript " del href= " " dei attachmentDetails del class= di (tipo di lima particolari)  
class= " descrizione " del
valore originale test
delle cellule
il class= di
del >
class= del

Risposta : ripristinare la cellula al valore originale

myValue pubblico, mAddress come stringa

Worksheet_Change secondario riservato (obiettivo di ByVal come gamma)
Se MsgBox (“scatto sì da ritornare a valore originale„, al vbYesNo) = vbYes allora
    Se Target.Address = mAddress allora
        Application.EnableEvents = falso
        Target.Value = myValue
        Application.EnableEvents = allineano
    Concluder se
Concluder se
Concludere il sommergibile

Worksheet_SelectionChange secondario riservato (obiettivo di ByVal come gamma)
mAddress = Target.Address
myValue = Target.Value
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us