Podświetl aktywną komórkę - porady dotyczące programu Excel

Spisie treści

Karthik pyta:

Pracuję nad kodem zdarzenia do podświetlania aktywnej komórki, w zasadzie pokaż zmianę koloru tła aktywnej komórki. Użyłem zdarzenia change, które zmienia wartość aktywnej komórki tylko wtedy, gdy wartość uległa zmianie.

Co za fajne pytanie. Sztuczka polega na użyciu zdarzenia zmiany Worksheet_Selection zamiast zdarzenia Worksheet_Change. To specjalne makro obsługi zdarzeń należy wprowadzić w okienku kodu skojarzonym z określonym arkuszem roboczym. Dyskusja o tym, jak to znaleźć w okienku projektu, znajduje się w tej zarchiwizowanej wskazówce.

Następnie wprowadź następujący 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

Ten program używa publicznej zmiennej o nazwie OldRng, aby zapamiętać ostatni wybrany zakres, dzięki czemu kolor można zresetować z powrotem do białego po wybraniu nowego zakresu.

Interesujące artykuły...