Excel Benutzerdefinierte Format prüfen Charakter

Question

Was ich brauche, ist benutzerdefinierte Format Werte nach diesen Regeln zu ändern:

1. Wenn „/“ fehlt und die Länge der Zahl kleiner als 6, fügen Nullen der Anfang.
2. Wenn "/" vorhanden ist und die Länge der Zahl vor "/" kleiner als 6 ist, fügen Sie am Anfang Nullen hinzu.
3. Wenn "/" vorhanden ist und die Länge der Zahl nach "/" 1 ist, fügen Sie vor dem letzten Zeichen Null hinzu.
4. Wenn "/" vorhanden ist und die Länge der Zahl nach "/" 2 ist, lassen Sie es ist.
5. Gesamtlänge der Zeichenfolge mit "/" 8, ohne sie wäre - 6

Unformatted Daten:

-534 
1083 
386840/2 
12345/10 

Wunschergebnis:

000534 
001083 
38684002 

Was ich bisher herausgefunden habe:
000000; 000000; 0 ist ziemlich offensichtlich Teil, Wert ohne "/" wird trotzdem als Zahl gelesen. Wenn es eine Nummer wäre, würde ich [>1000]0 oder etwas ähnliches verwenden, aber es funktioniert nicht mit , soweit ich verstanden habe.
Formel I bin (nur jetzt) ​​statt wünschenswert benutzerdefinierten Format verwenden:

=IF(ISERROR(FIND("/";A1)); 
    CONCATENATE(REPT("0";6-LEN(A1));A1); 
    IF((LEN(A1)-FIND("/";A1))=1; 
     SUBSTITUTE(CONCATENATE(REPT("0";7-FIND("/";A1));A1);"/";"0"); 
     SUBSTITUTE(CONCATENATE(REPT("0";7-FIND("/";A1));A1);"/";""))) 

Kann mir jemand einen Tipp geben?

Answer 1

Hier ist eine Möglichkeit zu erreichen, was Sie wollen mit NumberFormat. Das entsprechende Zahlenformat wird vom VBA-Ereigniscode generiert.

Es gibt einen großen Nachteil darin, dass Sie für jeden eindeutigen Eintrag, der eine "/" enthält, ein anderes Zahlenformat benötigen, und die Anzahl der zulässigen Zahlenformate kann einschränkend sein.

Es erfordert jedoch keine Hilfssäulen und ändert die in der Zelle gespeicherten Originaldaten nicht.

Alle in Spalte A eingegebenen Daten werden entsprechend den Regeln formatiert. Wenn ein Schrägstrich vorhanden ist, ändert der Code die numerischen Abschnitte; testet aber nicht, dass beides numerisch ist. Also abc/1 ->abc01, aber Sie können das ändern, wenn Sie möchten.

Dies ist Code-Arbeitsblatt:

Option Explicit 
Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim FormatRange As Range, C As Range 
    Const Fmt As String = "000000;000000;000000;@" 
    Dim V As Variant 

Set FormatRange = Range("A:A") 
If Not Intersect(Target, FormatRange) Is Nothing Then 
    For Each C In Intersect(Target, FormatRange) 
     If InStr(C.Text, "/") = 0 Then 
      C.NumberFormat = Fmt 
     Else 
      V = Split(C.Text, "/") 
      V(0) = Format(V(0), "000000") 
      V(1) = Format(V(1), "00") 
      C.NumberFormat = ";;;" & Chr(34) & Join(V, "") & Chr(34) 
     End If 
    Next C 
End If 

End Sub