aanpassing VBA-code

[jan excel]

Hoi Excellers,

Met onderstaande code wordt er een omlijning in een cel gezet als ik daarop dubbelklick.
Nu wil ik er graag een correctie mogelijkheid hebben door op rechts op de muis te klikken zodat de omlijning in desbetreffende cel ongedaan gemaakt kan worden.

Welke toevoegingen dient er aan onderstaande code te worden gedaan om dit te bereiken.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub


Alvast bedankt

 

[snb]

3 jaar geleden geregistreerd en toch geen code-tags gebruikt ?
Ook jouw Excel heeft een macrorecorder.

 

[jan excel]

3 jaar geleden geregistreerd en toch geen code-tags gebruikt ?
Ook jouw Excel heeft een macrorecorder.

Bedankt voor je reactie,

Dat klopt onderstaand de code voor horizontale omlijning te verwijderen, echter hoe moet de code er nu toegevoegd worden om met rechtermuis klik dit te doen.

De gebruiker moet namelijk als hij op een cel heeft dubbelgeklikt en zich heeft vergist dit weer direct te kunnen herstellen door in zelfde cel met een rechter muis klik te herstellen.

 

[jan excel]

Bedankt voor je reactie,

Dat klopt onderstaand de code voor horizontale omlijning te verwijderen, echter hoe moet de code er nu toegevoegd worden om met rechtermuis klik dit te doen.

De gebruiker moet namelijk als hij op een cel heeft dubbelgeklikt en zich heeft vergist dit weer direct te kunnen herstellen door in zelfde cel met een rechter muis klik te herstellen.

Code vergeten:

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic

 

[Wigi]

... net als de code tags rondom de code.

 

[Roncancio]

Code om een rand te zetten om het geselecteerde bereik:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.BorderAround , xlThin, xlColorIndexAutomatic

End Sub

Code om met rechtermuisknop de rand te verwijderen:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Target.Borders.LineStyle = xlNone

End Sub

Met vriendelijke groet,


Roncancio

 

[jan excel]

Allen bedankt,

De code's van Roncancio leverde voor mij het gewenste resultaat op.

Groet,
Jan