Kezdőlap › Fórumok › Excel témák › Excel jelölők! › Hozzászólás: Excel jelölők!
2015-01-26-13:48
#1800
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