Checking For Palindromes
=AND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)=MID(A1,LEN(A1)+1-ROW(INDIRECT("1:"&LEN(A1))),1))
======================================
print reverse number by vb function
Function ReverseTxt(ByVal Target As Range)
myLength = Len(Target.Value)
For x = 0 To myLength
ReverseTxt = Left(WorksheetFunction.Substitute(Target.Value, Left(Target.Value, x), ""), 1) & ReverseTxt
Next x
End Function
No comments:
Post a Comment