Show digits as needed 3N DD D TRI

need select the digits are show here

A1.PNG
here the file
3N_DD_D_.xlsm
ADRIANA PACCOUNTING ASSISTANTAsked:
Who is Participating?
 
Ryan ChongCommented:
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

Open in new window

3N_DD_D_b.xlsm
1
 
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Ryan Chong

Thanks great expert
0
 
ADRIANA PACCOUNTING 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.

All Courses

From novice to tech pro — start learning today.