# Show digits as needed 3N DD D TRI

need select the digits are show here

here the file
3N_DD_D_.xlsm
###### Who is Participating?

Commented:
try something like this:

``````Const Limit As Integer = 3

Public Function GetDouble(v As String) As String
Dim tmpArr(Limit - 1) As String

If Len(v) = Limit Then
tmpArr(0) = Mid(v, 1, 1)
tmpArr(1) = Mid(v, 2, 1)
tmpArr(2) = Mid(v, 3, 1)

For i = 0 To Limit - 1 - 1
For j = i + 1 To Limit - 1
If tmpArr(i) = tmpArr(j) Then
GetDouble = tmpArr(i) & tmpArr(j)
Exit Function
End If
Next j
Next i
End If
GetDouble = ""
End Function

Public Function GetNotDouble(v As String) As String
Dim tmp As String
Dim tmpArr(Limit - 1) As String

If Len(v) = Limit Then
tmpArr(0) = Mid(v, 1, 1)
tmpArr(1) = Mid(v, 2, 1)
tmpArr(2) = Mid(v, 3, 1)

For i = 0 To Limit - 1 - 1
For j = i + 1 To Limit - 1
If tmpArr(i) = tmpArr(j) Then
For k = 0 To Limit - 1
If k <> i And k <> j Then
tmp = tmp & tmpArr(k)
End If
Next k
GetNotDouble = tmp
Exit Function
End If
Next j
Next i
End If
GetNotDouble = ""
End Function

Public Function GetWholeIfDouble(v As String) As String
GetWholeIfDouble = IIf(GetDouble(v) = "", "", v)
End Function
``````
3N_DD_D_b.xlsm
1

ACCOUNTING ASSISTANTAuthor Commented:
Ryan Chong

Thanks great expert
0

ACCOUNTING ASSISTANTAuthor Commented:
Great JOB !
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.