Check if a cell contains same digits

[kelly mort]

Hi,

I am looking for a way to verify if a cell say A1 contains same digits like 1111, 2222, etc.

The Len will always be 4.

Thanks in advance

 

[kelly mort]

Great!!!!


One last request then I take a nap

How will I verify format like:
0011
0022
....
1100
1122
1133
....
2200
2211
2233
....

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

 

[Phuoc]

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

 

[Phuoc]

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

 

[Phuoc]

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

 

[Rick Rothstein]

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

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!

 

[Rick Rothstein]

How will I verify format like:
0011
0022
....
1100
1122
1133
....
2200
2211
2233
....

[/QUOTE]
Does a number like 5555 where all the digits are the same qualify as being True under this request?

 

[kelly mort]

@Phuoc
your moves are very mind blowing. Thanks

I am learning a lot indeed.

 

[kelly mort]

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.

 

[Rick Rothstein]

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))]

 

[kelly mort]

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