Informatika és tudomány

megoldást keresek erre a problémára
  • Delila1
    #2110
    Gondolom, makróval kell megoldanotok.
    A laphoz rendeld a lenti eseményvezérelt makrót:

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim betu As Integer, forditott As String

    If Target.Address = "$A$1" Then
    Application.EnableEvents = False
    For betu = Len(Target.Value) To 1 Step -1
    forditott = forditott & Mid(Target.Value, betu, 1)
    Next
    Range("A1") = forditott
    Application.EnableEvents = True
    End If
    End Sub