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

• #42318 Delila_1 veterán Sutyi73 #42316

  Új Válasz 2019-11-30 12:11:50 #42318

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Sutyi73 #42316 üzenetére

  Laphoz rendelt makróval megoldható.

  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "p" Then Target.Borders(xlDiagonalUp).LineStyle = xlContinuous
If Target.Value = "o" Then Target.Borders(xlDiagonalDown).LineStyle = xlContinuous
End Sub

  Azért írtam meg "o" bevitelére is, mert nem tudom, melyik irányba szeretnéd dönteni az átlót. "p" esetében /, "o"-nál \.

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