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

 

[KOKOSEK]

Probably there is lots for solution, I've got something like this:
[TABLE="class: head"]
<tbody>[TR]
[TH][/TH]
[TH]

A​

[/TH]
[TH]

B​

[/TH]
[/TR]
[TR]
[TD]

1​

[/TD]
[TD]

1111​

[/TD]
[TD]

TRUE​

[/TD]
[/TR]
[TR]
[TD]

2​

[/TD]
[TD]

1233​

[/TD]
[TD]

FALSE​

[/TD]
[/TR]
[TR]
[TD]

3​

[/TD]
[TD]

2222​

[/TD]
[TD]

TRUE​

[/TD]
[/TR]
[TR]
[TD]

4​

[/TD]
[TD]

2452​

[/TD]
[TD]

FALSE​

[/TD]
[/TR]
[TR]
[TD]

5​

[/TD]
[TD]

8888​

[/TD]
[TD]

TRUE​

[/TD]
[/TR]
</tbody>[/TABLE]


[TABLE="class: head"]
<tbody>[TR]
[TH][/TH]
[TH]

A​

[/TH]
[TH]

B​

[/TH]
[/TR]
[TR]
[TD]

1​

[/TD]
[TD]

1111​

[/TD]
[TD]

=SUM(CODE(MID(A1,ROW($1:$4),1)))/4=CODE(LEFT(A1,1))​

[/TD]
[/TR]
[TR]
[TD]

2​

[/TD]
[TD]

1233​

[/TD]
[TD]

=SUM(CODE(MID(A2,ROW($1:$4),1)))/4=CODE(LEFT(A2,1))​

[/TD]
[/TR]
</tbody>[/TABLE]


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

 

[kelly mort]

Okay thanks but I need a VBA code for this.

 

[gaz_chops]

A non array formula

=SUBSTITUTE(A1,LEFT(A1,1),"")=""

 

[Peter_SSs]

Probably there is lots for solution,

True, here are a couple more.

Excel Workbook
	A	B	C
1	1111	TRUE	TRUE
2	1233	FALSE	FALSE
3	2222	TRUE	TRUE
4	2452	FALSE	FALSE
5	8888	TRUE	TRUE
Same digits

 

[KOKOSEK]

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

Into sheet 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

 

[Lavina]

Hi, something like this?

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

 

[Peter_SSs]

Okay thanks but I need a VBA code for this.

Something like

MsgBox Replace(Range("A1").Value, Left(Range("A1").Value, 1), "") = vbNullString

or

MsgBox Range("A1").Text = String(4, Left(Range("A1").Text, 1))

 

[kelly mort]

Cool cool!!! Thank you all

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

 

[Peter_SSs]

You're welcome. Plenty of choice.