# Thread: Check if a cell contains same digits Thanks: 0 Likes:  3 Post #5331068 (1)Post #5331058 (1)Post #5331059 (1)

1. ## Re: Check if a cell contains same digits

Originally Posted by Rick Rothstein
@Phouc,

These are both excellent and elegant solutions to the OP's first two questions! Great incite insight into the underlying mathematical structure of the problem!
I agree.

Originally Posted by Rick Rothstein
... you can use this somewhat compact code line to do your latest check...

MsgBox [AND(LEFT(A1)=MID(A1,2,1),MID(A1,3,1)=RIGHT(A1),LEFT(A1)<>RIGHT(A1))]
.. or using Phuoc's ideas and your notation

Code:
`MsgBox [AND(MOD(LEFT(A1,2),11)=0,MOD(RIGHT(A1,2),11)=0,MOD(A1,1111)>0)]`

2. ## Re: Check if a cell contains same digits

Originally Posted by Peter_SSs;5331191.. or using Phuoc's ideas and your notation

[code
MsgBox [AND(MOD(LEFT(A1,2),11)=0,MOD(RIGHT(A1,2),11)=0,MOD(A1,1111)>0)][/code]
Good idea. If I am not mistaken, this can be "simplified" (using that word might be a stretch) to this...
Code:
`MsgBox [(MOD(LEFT(A1,2),11)+MOD(RIGHT(A1,2),11)=0)*MOD(A1,1111)>0]`

3. ## Re: Check if a cell contains same digits

Originally Posted by Rick Rothstein
"simplified" (using that word might be a stretch)
Just "changed" I think.

4. ## Re: Check if a cell contains same digits

Interesting!!!

I am really learning more and new tricks each single moments. I really appreciate that

5. ## Re: Check if a cell contains same digits

Originally Posted by Peter_SSs
I agree.

.. or using Phuoc's ideas and your notation

Code:
`MsgBox [AND(MOD(LEFT(A1,2),11)=0,MOD(RIGHT(A1,2),11)=0,MOD(A1,1111)>0)]`
Hi,
I just got into a trouble :

I decided to replace the "A1" with a variable from a user input and I start getting a syntax error alerts.

How do I fix that to take the variable?

Like
.....left(MyInput, 2), 11).......
I thought just taking away the square brackets will do the job yet my thinking was off the grid.

6. ## Re: Check if a cell contains same digits

Originally Posted by kelly mort
I decided to replace the "A1" with a variable from a user input and I start getting a syntax error alerts.

I thought just taking away the square brackets will do the job yet my thinking was off the grid.
Do you remember when I said "If you are always checking only cell A1 and no other" in Message #29 ... that was because the square brackets require fixed cell references (basically, it is a shortcut notation for evaluating a formula that one might find in a cell). The square brackets are sort of an alternative method for using the Evaluate function. The Evaluate function, however, can use variables because its argument is a text string which means you can concatenate the variable into text string constants (or use VB string functions to embed the variable into the text argument) and pass that into the Evaluate function. So what Peter suggested in Message #31 could be written like this in order to use a variable instead of a cell reference.
Code:
`MsgBox Evaluate(Replace("AND(MOD(LEFT(@,2),11)=0,MOD(RIGHT(@,2),11)=0,MOD(@,1111)>0)", "@", YourVariable))`
Note 1: I have assumed your variable's name is YourVariable (change it an necessary)

Note 2: I used the @ symbol as a stand-in for your variable in order to avoid multiple concatenations and then used VB's Replace function to change those @ symbols to the value stored in the variable.

7. ## Re: Check if a cell contains same digits

Yes I do remember that question.

It's fixed now.
Cheers