| Jak podświetlić aktywny wiersz? |
|
Problem: Chciałbym wyróżnić w tabeli wiersz z aktywną komórką. ![]() Rozwiązanie: Możesz skorzystać np. z takiej procedury zdarzeniowej. Makro należy umieścić w module z ikoną wybranego arkusza. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngTabela As Excel.Range Dim rngBezNaglowkow As Excel.Range Dim lWiersz As Long, lKolumna As Long 'Przypisz zmienna do calej tabeli danych Set rngTabela = Range("B2").CurrentRegion 'Przypisz zmienne przechowujace ilosc wierszy i kolumn With rngTabela lWiersz = .Rows.Count: lKolumna = .Columns.Count End With 'Przypisz zmienna dla tabeli - BEZ NAGLOWKOW!!! Set rngBezNaglowkow = Range("B3").Resize(lWiersz - 1, lKolumna) 'Usun kolory wypelnienia dla calej tabeli, poza naglowkami rngBezNaglowkow.Interior.ColorIndex = xlNone 'Sprawdz czy zaznaczono komorke nalezaca do tabeli 'jezeli tak, zaznacz na zielono caly wiersz w tabeli If Not Intersect(rngBezNaglowkow, Target) Is Nothing Then Range("B" & Target.Row).Resize(1, lKolumna).Interior.Color = RGB(204, 255, 188) End If End Sub |
|
| Zmieniony ( Poniedziałek, 28. Czerwiec 2010 21:49 ) |
.jpg)