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

1. ## Check if a cell contains same digits

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.  Reply With Quote

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

Probably there is lots for solution, I've got something like this:
A
B
1
1111
TRUE
2
1233
FALSE
3
2222
TRUE
4
2452
FALSE
5
8888
TRUE

A
B
1
1111
=SUM(CODE(MID(A1,ROW(\$1:\$4),1)))/4=CODE(LEFT(A1,1))
2
1233
=SUM(CODE(MID(A2,ROW(\$1:\$4),1)))/4=CODE(LEFT(A2,1))

There is array formula in B1 so have to be accept with Ctrl+Shift+Enter ({} should appear) and drag it down.  Reply With Quote

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

Okay thanks but I need a VBA code for this.  Reply With Quote

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

A non array formula

=SUBSTITUTE(A1,LEFT(A1,1),"")=""  Reply With Quote

5. ## Re: Check if a cell contains same digits Originally Posted by KOKOSEK Probably there is lots for solution,
True, here are a couple more.

Same digits

 A B C 1 1111 TRUE TRUE 2 1233 FALSE FALSE 3 2222 TRUE TRUE 4 2452 FALSE FALSE 5 8888 TRUE TRUE

 Cell Formula B1 =SUBSTITUTE(A1,LEFT(A1),"")="" C1 =A1&""=REPT(LEFT(A1),4)

Excel tables to the web >> Excel Jeanie HTML 4  Reply With Quote

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

You did not mention about VBA in original post or thread title?

Into sheet code:

Code:
```Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Evaluate("=SUM(CODE(MID(" & Target.Value & ",ROW(\$1:\$4),1)))/4=CODE(LEFT(" & Target.Value & ",1))")
End Sub```  Reply With Quote

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

Hi, something like this?

Code:
```Option Explicit

Option Explicit

Sub Worksheet_Change(ByVal Target As Range)
Dim numberInQuestion As String, firstDigitInQuestion As Long, i As Long, nextDigitInQuestion As Long, isItANumber As Boolean
If Target.Address = "\$A\$1" Then
numberInQuestion = Range("A1").Value
isItANumber = IsNumeric(numberInQuestion)
firstDigitInQuestion = Left(numberInQuestion, 1)
If isItANumber = True Then
For i = 1 To Len(numberInQuestion)
nextDigitInQuestion = Mid(numberInQuestion, i, 1)
If firstDigitInQuestion <> nextDigitInQuestion Then
MsgBox "numbers are different"
End If
Next i
End If
End If
End Sub

Sub init()
Dim rng As Range
Set rng = Range("A1")
Call Worksheet_Change(rng)
End Sub```  Reply With Quote

8. ## Re: Check if a cell contains same digits Originally Posted by kelly mort Okay thanks but I need a VBA code for this.
Something like
Code:
`MsgBox Replace(Range("A1").Value, Left(Range("A1").Value, 1), "") = vbNullString`
or
Code:
`MsgBox Range("A1").Text = String(4, Left(Range("A1").Text, 1))`  Reply With Quote

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

Cool cool!!! Thank you all

I have tested all the above. They are working fine.
@Peter_SSs
your last code is very cute. Thanks  Reply With Quote

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

You're welcome. Plenty of choice.   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
•