Karthikas klausia:
Aš dirbu renginio kodą paryškinti aktyvų langelį, iš esmės rodyti pakeisti aktyvios langelio fono spalvą. Aš naudojau pakeitimo įvykį ir tai keičia aktyvios langelio vertę tik tada, kai vertė pasikeitė.
Koks šaunus klausimas. Apgaulė yra naudoti „Worksheet_Selection“ pakeitimo įvykį, o ne „Worksheet_Change“ įvykį. Ši speciali įvykių apdorojimo makrokomanda turi būti įvesta kodo srityje, susietoje su konkrečiu jūsų darbalapiu. Diskusija, kaip tai rasti projekto srityje, yra šiame archyvuotame patarime.
Tada turėtumėte įvesti šį kodą:
Public OldRng As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not OldRng Is Nothing Then OldRng.Interior.ColorIndex = xlNone End If Target.Interior.ColorIndex = 6 Set OldRng = Target End SubŠi programa naudoja viešąjį kintamąjį, pavadintą „OldRng“, kad prisimintų paskutinį pasirinktą diapazoną, kad pasirinkus naują diapazoną spalva būtų atstatyta į baltą.
