Telefonszámunk: 1-472-0679

Hozzászólás: Excel jelölők!

Kezdőlap Fórumok Excel témák Excel jelölők! Hozzászólás: Excel jelölők!

#1800
horvimi
Adminisztrátor

    Szia!

    A gond valójában az lehet, hoyg a cellaháttér színezés lefedi a segédrácsot (Grid), ami nem ugyanaz, mint a cellaszegély.
    és a visszaállításkor ugye fehér színt adtam meg, ami jó ugyan, de eltünteti a grideket.

    Próbáld ki ezt a verziót:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Const nofill As Double = 16777215
        If Target.Column = 1 Then
            uo = Target.CurrentRegion.Cells(Target.CurrentRegion.Cells.Count).Column
            If Target.Interior.Color = nofill Then
                Range(Target, Cells(Target.Row, uo)).Interior.Color = RGB(252, 213, 180)
            Else
                Range(Target, Cells(Target.Row, uo)).Interior.ColorIndex = xlNone
            End If
        End If
    End Sub

    Ez a kód a fehér háttérszín helyett a Nincs kitöltést alkalmazza ebben a sorban:
    Range(Target, Cells(Target.Row, uo)).Interior.ColorIndex = xlNone

    Imre