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

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

Great!!!!

One last request then I take a nap How will I verify format like:
0011
0022
....
1100
1122
1133
....
2200
2211
2233
....

Code:
`MsgBox Range("A1").Text = String(4, Left(Range("A1").Text, 1))`
As the above was dealing with the whole 4 for same characters, here I want compare the first two characters for sameness then move to the last two for sameness. If both cases are true then the msgbox shows. Eg 1122 not 1123  Reply With Quote

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

MsgBox Range("A1").Text = String(2, Left(Range("A1").Text, 1)) & String(2, Right(Range("A1").Text, 1))  Reply With Quote

3. ## Re: Check if a cell contains same digits Originally Posted by kelly mort I am looking for a way to verify if a cell say A1 containssame digits like 1111, 2222, etc.

MsgBox Range("B1").Value Mod 1111 = 0  Reply With Quote

4. ## Re: Check if a cell contains same digits Originally Posted by kelly mort So in cell A1, if the number has the form ABCD like 0123, 1234, ... Then we call the msgbox
MsgBox Range("A1").Text - Left(Range("A1").Text, 1) * 1111 = 123  Reply With Quote

5. ## Re: Check if a cell contains same digits Originally Posted by Phuoc MsgBox Range("B1").Value Mod 1111 = 0 Originally Posted by Phuoc MsgBox Range("A1").Text - Left(Range("A1").Text, 1) * 1111 = 123
@Phouc, These are both excellent and elegant solutions to the OP's first two questions! Great incite into the underlying mathematical structure of the problem!  Reply With Quote

6. ## Re: Check if a cell contains same digits Originally Posted by kelly mort How will I verify format like:
0011
0022
....
1100
1122
1133
....
2200
2211
2233
....

[Code]
Does a number like 5555 where all the digits are the same qualify as being True under this request?  Reply With Quote

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

@Phuoc
your moves are very mind blowing. Thanks

I am learning a lot indeed.  Reply With Quote

8. ## Re: Check if a cell contains same digits Originally Posted by Rick Rothstein Does a number like 5555 where all the digits are the same qualify as being True under this request?
Thanks Rick for pointing that out. I was not able to think to that level. In that case I want it turn false .

So I think I can use the solution at post # 24 to check that. Better still I am open to more elegant options.  Reply With Quote

9. ## Re: Check if a cell contains same digits Originally Posted by kelly mort Thanks Rick for pointing that out. I was not able to think to that level. In that case I want it turn false .
If you are always checking only cell A1 and no other, 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))]  Reply With Quote

10. ## Re: Check if a cell contains same digits Originally Posted by Rick Rothstein If you are always checking only cell A1 and no other, 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))]
Okay I appreciate that

More knowledge for me to imbibe   Reply With Quote

## User Tag List

#### Tags for this Thread

cell, check, digits, len, verify #### Posting Permissions

• You may not post new threads
• You may not post replies
• You may not post attachments
• You may not edit your posts
•