Excelのssnスタイル番号に条件付きゼロを追加する

Question

Excelでssnスタイル番号に条件付きゼロを追加しようとしています。

1234-1234-12 -> 12340-1234-12 
12345-123-12 -> 12345-1230-12 
12345-1234-1 -> 12345-1234-10 
12345-1234-12 -> do nothing 

Answer 1

あなたは各部分を解析し、それが数字の所望の数であることを確認してくださいと一緒に戻ってそれを連結する必要があります：あなたがにVBAの回答が必要な場合

=LEFT(LEFT(A1,FIND("-",A1)-1)&"00000",5)&"-" & LEFT(MID(A1,FIND("-",A1)+1,FIND("-",A1,FIND("-",A1)+1)-FIND("-",A1)-1)&"0000",4)&"-"&LEFT(MID(A1,FIND("-",A1,FIND("-",A1)+1)+1,LEN(A1))&"00",2) 

Answer 2

スコットクランナーの優れた答えを補完する：

Function ExpandSSN(s As String) As String 
    Dim A As Variant 
    Dim part As String 
    A = Split(s, "-") 
    part = Trim(A(0)) 
    A(0) = part & String(5 - Len(part), "0") 
    part = Trim(A(1)) 
    A(1) = part & String(4 - Len(part), "0") 
    part = Trim(A(2)) 
    A(2) = part & String(2 - Len(part), "0") 
    ExpandSSN = Join(A, "-") 
End Function 

上記odeを標準コードモジュールに組み込みます。たとえば、式を入力します。 B1で=ExpandSSN(A1)と下にドラッグ：