Jsou zobrazeny jen nové odpovědi. Zobrazit všechny
Předmět Autor Datum
Pomocí VBA
Siki83 27.08.2016 12:18
Siki83
Dobrý den, jak změním znak ✓ na x Private Sub Worksheet_Change(ByVal Target As Range) If Target.Co…
Etkin 27.08.2016 13:48
Etkin
Přepíšeš ChrW(&H2713) na "x" poslední
Siki83 27.08.2016 14:14
Siki83

Dobrý den,
jak změním znak ✓ na x

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 5 And Target.Value = ChrW(&H2713) Then
Range("B" & Target.Row & ":D" & Target.Row).Font.Strikethrough = True
Else
Range("B" & Target.Row & ":D" & Target.Row).Font.Strikethrough = False
End If

End Sub

Děkuji moc

Zpět do poradny Odpovědět na původní otázku Nahoru