Hirdetés

Új hozzászólás Aktív témák

  • Delila_1

    veterán

    válasz Jarod1 #7829 üzenetére

    A laphoz kell rendelned a makrót (lapfülön jobb klikk, Kód megjelenítése, a jobb oldalon kapott üres lapra másold be):

    Private Sub Worksheet_Change(ByVal Target As Range)
    Rows(Target.Row).Interior.ColorIndex = 4
    End Sub

    A fenti makró bármelyik cellába írt szövegnél zöldre festi a teljes sor hátterét. Ha azt akarod, hogy egy bizonyos oszlopba történt beírásra zöldítsen, akkor egy feltételhez kell rendelni a szín megadását.

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then Rows(Target.Row).Interior.ColorIndex = 4
    End Sub

    Ez a makró csak akkor színez, ha a B (2.) oszlopba viszel be valamilyen értéket (szöveg, szám, dátum, logikai). A Target.Column értékével add meg a a megfelelő oszlopot.

Új hozzászólás Aktív témák