Checking For Palindromes

Andrew Poulsom

MrExcel MVP

Joined

Jul 21, 2002

Messages

73,092

• Feb 27, 2004

• #2

Here you are:

Code:

Function Palindrome(x) As Variant
    Dim y As String
    y = StrReverse(CStr(x))
    If y = CStr(x) Then
        Palindrome = "Palindrome"
    Else
        Palindrome = "Not a Palindrome"
    End If
End Function

 

Upvote 0

TheBuGz

Spammer

Joined

Jan 25, 2004

Messages

367

• Feb 27, 2004

• #3

Curiosity Killed the Cat

still wat is Palindromes

 

Upvote 0

Aladin Akyurek

MrExcel MVP

Joined

Feb 14, 2002

Messages

85,210

• Feb 27, 2004

• #4

=AND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)=MID(A1,LEN(A1)+1-ROW(INDIRECT("1:"&LEN(A1))),1))

which must be confirmed with control+shift+enter instead of just with enter.

You can find this on a CD. See:

http://www.mrexcel.com/sunshop/index.php?action=item&id=5&subid=

Gee. Is this a commercial?

 

Upvote 0

S

Seti

Well-known Member

Joined

May 19, 2002

Messages

2,916

• Feb 27, 2004

• #5

TheBuGz said:

Curiosity Killed the Cat

still wat is Palindromes

Click to expand...

This

 

Upvote 0

TheBuGz

Spammer

Joined

Jan 25, 2004

Messages

367

• Feb 27, 2004

• #6

[quote="Aladin Akyurek

You can find this on a CD. See:

http://www.mrexcel.com/sunshop/index.php?action=item&id=5&subid=

Gee. Is this a commercial?[/quote]
If i just had money to Buy i would have Bought the whole of this FORUM
but i cant even buy this CD



can it be given for free!!!

 

Upvote 0

mianmazher

Active Member

Joined

Jan 24, 2004

Messages

412

• Feb 27, 2004

• #7

Numbers or text which read same from both sides

Regards


Mian Mazher

 

Upvote 0

mianmazher

Active Member

Joined

Jan 24, 2004

Messages

412

• Feb 28, 2004

• #8

Hi Sir Aladin


I modified this formula

=IF(AND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)=MID(A1,LEN(A1)+1-ROW(INDIRECT("1:"&LEN(A1))),1)),"Palindrome", "Try Again")


and entered without Ctrl+Shift+Enter


and its still working


U told to enter as array

Any difference between two?



Regards

Mian Mazher

 

Upvote 0

Aladin Akyurek

MrExcel MVP

Joined

Feb 14, 2002

Messages

85,210

• Feb 28, 2004

• #9

mianmazher said:

...


I modified this formula

=IF(AND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)=MID(A1,LEN(A1)+1-ROW(INDIRECT("1:"&LEN(A1))),1)),"Palindrome", "Try Again")

Click to expand...

In order to be able to say "Palindrome" or "Try Again"?

and entered without Ctrl+Shift+Enter


and its still working...

Click to expand...

It still needs confirming with control+shift+enter. Try

xxxmmnnxxx

as input in A1.

If you'd like to see "Palindrome" and "Try Again" instead of TRUE and FALSE, here is a shorter way:

Just put -- before the original formula, that is:

=--AND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1)=MID(A1,LEN(A1)+1-ROW(INDIRECT("1:"&LEN(A1))),1))

and confirm with control+shift+enter.

Now custom format the formula cell as:

[=1]"Palindrome";[=0]"Try Again"

 

Upvote 0

L

Legacy 21301

Guest

• Feb 28, 2004

• #10

mianmazher said:

Numbers or text which read same from both sides
Regards
Mian Mazher

Click to expand...

Nonsense!

What about notloB ?

 

Upvote 0